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GEGGGEGLGG GG GGGL GGG GGG ELGG LEAL GGG LGGGGh G4 G44 444g ggg ggg 44g g gga 4agggg ggg gg gagg4ggas 
GEG GGAGAGG GEG ALG LEG ULA GG GGG GAG 4G 4G UG 44g gg ggg ggg ggg ggg 444g Gag GGL Gag ga ggg G444444444 
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= & 
$3 1245T ENTERED 4.0*1X AT 09.309 ON 12/27/79 T/S 0-08-05 
@ @ 
C001 $ SNUMB 1245T 
@ coo2 ¢ COMMENT TSSUNIT TSS CARDIN @ 
0003 $3 USERID TSSUNITS. 
C004 $ IDENT  P20ABJ12,HAUGH eSTATION=T coo00000 
@ coos as PROGRAM SALT,ZON4G 00001004 € 
C006 = $$ PRMFL **eR eRe TOOLS/SALT/STARSTAR . 00001005 
coo7 $ NOTE G*, COPY sENDFC 00001006 
@ jcoos 33 PRMFL GteRoSr4VX/VSP/SRC/IOSO 00001007 @ 
| co09 ¢ NOTE G* | 00001008 
o010 $ DATA Ax, COPY sENDFC 00001009 
@ coi ¢$ ENDCOPY Ax 00001011 @ 
co12 $ FILE AB A1S 00001012 
| 0013 $ LIMITS 10/40Ks.50K 00001013 
s @ 0014 ¢ IF ABORT/ENDJOB 00001014  ) 
co1s) $$ IF 18, 00PS 00001015 
C016 As GMAP NDECKsNSAF»0NG | 00001016 
 ] 0017 $ LIMITS 1040Ks 450K 00001017 & 
| 0018 $3 PRMFL eee ReRo4VX/MACROS/STARSTAR 00001018 
c019 ¢ FILE 19/997 | 00001019 
5 8 c020 6 «($$ PRMFL Gee Reo Se 4VX/VSP/SRC/IOSO 00001020 @ 
| 0021 $ FILE Ax, AIR 00001021 
0022 $ OOPS, 7 00001022 
Ld] 0023 $ ENDJ0B 00001023 @ 
TOTAL CARD COUNT THIS JOB = 000024 
6 | | | e 
* ACTY-O1 $CARD #OO0CS SALT 12/27/79 REAL MODE sw=co0c4c0ocoonc 
1 © * NORMAL TERMINATION AT 000113 Ba=000000200000 120502 sw=0004000C0000  ] 
: ; 
START 9.310 LINES 2 Proc ¢C.0000 1/0 0.000 IU 5  MAXWST 41K 
1: @ STOP 9.311 LNLMT 51200 TMLMT 0.1000 IOLMT CU 5 MINWST 41K @ 
| SWAP c.000 RUPGIN 0 BSPGIN 0 PGFLT 0 PGIOTM 0.COO PGOT a) 
| LAPSE C.000 — A/PSTK 8 SSSTK 7 M«T 129 | 
7 @ : © 
7 FC D TYPE BUSY IP/AT FP/RT IS/HC MS/HE ADDRESS T#H/PK# 
: @} ** R MSU4SO P 101 0 0 36 36R 0-08-06 @ 
G* R MSU4SO X 0 0 0 222 222 
G* R MSU4SO . 0-08-08 C418 ONL 
7 © Ax R MSU450 * 103 0 0 1 12 0-08-02 & 
AB S MSU4SO * 44 0 1 12 12 0-08-03 
P x SYOUT | 
1 @ *A R MSU4SO * 17 0 0 *  300R 0-08-02 S 
: RC-77 2 LINES 
@ | 7] 
‘ *® ACTY-02 SCARD #0016 GMAP 12/27/79 REAL MODE Sw=201400000000. ° 
*% NORMAL TERMINATION AT 006536 BA=CON0CO200000 1=050C Ssw=2014000C0000 
@ START 9.312 LINES 13835 PROC 0.0188 1/0 0.011 Iu 5 MAXWST 53K . 
STOP 9.395 LNLMT 51200 TLMT 0.1000 IOL MT CU 5  MINWST 41K 
SWAP 0.000 RUPGIN 0 BSPGIN 0 PGFLT 0 PGIOTM 0.000 PGOT 0 
@ LAPSE C.083 A/PSTK 8 SSSTK 7 NeT 31556 @ 


RC~-77 
LIST 
RC-73 


FC 


o 


Ax 
Dx 
kk 
x * 
x1 
Ge 
G* 
Px 
K * 
C* 
*A R 


awmwwmwnwn ny 


2 LINES 


13832 LINES 
1 LINES 


TYPE 


MSU450 
MSU450 
MSU450 
MSU450 
MSU450 
MSU450 
MSU450 

SYOUT 

SYOUT 

SYOUT 
MSU450 


20 


IP/AT 


FP/RT 


IS /4#C 


12 
1 
4000 


1188 
222 


24R 


ADDRESS TH/PK#H 


0-08-05 
0-08-04 


0-08-08 C418 
0-08-04 


0-08-08 €418 


0-08-04 


ONL 


ONL 
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LIST 


UPDATE 


1$$ 
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SNUMB = 1245T» ACTIVITY # = O24 » REPORT CODE = 77» RECORD COUNT = 000002 
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LIST 
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FO TO III IO IOI TO II III III III II I IOI II IO IO to tot tok io toto k 
* (CC) COPYRIGHT 1978 BY HONEYWELL INFORMATION SYSTEMS INC, * 
* (€C) COPYRIGHT 1977 BY TOKYO SHIBAURA ELECTRIC COMPANY LIMITED * 


ROO I TO RIO I IO IR TOI TO IOI TO IOI I III II IOI IOI II IOI IOI IOI IO tok itt Ok tok 
PREFACE 
THIS PROGRAM WILL BE LOADED MOD 8. 
PROGRAM BREAK 16644 
COMMON LENGTH 0 
V COUNT BITS 5 
PRIMARY SYMDEF ENTRY 


eel OS 0 
2lIOS 120 


& 
& 
1245T 02 12-27-79 09.313 H660057.002 1/O SUPERVISOR 7912191080 PAGE 2 e 
1 LAL 10S0,H660057.002 10800025 
2 TTL H66C00J7.4 C02 1/C SUPERVISOR 7912191080 
3 CPR He1978 10800035 ) 
4 CPR 721977, COPTRIGHT STATEMENT 
5 LOOM sA6MCR 
6 LODM eA6MAC @ 
? Loom ~A6I0S 
8 LODST .A6IOE 
9 LODST  TPTP.Y ITP SYMBOLS 29FW0340 ® 
10 * | 
ocooco 11 eENTRY 10S, 
ayexeleyers) 12 ETC CIOTRMFEP2,EP3rEP4 rc INOS# EXTMEMsS PUNK oP INTs FLT 10+ ANON1400 @ 
000000 13 ETC. GSTRT sEPIRET*¢ RSMCHSACTFL eI GNORSASTIOSDELTESDELTESDELTEs 16fW0060 
000000 14 ETC DELTE »DELTE »DELTEsMSCIOsMSCSK»MSEOF oD IMAP + DELTE> 
000000 15 ETC DELTE sEP 28,EP 29% RESET» DCCON»UNLNK»RLKC CoLKBYTE,D & 
oco000 16 ETC PMMIOSsSCALIO sEP37 sEPS Be EPSOZEP4SC, 
oco0oco 17 ETC EP41s EPL 2rEP4SeEP44e EP 45S EPL, 
0000C0 18 ETC DELTE-DELTE-DELTEsCELTEsNWCAIOI>» & 
o0co000 19 ETC SHCMs CINITs¢PRIVTY) 420 
— INHIB SAVE,SON 
000000 004002012004 000 22I0S VED 3/01/00 3/0 Fo 11/ oMIOSe12/e 1108 04/102/0 & 
000001 000120 7102 04 121 TRA IOTRM,S 1 
000002 004001 7102 04 4003 TRA EP2,$ 2 
000003 004000 7102 04 4003 TRA EP3,$ 3 @ 
000004 004402 7102 04 4406 TRA EP4,$ 4 
000005 004407 7102 04 4414 TRA INOSs# § 
000006 003712 7102 04 3720 TRA EXTMEN,S 6 & 
000007 006611 7102 04 6620 TRA SPUNKsS 7 
000010 000221 7102 04 #231 TRA PINT» & | 
000011 005415 7102 04 5426 TRA FLTIO,$ 9 @ 
000012 006610 7102 04 6622 TRA GSTRT»S 10 
000013 001657 7102 04 1672 TRA EP1RET»$ 11 
000014 006642 7102 04 6656 TRA RSMCH,$S 12 & 
000015 006652 7102 04 6667 TRA ACTFLs$ 13 
000016 000141 7102 04 £157 TRA IGNOR,$S 14 
000017 007321 7102 04 7340 TRA ASTIO,$ 15 @ 
000020 000074 7102 04 114 TRA DELTE»S 16 
000021 000073 7102 04 £114 TRA DELTE,S 17 
oo00022 000072 7102 04 114 TRA DELTE.$ 18 |] 
000023 000071 7102 04 £114 TRA DELTE,$ 19 
C00024 000070 7102 04 £114 TRA DELTEs$ 20 
000025 000067 7102 04 114 TRA DELTE,$ 21 @ 
000026 010704 7102 04 10732 TRA MSCIOs$ 22 
000027 011157 7102 04 11206 TRA MSCSKe$ 23 
000030 011475 7102 04 11525 TRA MSEOFs,$ 24 @ 
000031 000037 7102 04 70 TRA IMAPs$ 25 
000032 000062 7102 04 £114 TRA DELTE»S 26 
000033 000061 7102 04 114 TRA DELTEs$ 27 @ 
000034 003745 7102 04 4001 TRA EP28,% 28 
000035 003742 7102 04 3777 TRA EP29,% 29 
000036 012037 7102 04 12075 TRA RESET,$ 30 @ 
000037 012060 7102 04 12117 TRA DCCON,S 31 
& 
e 


1245T C2 


12-27-79 09.313 
000040 012115 7102 04 1 
000041 012315 7102 04 1 
000042 013454 7102 04 1 
000043 005437 7102 04 
000044 005552 7102 04 
000045 012332 7102 04 1 
000046 012335 7102 04 1 
000047 012350 7102 04 1 
000050 01712365 7102 04 1 
000051 012366 7102 04 1 
000052 012367 7102 04 1 
000053 012370 7102 04 1 
000054 9012411 7102 04 1 
000055 012402 7102 04 1 
000056 012411 7102 04 1 
000057 00035 7102 04 
000060 0600034 7102 04 
000061 000033 7102 04 
000062 900032 7102 94 
000063 005533 7102 04 
C00064 071101020102 
CQ0065 071101020111 
000066 010202070711 
000067 071101020105 

| 5710006 
oconce 
770000 
000057 
000060 
037777 
000003 
000010 
000020 


H6600J7.002 
2155 
2356 
3516 
5502 
5616 
2377 
2403 
2417 
2435 
2437 
244) 
2443 
2465 
2457 
2467 
114 
114 
114 
114 
56 16 
000 
000 
000 
20 
000 23 
25 .FJSTR 
26 .FCSUB 
27 eWTIMR 
28 DISOPT | 
29 FADS 
30 OFFS 
31 CFG 
32 FEXTC 
33 
34 
ie 
36 * 
37 * 
38 * 
39 * 
40 * 
41 * 
42 x 
43 * 
44 x 
45 * 
46 * 
47 * 
48 * 
49 * 
50 * 


I 


/0 


§ UP ERVIS OR 7912191080 5 
UNLNK»$S 32 

RLKCC,$S 33 

LKBYTEs,S 34 

PMMIOS,$ 35 

SCALIO,-$ 36 

EP37,% 37 

EP38,¢ 38 

EP39,¢ 39 

EP40,$ 40 

EP41,¢ 41 

EP42,E 42 

EP434% 43 

EP44,% 44 

EP45,% 45 

EP464% 46 

DELTE»$ 47 

DELTE»S 48 

DELTEs»$ 49 

DELTEs»S 50 

NWCAICs$ 51 

12791212 

OFF 

12791215 a IOSO4AAM 
510006 LOST INTERRUPT STATUS IOSO4AAM 
2 J* I/O FLAG IOSO4AAM 
77000C L¢c01270 
47 TIMER REGISTER STORE IN S/S FRAME 10801035 
60 REDISPATCH OPTION WORD (O=NO REDISPATIOSO1040 
37777 ADJACENT PAT BODY FLAG . 10801045 
3 ADJACENT PAT BODY CFFSET 10801050 
10 ANONC9 80 
20 14FW1830 
IOTRM= INTERRUPT HANLER RNTRY 

EP2— (LINKF) LINK AT HEAD 

EP3=—= (LINKF) LINK AT HEAD (GEEPR REISSUE) 

EP4—= (QUEUE) GET AN I/0 ENTRY 

INOS= GEINOS PROCESSOR 

EXTMEM~ EXTENDED MEMORY LINK REQUEST 10801060 
SPUNK~ SPECIAL .ULINK INTERFACE FOR DNET 

PINT= PROGRAMMED INTERRUPT ENTRY ANON1420 
FLTIO~ WVICARIOUS FAULT INTERFACE 10s0107C 
GSTRT~ RETURN STATUS CGEPR) 

EPTRET RETURN ADCR FROM CHANNEL MOD. 

RSMCH~ RESUME I/0 ON CHANNEL 

ACTFL—~ PROCESS ACCT FILE REQUEST 

DELTE- 

ASTIO - START 1/0 


DELTE= 


1245T 02 12-27-79 09.313 ~~ H660037.002 


* % © + & & Fe eH eH He Oe Oe OO Oe OO OOO HHO 


1/0 
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DELTE= 

DELTE= 

DELTE- 

DELTE- 

DELTE=- 

MSTIO- COMMON MASS STORAGE 1/0 REQUEST HANDLER 
MSCSK~ CCMMON MASS STORAGE SEEK CALCULATION 
MSEQF- COMMON MASS STORAGE END OF FILE RECOVERY 


IMAP= EP FOR INTERRUPT MAPPING PROCESS ~~ OBSOLETE 
MAP PCINTER FOR DNET EL8. 
IMW POINTER FOR DNET EL8. 


EP28- (.LINK) LINK AT END 

EP29— (LINKS) SPECIAL LINK 

RESET-ISSUE RESET FCW TO PSIA CHANNEL 

DCCON= ISSUE CONNECT ON IOM DIRECT DATA CHANNEL 

UNLNK= UNLINK I/0 AND CCURTESY CALLS 

RLKCC— RELINK COURTESY CALL 

LKBYTE- SHARED ACCESS MPC LOCK BYTE REQUESTS 

CALLIO~ PMME CALLIC . 

SCAIO~m . CALL CALLIC 

EP37— (.GUEUS) GET AN SYSTEM 1/0 ENTRY 

EP38— (.ULINK) UNLINK AN I/0 ENTRY 

EP39= (SKWPT) LINKsLLINK SEEK CALCULATION WITH PAT 
EP40= (MSKWPT) MULTIRECORD SEEK CALCULATION WITH PAT 
EP41—- (DBSCR) DIAGNOSTIC BLOCK SEEK. CALCULATION 

EP42— (LSKWA) LINK SEEK CALCULATION WITH ABSOLUTE BLOCK 
EP43— (LLSKWA)D LLINK SEEL CALCULATION WITH ABSOLUTE BLOCK 
EP44— (CVBCH) ROUTINE TO CONVERT BLOCKA TO CYLAs» HEAD# 
EP45— (CKBLK) ROULINE TO MAKE HEADER BLOCK CALCULATION 
EP46- (CVCHB) ROUTINE TO CONVERT CYLAs HEAD#H TO BLOCK# 


IF SET ZERO» I/0 CHAIN DEBUG OPTION 10801080 
IF SET ZERO,» CONDITIONAL DISPATCH OPTION 108017085 
IF SET ZERO» STATUS MODIFIER OPTION 10801090 
IF SET ZERO,» DISK I/O MONITOR OPTION 10$01095 


NWCAIC~ NON WIRED CALLIO 


1245T 02 


12=2e7=79 


09.313 


H6600J7.002 


1/0 


DEC 


S UP ERVIS OR 


7912191080 


PAGE 


SLAVE ABCRT CODES GENERATED BY THE I/0 SUPERVISOR 


K1 


K4 


D2 


K19 


K8 


K9 


K19 


K11 


REASON FOR ABORT 


FILE CODE NOT FOUND OR ZERO 


NO CEINOS FILE POINTER 
ACCESS BEYOND FILE 
INVALID EP6 CALL 

INVALID DCW POINTER 
ILLEGAL COMMAND FOR FILE 
INVALID I/0 ON DEVICE 
ILLEGAL SEEK DATA ADDRESS 


INVALID I/O SCT POINTER 


IMPERMISSIBLE PERM WRITE 
IMPERMISSIBLE PERM READ 

IDS RECORD TOC LONG 

ILLEGAL MME PARAMETER 

PRESELECTED CHANNEL IS DEACTIVATED 
OP/DESCR FLAG MISMATCH 

NO DESCRIPTOR SUPPLIED 

BAD DESC. BASE CEVEN) 

DESC.TYPE ERR FOR CC 


TOO BIG DATA REGION 


CLOSEST PRIOR 


FCER EP51 
INAI3 EPS 


INAIS EPS 


“ABPGM I/0 EXIT 5 


NEXTM EP6 


IvDCW DCWCK 
INDTR I/0 EXIT 1 
INAK8 1/0 EXIT 6 
IABSA I/0 EXIT 6 
SETFBT/INDTR 
DSDR7,SCTG61 
RETYN 

PERMS I/0 EXIT ? 
PERMS I/0 EXIT 7 
CMI EP13 

FLTIO EPS 

ABRT EP142,3-29 
ITYTWE EPS 
NDATS. EPS 
BASER IOCALL 
EDESCE IOCALL 


DCWER IOCALL 


25FwC330 
25FWO340 


ITP. 1500 


ITP.1520 


ITP.1540 


ITP.1580 
ITP. 1590 
ITP. 1600 


10801000 


ITP. 1620 


ITP. 171640 


ITP. 1660 


1245T 02 12-27-79 09.313 H6600J7.002 1/0 SUPERVISOR 7912191080 PAGE 6 
139 
140 * 213 139 K12 BAD DEVICE NAME LOOKN1 IOCALL 
141 
142 * 215 141 K14 BAD CONTROL BIT CONF IBCNF f0OCBCK 
143 
144 * 216 142 K15 ILLEGAL MESSAGE CODE ITYME ITYM 
145 
146 * 217 143 K16 INVALID LOGICAL CMD ITYME1 ITYM 
147 
148 * 220 144 K17 DESCRIPTOR TYPE ERROR EL8. 
149 * EL8. 
150 * 227 151 K20 1/0 PAGE NOT WIRED DD? PMMIOS ITP.1690 
151 


‘@ecs0use5cocsececsecssvse5ocese0ee3sx+5soeeee ® 
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PAGE 7 


> ETE ED ND ERD AN AD I a 


CLOSEST PRIOR 


SYMBOL 

DELTE 16FWO080 
16FWCO90 

LIMBO INT. HDOLR. 

LIMBO1 INT. HDLR. 

LIMBO2 INTs. HDLR, 

LIMBO3 INT. HDLR. 

SPDPSI INT. HDLR. 
16FWO104 

RLERR ACTFL CC 

DBZOP ULINK EL8. 
EL8. 

FAULT IHLR €L8. 
ELB. 

ZOP11  ULNK 
XXXX3980 


LOOKN TYNAM 


1/0 S UP ERVIS§ OR 7912191080 
153 
154 
155 
156 ZOP (ZERO OP, CODE) INSTRUCTIONS IN THE I1/0 SUPERVISOR 
1 5 7 ta ns el a lhe em ‘in “hn tt “ati sama ns is ls > > DO ND a aD eS ED ce Oe ey a ae a ee ee : ats 
158 
159 
160 * ADDRESS REASON FCR ZOP 
161 * FIELD 
162 * www ew nme ee wee me ene eee 
163 
164 * 000001 IMPROPER ENTRY POINT TO .MIOS USED 
165 * 
166 
167 * Q00002 FAULT CHANNEL INTERRUPT FROM IOM 
168 ~~-SYSTEM CONTROLLER FAULT 
169 
170 * 000003 FAULT CHANNEL INTERRUPT FROM IOM 
177 ~-- INPUT /OUTPUT FAULT 
172 
173 * Q00C0004 FAULT CHANNEL INTERRUPT FROM IOM 
174 ~--PTP/PTW FAULT 
175 
176 * QO000CS5 FAULT CHANNEL INTERRUPT FROM IOM 
177 m~-UNCEFINE I/0 FAULT 
178 
179 * OCc00C6 SUSPEND COMMAND WAS ATTEMPTED ON 
180 OTHER THAN PSIA CHANNEL ZERO. 
181 * 
182 * O0dCO1C ACCOUNTING FILE SEEK ADDRESS ERROR 
183 OTHER THAN LOGICAL E.0.F. 
184 
185 * 000011 I0Q CHAIN DEBUG TRAP 
186 * 
187 * 000016 FAULT CHANNEL QUE OVERFLOW 
188 * 
189 * 9000021 NEGATIVE “LINKED” CR “IN TRANSMISSION" 
190 * 
194 COUNT OR “LINKED™ COUNT IS LESS THAN 
192 "IN TRANSMISSION’ COUNT DURING UNLINK 
193 
194 * 000022 NAME MISSING FROM SD.JSCN TABLE FOR 
195 THIS SYSTEM CONSOLE 
196 
197 * 
198 


1245T 02 


12-27-79 09.313 H6600J7.002 
000070 200 IMAP 
000070 000002 7100 04 9000 201 DBUG 
202 * 
203 ZO0P 
204 
205 
206 * 
000071 0900074 0020 00 010 207 DOSTAT 
oo0072 000074 0020 00 010 208 
000073 000074 0020 00 9010 209 
000074 210 DQ 
211 * 
000114 9000070 7160 00 010 212 DELTE 
000115 213 
000116 004015 7100 CO 010 214 
017774 215 .FSCT1 
000117 017774777777 000 216 «FSCT2 
000120 015750 7100 00 010 217 «110s 


1/0 


NULL 


TRA 


NOP 
MACRO 
VFO 
ENDM 


TALLY 
TALLY 
TALLY 
BSS. 


XEC 
ZOP 
TRA 
BOOL 
OcT 
TRA 


S UP ERV IS OR 


2/IC 


H18/Z0P.10/0,8/#1 
ZOP 


DQ16 
DQ,16 
DQ,16 
16 


DBUG 

4 

LNKRET 
017774 
017774777777 
INITM 


79121910S0 PAGE 


IF PRODUCTION MODE 


IF DEBUG MODE 


QUE IN 


TALLY OUT 


REFRESHER 


EXIT 


INITIALIZE RCUTINE ENTRY 


16FWC260 
16FWO270 
16FWC280 
16FWO290 
16FWC300 
16FW0310 
16FWC320 
16FWC330 
16FWC340 
16FWO350 
16FWC360 
16FWC370 
16FWC38C 


@®eoe?e%e8e¢e2e@e60e¢©6UchOmUC<Ci hhhéC‘( pm; ml lU FeO emhUCc OMUC OMrhUC<C PMUC—~—<C MLC MCUCOCU?e 


1245T 02 


0001 21 
000122 
000123 
000124 
0001 25 
0001 26 
000127 
000130 
000131 


(000132 


000133 
000134 
000735 
000136 
000137 
000140 


12=27=79 


09.357 


o0000Cc0 
o0o00gc4 
o0000C4 
ooco0oa 
000005 
O0000CS5 
000003 
O000C2 
000001 


000121 


900000011207 


006063 
000001 
000126 
200030 
001764 
001 761 
006130 
006133 
006063 
700002 
000003 
000000 
000000 
700040 
400070 


4726 Q7 
4502 00 
6202 00 
7403 00 
4746 07 
4746 07 
4776 07 
4736 Q7 
4726 07 
2313 Q0 
Sfa2 07 
6272 05 
0116 00 
4133 00 
7573 QO 


H6600J 7.002 


220 
221 
222 
223 
224 
225 


226 
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S UP ERVIS 0R 7912191080 PAGE 


INTERRUPT HANDLER - ACCEPT INTERRUPT 


P1 TYPE O DESC. 


ALL INTERRUPT PROCESSING BEGINS HERE. 

THE WIRED ENTRY DESCRIPTOR AT LOC. 30~31COCTAL) IS 
EXECUTED AS A INWARD CLIMB WHEN INTERRUPT OCCURED. 
THIS ENTRY DESCRIPTOR WILL BE INITIALIZED BY START UP 
ROUTINE. LINKAGE SEGMENT MUST BE SYSTEM, 


ON 
RETRIEVE SCU CLOCK AND INTERRUPT CELL# FROM S/S STACK 


ADJUST ODR6e7 AND X6eX7 TO KEEP SYSTEM REGISTER 
CONVENTICN RULE. 


ODR CONVENTION 


* 
P.PID SET 
P.DDD SET 
P.SS SET 
PePAT SET 
PsIMW SET 
PB.CR SET 
PKL SET 
P.RMS SET 
P.10Q SET 
* 
* 
* 
* 
* 
* 
* 
ee 
INHIB 
* 
IOTRM NULL 
* 
* 
* 
re 
* 
* 
* 
* 
* 
* 
* 
* 
* 
ITIME ELDP 
STZ 
TMPPQ EAXO 
STXO 
IHLR LOP 
LDP 
LOP 
LOP 
LDP 
RSW 
ANA 
EAX7 
- CCAC 
RSCR 
STAQ 


PO--- WORKING 

P1--- (P. 100) 

P2==— (P. RMS) 

p3--- 

P4--~ (P.S$S) 

P5--- 

P6---SSA DATA SEG FOR POPM 
P7---SD.CR 


P.RMSeSDZRMS/DL GET RMS DESCRIPTOR 


oe TOS +1 CLEAR EPi 
IHLR 
24 97 eP RMS SET INTERRUPT ENTRY LOC 


P.SSe.SSReDL 
P.SSe.CTYP/DL 
P.CReSD.CRsDL 
PJKL»SD.~KLADL 
P.RMS »6SD.RMS, DL 


GET S/S DESCRIPTOR 
SET TYPE=0 

LOAD P.CR DESC. 
LOAD P.KL DESC. 


Cr eP.aCR 

3eDL 

Or AL PHYSICAL PROCESSOR # 
32 00P.CR SCU CLOCK 


oWTEMPoe P.SS SAVE IT FOR DELTA TIME 


10801105 
ANON1350 
10801115 
10801120 
10801130 
10801135 


ANONCO6O 


ANONOO70 
ANONOO80 
IOSO4AAM 


~ANONO100 


ANONCO110 


, a ee ee ee ee ee ee er ee ee ee er ee er er a a er ar 
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INTERRUPT HANDLER =~ ACCEPT INTERRUPT 
000141 700741. 0543 00 9000 269 AOS eCRTIIRee FL.CR COUNT # OF INTERRUPTS FOR MONITOR 
000142 300060 2343 00 000 270 SZN eKLIDIao FAKL IS IOLE TIME SET 11FW1210 
000143 o00002 6012 04 O00 271 TNZ 2e1C YES 11FW1220 
000144 300060 7563 00 000 272 STQ eKLIDI oo PAKL NO, SET IT 11FW1230 
273 * 
274 * GET IMW WORD USING INTERRUPT CELL#A IN S/S 
275 * 
000145 400005 2363 00 000 276 LOG aWFTYPoo PSS GET CELL#A 
000146 000023 7722 00 000 277 RL : 10801165 
000147. 9000037 3762 07 O00 278 ANQ 2037, 0L INTERRUPT CELL # 10801170 
000150 006001 4756 O07 O00 279 LDP Ps IMWseSD.IMWeDL GET IMW DESCRIPTOR 10801175 
000151 002200 2252 06 010: £280 LDX5 MAP sQL GET IMW INDEX 10$01180 
000152 500000 0343 06 000 281 LDAC O-QLeP.IMW GET IMW 10$01185 
000153 000342 6002 00 010 282 TZE WOOPS WOCPS, NO BITS 10801190 
000154 300107 2343 17 O00 283 IOTA SZN eKLINTs7 o PL KL IS THIS A RECURSION XXXX2050 
000155 000161 6002 00 010 284 TZE I0U NO XXxx2060 
000156 002240 2552 15 010 285 ORSA IMWe5 YES» LOG INTERRUPT XXxx2070 
000157 286 IGNOR OCLIMB & EXIT XXxx2080 
000157 000000713400 N00 VFD 18/0209/71341/101/001/046/0 
(00160 00000001000C 000 VFD 1/009 /0 48/0 0 TINO 1/02/09 2/1712/0 
287 * XXXxX2090 
C001 61 000430 7452 17 010 288 I0U STX5 TX547 SAVE IMW INDEX XXXx27160 
0007162 000434 7552 17 9010 289 STA TAR? & IMW BITS. XXXX2110 
000163 000010 1162 07 QO00 290 CMPQ 8DL IS THIS tVt O-1 INTERRUPT ANONC130 
000164 000004 6032 04 000 291 TRC 4r1C NO . ANONC140 
~~ 000165 200000 3152 03 92000 292 CANA «FBT1,DU YES, IS IT FAULT CHANNEL ANONC150 
000166 O00002 6002 04 000 293 TZE 201C NO | ‘ANONO160 
000167 002156 7552 00 010 294 STA FLTIT YES» SET FLAG ANONO170 
295 * 
296 *TRACE ACCEPT INTERRUPT op TERMsSPEC sMARKER 
297 * 
298 x 
(00170 400072 7573 00 000 299 STAQ oWTEMP426eP.S5S SAVE AQ ANONO190 
000171 oO00003 7722 00 000 300 QRL 3 IOSO4AAM 
000172 QO00000 6252 06 000 301 EAXS 0-@L INTERRUPT TYPE T2154 M225 S=34 F2O IO0SO4AAM 
000173 004200 6342 07 000 302 LOI =04200,DL 14FW1670 
000174 777777 4112 03 000 303 LDE -1,0U GET CHANNEL # 
000175 000000 $732 00 9000 304 FNO 
000176 400077 7553 CO 000 305 STA eoWTEMP#7 »eP.S5S SAVE RESIDUE XXXX27140 
000177 400074 4563 00 000 306 STE eWTEMF44 o oP. SS ANONC220 
Co0200 400073 2353 00 9000 307 LDA oWTEMP#350P.SS CELL # ANONC230 
000201 400074 3363 00 oO000 308 LC@ eWTEMPH+4 oP. SS ANONC240 
000202 000002 73462 00 O00 309 QLSs 2 
000203 400076 7553 00 000 310 STA oWTEMP+6 4P.SS SAVE IT XXXxX2160 
000204 311 2TROPN NORMI »~NONE XXXX2170 
000204 700046 7173 00 000 XED eCRTIRV44 soP. CR 
000205 000035 7102 04 242 TRA NORMI -$% 
000206 700312 2203 17 O00 312 LDXxO »=CRTEP,7,P.CR TRACE DATA AREA XXXX2180 
000207 000006 7372 00 9000 313 LLS 6 AL=CELL#A/CHANA 
000210 400004 2363 00 000 314 LDQ »WICIseP.SS LOAD INTERRUPTED IC 


1245T 02 


Te=2r-79 09.357 
000211 o00022 7372 00 9000 
000212 000007 7352 00 000 
000213 000000 6362 17 000 
000214 000022 7722 00 9000 
000215 400072 2763 00 9000 
000216 000225 2752 15 010 
000217 700000 7573 10 000 
000220 400010 2373 00 000 
000221 700002 7573 10 9000 

000222 
000222 000003 6202 00 000 
000223 700052 7173 00 9000 
000224 400000000001 000 
000225 9000000 000062 000 
000226 000000 000063 000 
000227 000000 000062 000 
000230 o00000 000060 000 
000231 001764 4746 07 000 
000232. 006133 4736 07 9000 
000233 006063 4726 07 9000 
000234 001761 4746 07 900 
000235 700040 4133 00 000 
000236 400070 7573 00 900 
000237 777777 2352 03 9000 
000240 000000 0116 00 000 
000241 000345 7102 00 010 

000242 
“000242 000332 7102 00 010 
000243 000001 1052 03 000 
000244 0900332 6012 00 010 
000245 400076 2373 00 9000 
000246 000001 7362 00 000 
000247 900332 6012 00 010 
000250 000002 7352 00 000 
000251 003774 3752 07 O00 
CO00252 701400 2343 05 000 
000253 000332 6052 00 010 
000254 701200 2243 05 000 
000255 9000332 6002 00 010 

000256 
000262 701002 2253 05 000 
000263 200000 2363 15 000 
000264 000330 6C52 00 010 


H6600J7.002 


INT 


NORMI 


1/0 


INTERRUPT HANDLER 


LLS 
ALS 
EAQ 
QRL 
ORQ 
ORA 
STAQ 
LDAQ 
STAQ 
2 TRPUT 
EAXO 
XED 
OCT 


ZERO 
ZERO 
ZERO 
ZERO 


EP8 = 


LOP 
LOP 


S$ UP ERV I$ OR 


18 
7 
0.7 
18 


oWTEMPH2 ¢eP.SS 


INTYP 45 
0O,0eP,CR 


eWISReeP.SS 


2e0eP.CR 
ASIS 
3 


aCRTRV+8oeP.CR 


-4 


0,.YOTER 
Os .YT INT 
O0,.YOTER 
Ov .YSFEC 


~ ACCEPT INTERRUFT 


PSS eSSR-OL 


P.KLASDJKLADL 
P.RMS 4SD0.RMS» DL 
P.S$Se.CTYPADL 
32e0eP.CR 
eoWTEMPo so P.SS 
-1,DU 


SLPRO 


NORMA 

1, 0U 

NORMA 

oWTEMP+6 oeP.SS 
4 

NORMA 

2 

oF CHNXsDL 
eCRCTIsZALoP.CR 
NORMA 
eCRIOTZALoP.CR 
NORMA 
NORMA se. CRAGT eo oP. CR 
~CRMBS,ALeP. CR 
Oe5eP.RMS 

NOROQ 


791219 T0S0 


A=CELLA/CHA/IC 


PROCH# 
TO Qt 
IMW WORD 


ADD INTERRUPT TYPE CODE 
STORE THEM IN TRACE AREA 
LOAD INTERRUPTED ISR 


FAULT 


TERMINATE 


MARKER 
SPECIAL 


ENTRY FROM DISPATCHER IDOLE WHEN .CROGT+5 >0 
ESTABLISH CONVENTIONS 
GET CLOCK 


CLEAR CACHE 
PROCESS INTERRUPT 


* * * TEMP "TILL THIS CODE FIXED * * 
TEST TERMINATE 


NO 
YES 


TEST MULTI CHANNELS 


TCX 


IS DEVICE DISK 


NO 


YES» GET ACTIVE I/0 ENTRY 


NONE 


TEST IT0Q GATE 
OKAY» FIND MEX 
GET STATUS. 


WOOPS 


11 


ANONC260 
ANONC270 
ANONC280 
10s01225 


ANONC300 


10801240 
10801245 
10$s01250 
10801255 


25Fw0070 
ANON1450 
ANON1460 


ANON1470 


ANON1480 
ANON1490 
EL8. 

XXXX2210 
XXXX2220 
IOSO4AAM 
EL8. 

ANON15S00 


25FWC430 
XXXX2250 
XXXX2260 
XXXX2270 
XXXX2280 
XXXX2290 
XXXX2300 
XXXX2310 
XXXX2320 
XXXX233C 
25Fw0450 
XXXX2350 
XXXX2360 
XXXX2370 
XXXX2390 
XXXX2400 


. re ee er ee ee ee ee ee ee ee ee ee ee ee ee ee 


12457 02 


0003 41 


000000010000 000 VED 


12-27-79 09.357 H6600J 7.002 1/0 S U PERV IS OR 791219T0S0 PAGE 
INTERRUPT HANDLER - ACCEPT INTERRUPT 
000265 000327 3162 00 010 363 CANQ RDYRDY IS IT NORMA 
000266 000330 6C12 00 010 364 TNZ NORO NO 
000267 000000 6212 05 000 365 EAX1 QO» AL YESs SET TCX 
000270 701203 7223 05 09000 366 LXL2 eCRIO4sAL oP. CR 
000271 003774 3622 03 000 367 ANX2 eFCHNXsDU LCX 
000272 001706 6756 00 010 368 LDD PB.CRsBYFCR SHRINK CR wee NO CACHE 
000273 006013 4716 07 000 369 LDP Pz LOQs/SD.INOQe DL 
000274 200001 2203 15 000 370 LOXxO 1¢SeP.RMS SW 2 
000275 701001 1203 11 4900 371 SBLXO eCRMB2e14P.CR 
000276 701001 1203 11 000 372 SBLXO »CRMB2e7146P.CR 
000277 200001 7403 15 000 373 STXO TrSeP RMS RELATIVIZED 
000300 100010 7563 14 000 374 STQ »WEEP 144 oP. 100 Sw 1 
000301 200001 0343 15 000 375 LDAC 1To5eP.RMS 
000302 100012 7553 14 900 376 STA eWEEP 264 5P. 100 SW 2 
000303 200000 4503 15 000 377 STZ Or5eP.RMS 
000304 000000 6202 00 9000 378 EAXO 
C00305 701200 7403 171 £42900 379 STXO eCRIO1+1+P.CR FREE UP CHANNEL 
380 * 
000306 000427 2142 00 010 381 SZNC TGATE PROCEDURE GATE 
000307 777777 6002 04 000 382 TZE ~1TsIC WAIT 
000310 9000071 7442 56 010 383 STX4 DSTATsID MAKE SRET ENTRY 
000311 000003 6072 04 9000 384 TTF 3,1C 
000312 000073 2352 00 010 385 LDA DSTAT+#2 CYCLE TALLY 
000313 000071 7552 00 010 386 STA DSTAT 
000314 000427 7502 00 010 387 STC2 TGATE OPEN GATE 
388 x . 4 
C00315 701401 2203 12 000 389 LDXO @CRCT2e2 oP. CR 
000316 701402 1003 12 000 390 —CMPXO »CRCT 342 oP. CR IS ANYTHING QUEUED 
000317 900324 6002 00 010 391 TZE. NORST NO 
000320 007700 2352 07 000 392 LDA =07700-DL YES 
000321 100000 2553 14 9000 393 ORSA @WEST +4, P.,100 SET DUMMY DEVICE NO 
000322 000335 6232 00 010 394 EAX3 NORME SET STIO RETURN 
000323 007347 7102 00 010 395 TRA STIO START 1/70 ON CHANNEL 
396 * 
000324 397 NORST .OPEN eCRQG Tse P.CR 
000326 09000335 7102 00 010 398 TRA NORME 
399 * 
C00327 377777770000 000 400 RDYRDY OCT 377777770000 
401 * 
000330 402 NORO » OPEN eCRQAGTs se P.CR 
000332 900430 2252 17 010 403 NORMA LDX5 TX5 67 
(000333 000434 2352 17 010 404 LDA TARs7 
000334 002240 2552 15 010 405 ORSA IMWs5 LOG INTERRUPT 
000335 406 NORME NULL 
000335 700336 7203 17 O00 407 LXLO eCRILY+7 oP. CR IS A GATE SHUT IN THIS PROCESSOR 
000336 000345 6002 00 010 408 TZE . SLPRO NOs PROCESS INTERRUPT 
000337 #700037 7503 00 000 409 STC2 e»CROGT#HS «oP. CR YESs SET FLAG 
000340 410 NOFLT OCLIMB RETURN TO INTERRUPTED PROCESS 
000340 000000713400 000 VFD 18/0609/71341/161/0C.1/076/0 
1/09/04 8/001 /No 1/02/00 2/1012/0 


12 


XXXX2410 
XXXX2420 
XXXX2430 
XXXX2440 
XXXX 2450 
XXXx2460 
XXXX2470 
XXXX2480 
XXXX2490 
XXXX2500 
XXXX2510 
XXXX2520 
XXXX 2530 
XXXX2540 
XXXX2550 
XXXX2560 
XXXx2570 
XXXX2580 
XXXX2590 
XXXX2600 
XXXX 2610 
XXXX2620 
XXXX2630 
XXXX2640 
XXXX 2650 
XXXX2660 
XXXX2670 
XXXX2680 
XXXX 2690 
XXXX2700 
XXXX2710 
XXXX2720 
XXXX 2730 
XXXX2740 
XXXX2750 
XXXX2760 
XXXX2770 
XXXX2780 
XXXX2790 
XXXX2800 
XXXX 2810 
XXXX2820 
XXXX 2830 
XXXX2840 


ANONC320 


ANONC330 
25FwC090 
ANONC350 


1245T O2 


12-27-79 
000342 500000 
000343 000154 
000344 000340 
000345 000224 
000346 000340 
000347 700037 
000350 006145 
000351 300107 
000352 400070 
000353 000652 
000354 300147 
000355 000002 
000356 9000000 
000357 300044 
000360 000410 
000361 000060 
000362 900377 
000363 700072 
000364 600231 
000370 000000 
000371 000373 
000372 100011 
000375 006133 
000376 000410 
000377 300044 
000400 000363 
000401 400005 
000402 000200 
000403 000363 
000404 9006024 
000405 000000 
000406 000002 
000407 300016 


09.357 


7103 


000373 


4736 
7102 


7203 
6012 
2203 
3002 
6012 
4706 
259.5 
7537 
7737 


00 


07 
00 


000 


000 
010 


000 
010 
000 
000 
010 
000 
000 
000 
000 


H6600J7.002 


INTERRUPT HANDLER - Pre Ko 
(AL 


* 
WOOPS 


SLPRO 


SLSUB 


DISP9 


PENG 


CDISP 


1/0 


LDAC 
TNZ 
TRA 


SZNC 
TZE 
STZ 
LDP 
STC2 
LDAQ 
STAQ 
SZNC 
TZE 
CAMP 
LDX6 
TZE 
SZN 
TZE 
STQ 
ACS 
2 SHUT 
LDP 
EPPR 
TRA 


«OPEN 
LDP 


TRA 


LXLlQ 
TNZ 
LOXO 
CANXO 
TNZ 
LDP 
LDA 
STSS 
LOSS 


S$ UPERVIS OR 


ears ye 
04QY)P.I¥W 
10TA 
NOFLT 


IGATE 

NO FLT 
»CROGT#5 voP. CR 
P.SSASD.SSAe DL 
eKLINTs7 oP. KL 
aWTEMPos FSS 
TIMEX 
@KLCAMs7 PL KL 
2IC 


eKLPRGo7 oP. KL 
GT QUE 

DISQOPT 

CDISP 
eCRCCKs7>-P.CR 
eSTINTss F.SSA 
oCROSPoo F.CR 
P1 a k®e DL 
PQ,OPENG 

Geo Pl . 


eCROSPoseP.CR 
P.KLsoS0.KL-DOL 
GTQUE 


CONDITIONAL REDISPATCH 


eKLPRG»o7 oP. KL 
SLSUB 
oWFETY Poo PLSS 
eFBT1C/0U 

SLSUB 
P.PIDsSD.~PIDs, DL 


O-7-P.PID 


2eAUseP.PID 
eKLKPSe7 *eeoP.KL 


COMMON ENTRY PROCEDURE 


7912191080 


DIO WE GET THERE TOO SOON 
NO 
YESs FORGET IT 


IS IHLR BUSY 
YES» DON'T INTERFERE 
SET IHLR ALIVE & WELL 


SET PROCESSOR IN IHLR 
INTERRUPT TIME 


IS ASSOC MEM TO BE CLEARED 
NO 

YES» DO IT 

GET INTERRUPTED KPX 

NONE IN EXEC 

TEST REDISPATCH OPTION 
OPTION NO 

SET CLOCK TIME 

ADD ONE INTERRUPTED COUNT 


»MDISP SEGID 

SET RETURN 

CALL .MDISP.9 

AND I.H BECAME A CFU PROCESS 


RESTORE Kt DESCRIPTOR 


IS OPTED 


IS A SUBDISPATCH ACTIVE 
YES, REDISPATCH 


DID S/S EXHAUST 
YES» FORCE REDISPATCH 


GET CURRENT PID INDEX 
SAVE S/S REGISTER 
SWITCH TO PROCESSOR S/S 


PAGE 
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ANONC360 


10801265 


10801270 
-10801275 


ANON1300 
ANON1310 
25FwC110 
ANON1330 
2S5FwWwC130 
ANONO820 


ANONC830 


ANONC840 
ANONC850 
ANONC860 


XXXX2860 
ANONO390 
ANONC4OO 
14FW1780 


10S0€é495 
10806500 
10$06505 


ANONO450 
XXXX 2880 
RDSP2060 
RDOSP2070 
RDSP2080 
14FW1800 
14FW1810 
IOSQ4AAM 
IOSO4AAM 
IOSO4AAM 
RDSP2110 
RDSP2120 
RDSP2130 
EL8. 

E18. 

EL8. 

EL8. 


' 
i 
. 
i. 


@ 
e 
® 
® 
® 
e 
@ 
- 
e 
@ 
® 
8 
@ 
e 
® 
® 
® 
je 
le 
le 

@ 
1 @ 


12457 02 


12-27-79 09.357 
000410 300044 0343 17 
000411 000644 7552 17 
000412 000427 2142 Q0 
000413 777777 6002 04 
000414 000072 2242 51 
000415 000003 6012 04 
000416 000427 7502 00 
000417 000671 7102 00 
000420 000072 4502 56 
000421 900003 6072 04 
0004e2 000073 2352 00 
000423 a00072 7552 00 
000424 000427 7502 00 
000425 9000410 6202 00 
000426 003036 7102 00 
000427 777777777777 

000430 
000434 


000 
010 
010 
000 
010 
000 
010 
010 


0170 
000 
010 
010 
010 
0170 
010 


000 


469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 


H6600J37.002 


GTQUE 


TGATE 
TX5 
TAR 


1/0 


S UP ERVIS OR 
INTERRUPT HANDLER ~ ACCEPT INTERRUPT 


oKLPRGe7 oP. KL 


MYPRG»7 
TGATE 
~1,1C 
DSTAT41eI1 
3-1C 
TGATE 
GTCHN2 


DSTAT+#+14I1ID 
3e1C 

DS TAT +2 
DSTAT +1 
TGATE 
GTQUE 
STRET 
RESTORE 


aa, 
4 
4 


7912191080 


SAVE INTERRUPTED KPX 
PROCEDURE GATE 
WAIT 
IS ANY STATUS STACKED 
YES 
NO» OPEN GATE 

& PROCESS IMw'S 


CLEAR WORD & BUMP TALLY 


CYCLE TALLY 
OPEN GATE 

SET RETURN 
RETURN STATUS 


PAGE 
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EL8. 

EL8. 

EL8. 

XXXX2930 
XXXX2940 
XXXX2950 
XXXX 2960 
XXXX2970 
XXXX2980 
XXXX2990 
XXXX 3000 
XXXX3010 
XXXX3020 
XXXX3030 
XXXX 3040 
XXXxX3050 
XXXX3060 
XXXX3070 
XXXX 3080 
XXXX3090 
XXXX3100 


1245T 02 


12-27-79 
000440 000000 
000441 001706 
000442 775537 
000443 000711 
000444 900000 

000445 300133 
000446 000614 
000447 501007 
000450 000634 
000451 000456 
000452 200000 
000453 000631 
000454 000070 
000456 000634 
000457 000465 
000460 900000 
000461 200000 
000462 000631 
000463 400000 
000464 200000 
000465 900000 
000466 100471 
000467 000640 
000470 000634 


09,357 


000440 
0116 00 000 
6756 00 010 
6362 11 000 
7162 00 010 
6232 01 000 
2223 13 000 
7422 00 010 
2243 12 0900 
1042 13 010 
6C12 00 010 
2343 14 O00 
6046 00 010 
7162 00 010 

000455 


000456 
6222 13 010 
7422 00 010 
2242 12 000 
2353 14 000 
6046 00 010 
2362 03 000 
2563 14 000 


0112 56 000 
6072 90 010 
2362 13 010 
7562 13 010 


H6600J7.002 


I/ 


0 SUPERVISOR 7912191080 PAGE 


INTERRUPT HANDLER =~ PROCESS FAULT CHANNEL 


* 

ee ee ee ee ee ee a ee a 2 

* A ~-IMw WORD 

* Q ~~INTERRUPT LEVEL 

* X1 D/C 

* Xx2 D/C 

* X3 I0OM # 

* X4 

* Xx5 D/C 

* X6 KPX OF INTERRUPTED PROCESS 

* X7 PROCESSOR # 

*® 

* P2 P,RMS 

* P3 P.KL 

* PS PB.CR 

* P6 P.SSA OF POP 

* P7 P.CR 

rr a a a a a a a ed 
INHIB ON 

FAULT NULL 
CCAC 
LOD PB.CR/ABYFCR SET CACHE BYPASS DESC 
EAQ a2 LOSIMbn—1 41 IMW OFFSET 
XEC INTCV 
EAX3 OO AU IOM # 
LDX2 eKLICNe3 oP. KL GET IOM OFFSET + X3=10M# 
STX2 IOMOFF 
LDX4 »~CRMB44+4,2,PB.CR GET FAULT CHAN. DCW POINTER 
CMPX4 MYB4,3 COMPARE OUR OCW DATA ADDR WITH HARD O 
TNZ CHKQU 
SZN 0e24eP.4RMS EQUAL QUEUE IS EMPTY OR FULL 
TMOZ FL TEX QUEUE IS EMPTY~ IGNORE IT 
XEC DBUG 
ZOP 164DU QUEUE IS OVERFLOW 

* 

CHKQU NULL THERE IS QUEUE 
EAX2 MYMB4 ,3 
STX2 INCRE 
LDX4 0-2 GET STATUS WORD ADDR IN X4 
LDA O04eP.RMS GET STTATUS 
TMOZ FLTEX QUE EMPTY OR ALREADY PROCESSED 
LDQ =0400C00,DuU 
ORSQ Or 4eP.RMS 

* 

* 

INCRE NOP ek ID INCREMENT OUR ADDR.AND DECREMENT TALL 
TTF GETCH NO TALLY RUNOUT ON THIS DCW 
LDQ MYREF 43 REFRESH OCW 
STQ MYMB4 43 
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IOSO4ASR 
IOSO4GASR 
IOSO4AAM 


IOSO4AAM 
IOSO4AAM 


IOSO4AAM 


1245T 02 12-27-79 


000471 
000472 
000473 
000474 


000475 
0004 76 
000477 
000500 
000501 
000502 


000503 


000504 
000505 
000506 
(000507 
000510 
000511 
000512 


000513 
000514 


000515 
000516 
000517 
000520 
000521 
000522 
000523 
000524 
(000525 


000526 
000527 
0005 30 


000000 
000077 
000002 
000503 


300133 
701010 
777777 
000011 
701013 
000011 


002154 


700046 
000010 
700312 
000044 
000000 
000051 
700000 


000003 
700052 


002154 
000777 
000573 
001700 
000545 
001700 
000006 
000650 
000526 


000573 
000610 
000610 


09.357 


6222 01 O00 
3622 03 000 
1022 03 000 
6012 00 010 


2223 13 000 
4503 12 000 
3752 07 000 
7352 00 000 
0353 12 000 
7312 00 000 


000503 


7552 00 010 


000504 
7173 00 000 


7102 04 515 


2203 17 9000 
7732 00 000 
6352 13 9000 
2752 07 000 
7573 10 900 
000513 
6202 00 090 
7173 00 000 
000515 
2352 00 010 
3152 03 000 
6002 00 010 
3152 07 000 
6002 00 9010 
3752 07 O00 
7712 00 000 
7552 00 010 
7102 05 010 


7102 00 010 
7102 00 010 
7102 00 010 


533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 


557 
558 
559 
560 
561 
562 


563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 


H6600J 7.002 


GETCH 


+ + & & 


* TRACE 
* 


TESTCH 


* 


1/0 


EAXe 
ANX2 
CMPX2 
TNZ 


S UPERV 


INTERRUPT HANDLER = PROCESS 


O- AU 
=0000077 DU 
=0000002 dU 
NOCON 


WE WILL PICK UP WD3 
BIT3~8 CONTAINS THE 
THEN WE CONTINUE ON 


LDX2 
STZ 
ANA 
ALS 
ADLA 
ARS 


NULL 
STA 


eKLICNs3 oP. KL 
»CRMB148 42eP.CR 


20777777 » DL 
9 
eCRMB 141 102, 
9 


BUS YF 


IOM FAULT TYPE 


« TROPN 
XED 
TRA 
LDxO 
LRL 
EAA 
ORA 
STAQ . 
e TRPUT 
EAX0 
XED 
NULL 
LDA 
CANA 
TZE 
CANA 
TLE 
ANA 
ARL 
STA 
TRA 


TESTCK/NONE 


Is OR 


FAULT CHANNEL 


ISOLATE CHA 

IS THIS CONNECT CHAN ? 

NO 

YES 
OF CONNECT CHAN. 
CHAN#. CONNECT WAS ATTEMPTING TO START, 
AS NORMAL 


GET IOM OFFSET 

CLEAR IT OUT 

LEAVE ONLY THE TYPE 
POSITION FOR THE ADDR 
P.CR ADD IN THE CHAN # 
REPOSITION 


SAVE STATUS WORD 


oCRTR V+4 aaP.CR 


TESTCHsS 


oCRTEPs7sP. CR 


36 

0,3 

eYIOF SOL 
0-0-P.CR 
ASIS 

3 
eCRTIRV4+8oeP. 


BUSYF 
20777 DU 
LIMBO 
=0170C/DL 
IOFLT 
=0170CeDL 
6 

TEMST 

*tT SAL 


SCU FAULT CODE TABLE 


TRA 
TRA 


TRA 


LIMBO 
GEPR 
GEPR 


GET TRACE DATA AREA 


CR 


NO CHAN# GIVEN 

IS THIS SYS FALT CODE ? 
NOvI/0 FLT 

YESs SYS FLT ISOLATE IT 


SAVE SYS FLT CODE IN AL 
TRANSFER TO FALT TYPE 


0001 NOT USED 
0010 NON EXISTENT ADDR 
0011 FAUT ON CONDITION 


7912191080 PAGE 


1245T C2 


12-27-79 
000531 000573 
000532 900607 
000533 000607 
000534 000607 
000535 000610 
C00536 000610 
000537 000610 
000540 000610 
000541 000610 
000542 000610 
000543 000607 
000544 000607 
000545 000060 
000546 900604 
000547 000017 
000550 000040 
000551 000650 
000552 000553 
000553 000610 
000554 000601 
000555 000610 
000556 000610 
000557 000610 
000560 000576 
000561 000610 
000562 000576 
000563 000610 
000564 000576 
000565 000576 
000566 000576 
000567 000601 
000570 000610 
000571 000576 
000572 000576 
000573 000070 
000575 000610 
000576 000070 
000600 000610 
000601 000070 
000603 000456 
000604 9000070 


09.357 


7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 


000545 
3152 07 000 
6012 00 010 
3752 07 000 
2752 07 000 
7552 00 010 


7102 05 010 


7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 
7102 00 010 


7162 00 010 
000574 
7102 00 010 
7162 00 010 
000577 
7102 00 010 
7162 00 010 
000602 
7102 00 010 
7162 00 010 


579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 


H6600J37.002 


* 
IOFLT 


+ 


* 
LIMBO 


LIMBO1 


LIMBO2 


LIMBO3 


1/0 


INTERRUPT HANDLER 


TRA 
TRA 
TRA 
TRA 


TRA 
TRA 


XEC 
ZOP 
TRA 
XEC 
ZOP 
TRA 
XEC 
ZOP 
TRA 
XEC 


S UP ERV I$ 0R 


LIMBO 
PARTY 
PARTY 
PARTY 
GEPR 
GEPR 
GEPR 
GEPR 
GEPR 
GEPR 
PARTY 
PARTY 


2060, 0L 


LIMBO 3 


=017DL 
~FBT3C0/0L 


TEMST 
*+ 1 AL 


FALT CODE TABLE 


GEPR 
LIMBO2 
GEPR 
GEPR 
GEPR 
LIMBO1 
GEPR 
LIMBO1 
GEPR 
LIMBO 
LIMBO 1 
LIMBO1 
LIMBO2 
GEPR 
LIMBO1 
LIMBO1 


DBUG 
2 

GEPR 
DBUG 
3 

GEPR 
DBUG 
4 

CHK QU 
DBUG 


0100 
0101 
0110 
0111 
1000 
1001 
1010 
1011 
1100 
1101 
1110 
1111 


SET 


1101 


TRY 


I/O FAULT BIT IOSO4ASR 
LOSOGASR 

TRA TO FAULT TYPE 

COOO FALT WITH NO CODE 

0001 ILLEGAL CHANNEL # IOSO4AAM 

0010 ILLEGAL SERVICE REQUEST 10806695 

0011 PARITY sSCRATCH PAD READ 

C100 256K OVF 

0101 LPW TALLY RUNOUT, CONNECT CH 

01710 NOT PCW ON CONNECT CHAN 

0111 CP FIELD ALL ONES 

1000 CHAR. POS/SIZ DESCRIPANCY 

10071 NO SCU RESPONCE 

1010 PARITY BETWEEM MODULES 
10771 ILLEGAL TALLY CONTROL 
1100 PTP FAULT 
PTW FLAG FAULT V 

1710 MODE POSITION SW INCORRECT 

1111 NO PORT SELECT 
16FW0130 
16FWO140 
16FWC150 
16FWO160 
16FWO170. 
16FWC180 
16FWC190 
16FWC200 

NEXT QUE IOSO4AAM 
16FWC220 


7912191080 PAGE 17 


~ PROCESS FAULT CHANNEL 


NOT USED 

DATA PARITY » STORE TO SC 

DATA PARITY » IN STORE 

DATA PARITY » STORE TO SC/IN STO 
NOT CONTROL PORT 

PORT NOT ENABLE 

ILLEGAL INSTRUCTION 

STORE NOT READY 

ZAC PARITY ACTIVE MODULE. TO SC 
DATA PARITY ACTIVE MODULE TO SC 
ZAC PARITY» SC TO STORE UNIT 
DATA PARITYs SC TO STORE UNIT 


ISOLATE I/0 FAULT CODE 


1245T 02 


12-27-79 
000606 000610 
000607 002161 
000610 002154 
000611 000777 
000612 000625 
000613 000002 
000614 000000 
000615 501002 
000616 000456 
000617 000650 
000620 000030 
000621 570000 
000622 002154 
000623 200000 
000624 400000 
000625 oa00000 
000626 002214 
000627 002240 
000630 000456 
000631 006133 
000632 002156 
000633 000666 


09.357 H6600J7.002 1/0 S UP ERVIS OR 7912191080 PAGE 


INTERRUPT HANDLER = PROCESS FAULT CHANNEL 


000605 629 ZOP 5 
7102 00 010 630 TRA GEPR 
631 * 
632 * 
0006C7 633 PARTY NULL PARITY ERR ~-TRY TO SCAN MEMORY PARITY 
0542 00 010 634 AOS PARCN 
635 * TRA GEPR 
636 * 
000610 637 GEPR NULL 
2352 00 010 638 LDA BUS YF LOAD STATUS WORD 
3752 03 000 639 ANA =0777,DU ISOLATE CHAN#A 
7512 70 010 640 STCA CHNQ~, 70 STORE CHA IN SHFT INST. 
7352 00 000 641 ALS 2 MPY BY 4 
0352 03 O00 642 IOMOFF ADLA ** 9 DU 
2223 01 900 643 LDX2 ~CRMBZ,ALPB.CR PICK UP STATUS WORD 
6002 00 010 644 TZE CHK QU NULL PTR» IGNORE IT 
2352 00 910 645 LDA TEMST GET THE FALT CODE 
7352 00 000 646 ALS 24 SHIFT INTO SUBSTATUS: FIELD 
2752 03 000 647 ORA =0570000 ,bdU SET SOFTWARE MAJOR STATUS 
2362 00 010 648 LDQ BUS YF GET THE STATUS WORD 
7573 12 OOO 649 STAQ Oe2eP.4RMS STCRE STATUS WORD 
2352 03 000 650 LDA =0.0,DU TURN ON BIT .O IN AR 
7712 00 000 651 CHNO ARL ** 
2222 13 910 652 LDX2 MAP+12,3 GET TERM WORD 
2552 12 010 £653 ORSA IMWe2 SET TERM INT BIT. 
7102 00 010 654 TRA CHKQU GO CHECK NEXT QUEUE 
| 655 INHIB OFF 
656 * 
000621 . 657 FLTEX NULL 
4734 Q7 000 658 LDP PeKLsSD.KLADL 
4500 00 010 659 STZ FLTIT CLEAR FAULT FLAG 
7100 00 010 660 TRA GTCHN 


18 


16FWC230 
16FWC240 


TOSO4ASR 


EL8. 


10807345 
10807350 


~—1OSO4A5R 


ANONO510 


1245T 02 12-27-79 


000634 
000635 
0006 36 
000637 
000640 
000641 
000642 
000643 
C006 44 
000645 
000646 
000647 
000650 


000000000000 
900000000000 
900000000000 
o0000000c000 
000000000000 
000000000000 
000000000000 
000000000000 
o000c00c00000 
0900000000000 
000000000000 
000000000000 
000000000000 


09.357 


000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 


H6600J7.002 


662 
663 
664 
665 
666 
667 
668 
669 
670 


671 


672 


673 


1/0 


S UP ERVI S$ OR 7912191080 PAGE 


INTERRUPT HANDLER - PROCESS FAULT CHANNEL 


* 
* 
x 
* 
* 
* 
x 
* 
MYMB4 
MYREF 
MYPRG 


TEMST 


SYSTEM FAULT CONSTANT SECTION 


OCT 


0-000 


0-000 


0-0,0-0 


0 USED TO FORMAT FAULT CODE 


19 


EL8., 


—1245T C2 


000651 


000654 
000655 
000656 
000657 
000660 
000661 
000662 
000663 
C006 64 
000665 


000666 
000667 
000670 


000671 
000672 
000673 
000674 
000675 
000676 
000677 
000700 
C007 01 
000702 
C00703 


000704 
000705 


12-27-79 09.357 


000000011007 000 
000652 
002263740640 000 
000000001762 000 
004000 1150 03 000 
000706 6000 00 010 
200000 3150 03 000 
000440 6010 00 010 
001777 2200 03 000 
777777 3400 11 000 
777777? 2350 11 000 
001612 7100 00 9010 


000666 
006145 4764 07 000 
006133 4734 07 000 
006063 4724 07 000 


006131 4744 07 000 
006013 4714 O07 O00 
001761 4714 07 O00 
000654 6704 00 9010 
000000 6210 00 09000 
010240 5202 01 000 
002240 2351 11 000 
001715 6000 00 010 
001612 7050 00 910 
002153 7560 00 010 
077777 6551 11 000 


092000 1150 03 9000 
000656 6030 00 010 


000706 


H6600J 7.002 1/0 


S UP ERVIS OR 


7912191080 PAGE 


INTERRUPT HANDLER ~ SELECT AN INTERRUPT 


INTERRUPT HAS BEEN TAKEN AND HARDWARE IMW WORD (SD.IMW) 
TRANSFERED TO THE SOFTWARE IMW WARD. INTERRUPTED PROCESS 


HAS BEEN TAKEN OUT OF EXECUTIONZ/ACCOUNTING FUNCTIONS PERFORMED. 


* 
* 
* 
* 
* INDEX 7 
* PROCESS WAS INTERRUPTED 
* 
* ODRO 
* ODR1 CP. 10Q) 
* ODR2 P.RMS 
* ODR3 PSKL 
* ODR4 P.0DD 
* ODRS 
* ODR6 P.SSA 
* ODR7 PCR 
* 
TIMEX EBSS 2 
BPVEC VEC 
GTCHN1 CMPA «FBT6,DU 
TZE INTOK 
CANA eFBT1,DU 
™NZ FAULT 
LDXO =01777%DU 
ANSXO -141 
LDA -141 
TRA CHAN 
* 
GTCHN NULL 
LOP P.SSA#SDsSSAe DL 
LDP P.sKLoSD.KL»DL 
LDP 
GTCHN2 NULL 
LDP P.DDDsSD.DDD,OL 
LDP 
Lop PL IOQs.CTYP/DL 
LDD PO, BPVEC 
EAX1 0 
GTCHN4& RPT 4eleTtT NZ 
LDA IMW~2 210S01-P0 
TZE TMOR 
TSXS5 CHAN 
STQ CHANO 
ERSA -1414F0 
INHIB OFF 
CMPA =02000,DU 
TRC GTCHN1 


INTOK NULL 


IF INTPG IS NON ZERO A USER 


INTERRUPT TIME 


el SReo Co I MWH+20—-2.2 10S eC Ro WB) 


IS IT CHANNEL 6 
YES» PROCESS IT 
NOs IS IT FAULT. CHAN 
YESs PROCESS IT 


GET IMW WORD 
C(XR5 IS ALREADY SET) 


GET NEXT CHANNEL INTERRUPT TO PROCESS 


P.2RMS SD aRMSo DL 


P.10QsSD.1I0Qs DL 


RELOAD SSA DESC. 


CACHE BYPASS VECTOR 


SCAN FOR ACTIVE IMW ENTRY 

PICK UP IMW 

NONE FOUND, CHEK LCST INTERRUPTS 
DETERMINE CHAN # 

SAVE CHANA 

CLEAR BIT FOR THIS CHANNEL 


ARE THESE OVERHEAD CHN INTERRUPTS 
YES 


lL: IF ZERO» TKE DISPATCHER WAS INTERRU 


20 


ANONC560 
IOSO4AAM 


10801350 
10801355 
14FW1690 
ANONCS40 
10801360 


10801365 


10801370 
10801375 


ANONC590 


ANONC600 


ANONC610 
ANONC620 
10801335 


IOSQ4AAM 


IOSO4AAM 


10801395 


10S$03740 


yoo 


1245T 02 


eeer7 79 
000706 000002 
000707 900000 
000710 775537 
000711 000022 
000712 000000 
000713 000000 
000714 900000 
000715 300133 
000716 000030 
000717 001137 


09.357 


7 360 
6220 
6 360 


7730 
6200 
6230 
6210 
0211 
1020 
6010 


00 
02 
11 


00 
06 
01 
12 
13 
03 
00 


000 
000 
000 


000 
000 
000 
000 
000 
000 
010 


H660037.002 


1/0 


INTERRUPT HANDLER 


QLs 
EAX2 
EAQ 
DIV 
LRL 
EAXO 
EAX3 
EAX14 
ADLX1 
CMPX2 
TNZ 


S UP ERVIS OR 


2 
0-QU 


oe LOS~IMbn1 41 
NRIOC »DU 


eKLICNe3 oP. KL 


6*44DU 
NOPSIA 


7912191080 PAGE 


~ SELECT AN INTERRUPT 


4*CHANO 


IMW OFFSET 
IS NEXT INSTRUCTION IF MULTI-IOMS. 


INTYP => QL, IOM # => AU. 
INTYP 

IOM # 

4* CHANO . 

TRUE CHANNEL INDEX 

TEST CHANNEL 6 

NO 


TOSQ4AAM 
IOSO4AAM 
IOSO4AAM 
TOSO4AAM 
IOSOQ4AAM 
IOSQ4AAM 
TOSO4AAM 
IOSQ4AAM 
IOSO4AAM 
IOSO4AAPM 


1245T 02 


12-27-79 
000720 001706 
C00721 000003 
000722 000666 
000723 501001 
000724 000666 
000725 400000 
000726 200000 
000727 000742 
000730 002160 
000731 200000 
000732 002170 
000733 000031 
000734 002164 
000735 002163 
000736 441003 
000737 002162 
000740 002313 


09.357 


000720 


6754 
1000 
6C10 
7221 
6000 


2240 
3041 


6000 


0540 


2 363 
7532 
7722 
7562 
7552 
2352 
7552 
7052 


070 
000 
010 
000 
010 


000 
000 
010 
010 


H6600J7.002 
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INTERRUPT HANDLER - PROCESS PSIA CHANNEL 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
Pp 


SIA 


+ + & & 


i Sc er 


INTERRUPT LEVEL 
LC xX . IOSQ4AAM 


IOMmM# 


KPX OF PCP 
PROCESSOR # 


P. I0Q 
P.RMS 
P.KL 


PB.CR 


P.eSSA OF POP 
PCR 


PERIPHERAL SUBSYSTEM INTER FACE RELATED I/0 CODE 


PROCESS PSI CHANNEL SPECIAL INTERRUPTS 
PB.~CR-BYFCR SET CACHE BYPASS CR DESC 


CALL MISC EP? 


INHIB 
LDQ 
SREG 
QRL 
STQ 
STA 
LDA 
STA 
TSX5 


3D0U TEST SPECIAL INTERRUPT 10S$03815 
GTCHN NO» GET NEXT INTERRUPT 

~CRMB2,1.4PB.CR GET LAST STATUS WORD POINTER 

GTCHN - NONE=~ IGNORE IT 

=0400000,du 

Oe2eP.RMS HAS THE LAST STATUS WORD BEEN PROCESS 
PSIA1 

SPOVF NOs ACCUMULATE QUEUE OVERLAY COUNT 

ON 

Or2eP.RMS SPECIAL STATUS WORD 

REGW 

25 4*CHN# IN QL 

MSGt2 

MSG+1 IOM# IN BIT 16-17 

oMPOP 6*5 12+3, DU GET POP6 ID FOR EP2 

MSG 

MISC7 MAKE QUE ENTRY . £18. 


© 
Yd] 
1245T 02 12-27-79 09.357 H660057.002 1/0 SUPERVISOR 7912191080 PAGE 23 e 
INTERRUPT HANDLER - PROCESS PSIA CHANNEL 
000741 002170 0732 00 010 785 LREG REGW EL8. @ 
786 INHIB OFF EL8. 
787 * 
000742 788 PSIA1 NULL @ 
000742 501001 2221 11 o000 789 LDX2 eCRMB2s14PB.CR FETCH STATUS WORD POINTER 
000743 001117 6000 00 010 790 TZE TSOVR NULL IOSO4ASR 
000744 200000 3041 12 oO00 791 TRAGN CANX4 Or2-P.4RMS HAS THIS STATUS WORD BEEN PROCESSED ? & 
000745 001117 6000 00 010 792 TZE TSOVR 
000746 200000 2361 12 000 793 LDQ Or2eP.RMS GET SPECIAL STATUS WORD 
000747 200000 6441 12 9000 794 ERSX4 Ov2eP.RMS TURN OFF STATUS WORD BITO @ 
000750 701001 4421 11 OOO 795 SXL2 ~CRMB2s1-P.CR UPDATE LAST QUEUE POINTER 
000751 000001 6220 12 9000 796 EAX2 12 MOVE INDEX TO NEXT QUEUE LOCATION 
000752 701001 7421 11 O00 797 STX2 ~CRMB2s1 +P. CR STORE NEXT STATUS WORD POINTER e 
000753 501003 1021 11 9000 798 CMPX2 ~CRMB4514PB.CR HAS ENTIRE QUEUE BEEN PROCESSED ? 
000754 000761 6000 00 010 799 TZE PSICH YES 
(00755 002234 2250 13 010 800 LDXS MAP428,53 IOSO4AAM @ 
000756 002240 0340 15 010 801 LDAC IMWs5 GET IMW WORD IOSO4AAM 
000757 004000 2750 03 000 802 ORA ~FBT6,DU SET CHANL 6 BIT IOSO4AAM 
000760 002240 7550 15 010 803 STA IMWs5 TO FORCE MORE PROCESSING IOSQO4AAM @ 
804 
000761 805 PSICH NULL SET INDEXES FOR THIS PSI CHAN. SPECIAL INTERRUPT 
000761 o000000 6350 02 O00 806 EAA 0, QU UPPER HALF OF STATUS WORD @& 
000762 077000 3750 03 9000 807 ANA =0770C0.,oU INTERRUPTING CHANNEL 
000763 000007 7710 00 o00 808 ARL 7 4*xCHANs NUMBER IN BITS 10~17 
000764 000000 6210 01 000 809 EAX1 O- AU | r 
(00765 300133 0211 13 000 810 ADLX1 eKLICNs3 oP. KL 1OMH(384)44% CHNO=--TCX 
000766 701200 7241 11 0900 811 LXL4 ~CRIO141-P.CR 
000767 100000 3040 03 o00 812 CANX4 =0100C00.,DdU IS THIS A PSI CHAN? é 
000770 000666 6000 00 910 813 TZE GTCHN NO» IGNORE IT 
000771 000002 7710 00 000 814 ARL 2 CHAN#H IN BIT 12-17 
000772 002153 7550 00 010 815 STA CHANO ® 
816 * 
817 * A = CHAN# 
818 * Q@ = SPI STATUS WCRD e 
819 x 
820 * XC = INTERRUPT LEVEL 
821 * X71 = TCX @ 
822 * X3 = IOM# 
823 * X7 = PROCESSORA 
824 * & 
000773 000000 6260 06 000 825 EAX6 Or QL 
C00774 001000 1060 03 oO00 826 CMPX6 =01000,DU IS THIS A SUSPEND SPI 
000775 001000 6000 00 010 827 TZE SPLTR YES & 
000776 002000 1060 03 000 828 CMPX6 =O0200C,DU IS THIS A RELEASE SPI 
000777 001145 6010 Q0 010 829 TNZ FXLVL NO-FIX INTERRUPT LEVELS e 
830 * 
831 * TRACE MPC CONTROLLER SPECIAL INTERRUPTS 
001000 832 SPLTR NULL 
833 INHI8 ON & 
001000 834 ~TROPN  SPLT1.4GREG 
@ 
© 


1245T C2 12-27-79 
001000 700044 
001001 000012 
001002 700312 
001003 000000 
001004 000006 
001005 002153 
001006 000007 
001007 000064 
C01010 700000 
001011 000003 
0017012 700052 
001013 002000 
001014 001027 
001015 701200 
001016 000003 
001017 000666 
001023 001073 

001026 000666 
001027 701200 
001030 000003 
001031 000666 
001032 300000 
001033 100000 
001034 000666 
001035 000004 
001036 701203 
C01037 003774 
001043 701203 
C01044 000003 
001045 701200 
C01046 000002 
001047 


000002 


09.357 


7173 00 000 


7102 04 1013 


2203 17 000 
6352 13 000 
7352 00 000 
2752 00 010 
7352 00 000 
2752 07 000 
7573 10 000 
— 001011 

6202 00 000 


7173 00 O00 


1060 03 000 
6000 00 010 


001015 


7223 11 429000 
3022 03 900 
6012 00 010 


001020 
7052 00 010 


001024 
7100 00 910 


001027 
7221 11 £42000 
3020 03 900 
6000 00 010 
3620 03 000 
1020 03 0900 
6C10 00 010 


001035 
3350 07 9000 
7221 11 000 
3620 03 000 


001040 
2363 11 000 
3762 07 O00 
3553 11 000 
3162 07 OO 
6012 04 O00 


H6600JN7.002 


RELS2 
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INTERRUPT HANDLER 


XED 
TRA 
LOXxO 
EAA 
ALS 
ORA 
ALS. 
ORA 
STAQ 
2 TRPUT 
EAXO 
XED 


INHI8 
CMPX6 
TZE 


NULL 
INHIB 
LXL2 
CANX2 
TNZ 


2 SHUT 
TSX5 


«2 OPEN 
INHIB 
TRA 


NULL 
LXL2 
CANX2 
Ze 
ANX2 
CMPX2 
TNZ 


NULL 
LCA 
LXL2 
ANX2 
INHIB 


2 SHUT 
LDQ 
ANG 
ANSA 
CANQ 
TNZ 


S$ UP ERVIS OR 


eCRTIRV4+2 vo eP.CR 
SPLT14$ 
@CRTEPs7 oP. CR 
0,3 

6 

CHANO 

7 

~YPSI4DL 
Ore0eP.CR 

ASIS 

3 
eCRTRVF+8 ooP. CR 


OFF 
=02000,0U 
RELIT 


SUSPEND COMMAND 
ON 
«CRIO1/1eP.CR 
34DU 

GTCHN 


o~CRQGTssP.CR 
SPDPSI 


oCRQGTosP.CR 
OFF 
GTCHN 


RELEASE COMMAND 
~CRIO1414P.CR 
3,00 

GTCHN 
=0300000,0uU 
=0100000.,bdU 
GTCHN 


4/0L 
»=CR1I0441-P.CR 
oF CHNXsDU 

ON 


~aCRQGTes PF. CR 
«CRIO441 oP. CR 
34DL 
eCRIO141714P.CR 
eFBT34,DL 
2eIC 


7912191080 PAGE 


~ PROCESS PSIA CHANNEL 


IOM# IN BIT16-17 
ITS IN BITS 10- 11 


SET SPI PROCESSING TYPE 


IS THIS A RELEASE SPI ? 
YES 


SPI RECIEVED 


SUSPEND OR SUSPEND CMD CHAN ? 
YES, BITS SET AT CMD TIME 


GO TO MARK PSI CHANNELS 


GET NEXT INTERRUPT 
SPI RECIEVED 


SUSPEND OR SUSPEND CMD CHAN 7? 
NO BIT 

CHANs PSIA INDICATOR BITS 

IS THIS PSIA CHAN ZERO ? 

NO» IGNORE IT 


MASK =777777777774 


LCX 


FORMER CHANNEL T&D AND STOP BITS 
CLEAR SUSP & SUSPEND CMD BITS 

IS T&D IN CTL 

YES, STET 


24 


IOSQ4AAM 
TOSO4AAM 


1245T C2 


12-27-79 
001050 701203 
001051 701400 
001052 701400 
001053 001062 
001054 701400 
001055 040000 
001056 001061 
001057. 003774 
007060 000000 
001061 007347 
001062 000000 
001063 000004 
001064 701200 
001065 200000 
0071066 001035 
001067 000666 
001070. 9000070 
001072 000000 
001073 701200 
001074 300000 
001075 100000 
001076 901070 
0019077 900000 
001100 701203 
00171071 003774 
001102 701400 
0071103 000003 
001104 701203 
001105 000004 
001106 701200 
001107 701200 
001110 000003 
001111 7071400 
001712 9000004 


09.357 


3553 11 000 
3553 12 000 
2563 12 000 
7412 00 010 
7233 12 O00 
3032 03 000 
6002 00 010 
3632 03 000 
6222 13 000 
7032 00 010 


2210 03 000 


7162 00 010 
001071 
7102 15 . 000 


001073 


7223 11 2000 
3622 03 000 
1022 03 000 
6012 00 010 


6202 11 000 
7223 10 000 
3622 03 000 
2353 12 000 
3752 07 000 
2553 10 000 
3352 07 000 
3553 10 000 
0543 10 000 
2352 07 000 
2553 12 000 
6202 10 0900 


H6600J7.002 


RLTCX 


SPDX 


SPDPSI 


+ + & + & 


S$P01 


1/0 


INTERRUPT HANDLER 


ANSA 
ANSA 
ORSQ 
STX1- 
LXL3 
CANX3 
TZE 
ANX3 
EAX2 
TSX3 


INHIB 


NULL 
LOXx1 
EAX1 
LXLO 
CANXO 
T™NZ 
TRA 
INHIB 
XEC 


ZOP 
TRA 


NULL 


LXL2 


ANX2 
CMPX2 
TNZ 


S UP ERVIS$ OR 


~CRIO4,s1 » PL CR 
eCRCTIe2oP.CR 
oCRCT 142 0P,CR 
RLTCX 
»CRCT1420P.CR 
+3 

oF CHNXsDU 
0,3 

STIO 


OFF 


** 9 DU 

4o1 
eCRIOT+1+P.CR 
=0200C00.,DduU 
RELS2 

GTCHN 


ON 
DBUG 
6 
0.5 


7912191080 PAGE 


~ PROCESS PSIA CHANNEL 


CLEAR FORMER T&D AND STOP 8ITS 
CLEAR CURRENT T&D AND STOP BITS 
RESTORE FORMER T&D AND STOP BITS 
SAVE TCX 


IS THIS A PRIMARY CHAN, ? 
YES 
ISOLATE LPCX 


GO START I/0 


RESTORE X1 AFTER STIO 
BUMP X1 


IS THIS ANOTHER CHANNEL ON THIS PSIA 


PROCESS THIS VALID PSIA CHANNEL 
NO-GET NEXT INTERRUPT 


ILLEGAL CMD/INT FOR CHANNEL 


SUSPEND ALL CHANNELS ON THIS PSIA 
THE .~CRQGT HAS PREVIOUSLY BEEN CLOSED 


@CRIO1414P.CR 
=0300000.,0U 


=0100C00~.DU 


SP DX 


CHAN PSIA INDICATOR BITS 
IS THIS PSIA CHANNEL ZERO 
NO 


NOW EXAMINE ALL CHANNELS OF THIS PSIA PROCESSING 


ALL STOPPED CHANNELS AT 


eCRCT4 FOR LATER RESTORATION 


THEN MARK ALL THESE PSIA CKANNELS SUSPENDED 


AT .CRIO1 ¢ STOPPED AND 


EAXO 
LXL2 
ANX2. 
LDA 
ANA 
ORSA 
LCA 
ANSA 
AOS 
LDA 
ORSA 
EAXO 


0-1 
eCRIO440 +P. CR 
oF CHNX4DLU 
aCRCT142-P.CR 
3eDL 
eCRIO4404P.CR 
4 DL 
~CRIO140 oP. CR 
eCRIO140P.CR 
34DL 
eCRCT 142 eP.CR 
420 


FOR T&D AT .CRCTI 4 
TCX IN XO 
ISOLATE LCX 


CHANNEL STOP & T&D BITS 

SAVE THESE CONTROL BITS TO RESTORE CH 
MASK=777777777774 

CLEAR BITS #34-35 

TURN ON CHANNEL SUSPEND BIT 


TURN ON CHANNEL STCP & T&D BITS 
MOVE TCX TO NEXT PSIA CHAN, 


25 


16FWO430 
16FWC440 
16FWO450 
16FWO460 


16FWC410 


1245T 02 


t2~2t=79 
001113 701200 
001174 200000 
001115 001100 
0017116 000000 
001117 501002 
001120 501002 
0071121 501001 
0011722 001127 
0017123 501002 
001124 200000 
001125 000666 
001726 001135 
001127 000000 
001130 000000 
001131 002157 
001132 001134 
001133 002157 
007134 501002 
007135 701001 
001136 000744 


09.357 


7223 
3022 
6012 
7102 


001117 


7221 
0221 
1221 
6040 
2221 
3041 
6000 
7100 


6350 
5310 
4050 
6040 
7550 
2221 
7421 
7100 


10 
03 
00 
15 


H6600J7.002 


931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 


TSOVR 


BGNQ 


BGNQ1 


1/0 


INTERRUPT HANDLER 


LXL2 
CANX2 
TNZ 
TRA 


INHIB 


NULL 


LXL2 
ADLX2 
SBLX2 
TMI 
LDX2 
CANX4 
TZE 
TRA 


EAA 
NEG 
CMG 


TMI 


STA 
LDX2 
STX2 
TRA 


SU PERV IS OR 


eCRIO140-P.CR 
=0 200000 /0U 
SPD1 

0.5 


OFF 


7912191080 PAGE 


- PROCESS PSIA CHANNEL 


IS THIS A CONFIGURATION OF THIS PSIA 
YES 
RETURN PSIA PROCESSED 


CHECK IF THE PSIA QUEUE POINTER IS PAST THE END 


~CRMBZ41-PB.CR 
oCRMB31PB.CR 
«CRMB21-PB.CR 
BGNQ 
«CRMB3,1,-PB.CR 
Ov2eP.RMS 
GTCHN 

BGNQ1 


Ore 


SPCNT 

*+2 

SPCNT 
~CRMB3,14PB.CR 
~CRMB2s10P.CR 
TRAGN 


GET UPDATE TALLY FROM CHAN. RERESH 
ADDR OF END OF QUEUE 

QUEUE OVERFLOW --- NEGATED 

POINTER OUTSIDE OF QUEUE 

LOOK AT BEG. OF QUEUE 


NOTHING IN QUEUE -~ IGNORE INTERRUPT 
GO TO BEGINNING OF QUEUE 


OVERFLOW CNT IN A~UPPER -~-- POSITIVE 
CMPARE TO MAX QUEUE OVERFLOW 

RETAIN OLD MAX-CNT 

USE NEW MAX~-CNT 

GET BEG.OF QUEUE FROM REFRESH 

MAKE THE NEW POINTER 

TRY AGAIN 


1245T O02 


12-27-79 
001137 000653 
001140 701003 
001141 001706 
001142 701002 
001143 000666 
001144 200000 
001145 701203 
001146 003774 
001147 777777 
001150 001156 
001151 000002 
001152 000666 
001153 000000 
001154 000004 
001155 000000 
001156 701400 
001157 020000 
001160 001211 
001161 9000000 
001162 701403 
001163 000666 
001164 200001 
001165 9000000 
001166 350350 
001167 001661 
001170 000070 
001171 000002 
001172 000666 
001173 560000 
001174 200000 
001175 001223 
001176 000002 
001177 501000 
001200 007777 
001201 007777 
001202 001217 


09.357 H6600J7.002 1/0 S UP ERVIS OR 7912191080 PAGE 


INTERRUPT HANDLER ~ PROCESS NORMAL INTERRUPT 


957 * 
958 * 
959 x 
2360 00 010 960 NOPSIA LDQ TIMEX +1 PUT CHANNEL STOP TIME 
7561 11 000 961 STQ «CRMB451.P.CR IN MAILBOX 
6754 00 010 962 LOD PB.CRABYFCR SET CACHE BYPASS CR 
2251 11 000 963 ee LOXS ~CRMB241,P.CR GET STATUS WORDS POINTER 
6000 00 010 964 e Ctze GTCHN . NULL» IGNORE INTERRUPT 
0321 15 9000 965 LDQC Oe5eP.RMS INTERRUPTING CHNNEL STATUS WORD1 
966 * 
967 * 

001145 968 FXLVL NULL FIX IGM INTERRUPT LEVELS 
7221 11 000 969 LXL2 eCRIO4s1 oP. CR GET LOGICAL CHAN. INDEX 
3620 03 900 970 ANX2 oF CHNXsDL 
6200 10 000 971 EAX0O -~1,0 INT TYPE: T=Ce Mel, S=2 
6000 00 010 972 _TZE ITERM TERMINATE 
1000 03 O00 973 CMPXO 2DU IS IT SPECIAL 
6010 00 010 974 TNZ GTCHN NO» IGNORE IT 
6240 00 000 975 EAX4 0 YES» SET I/0 ENTRY NULL 
6200 00 000 976 EAXO 4 SET TYPE = 4 
6260 00 9900 977 EAX6 0 SET IHLR KPX 
2351 12 O00 978 ITERM LDA eCRCT1-2-P.CR 
1150 03 O00 979 CMPA 2DC355%*409644096-DU IS DEVICE ON355 
6030 00 010 980 TRC NT355 NO 
6240 90 000 981 EAX4 0 SET NO ENTRY FLAG 
2261 12 000 982 LDX6 «CRCT 442 4P.CR IS CHANNEL CONFIGURED 
6000 00 O10 983 TZE GTCHN NO» IGNORE INTERRUPT 

984 * 
0321 15 000 985 LDaC 125 0P.RMS GET STATUS WORD 
6260 00 000 986 EAX6 0 
2250 03 O00 987 LOX5 =0350350 DU SET 350 IND IN Xx5 
7100 00 910 988 TRA TRCOFF 

989 * 

560000 990 «FIOM BOOL 56000C NO SYNC BIT SOFTWARE STATUS 
7160 00 010 991 FSTAT XEC DBUG SHALL WE IGNORE PROBLEM 
7100 04 000 992 TRA 2e1C NOs» GEPR IT 
7100 00 010 993 TRA GTCHN YESs FORGET IT 
2360 03 000 994 LDQ oF IOM,s,DU GIN UP UNIQUE STATUS 
7561 15 O00 995 STQ Oe5eP.RMS FOR GEPR REISSUE 
7100 00 010 996 TRA ILVL2 

997 * 
998 * 
001176 999 INIT NULL PROCESS INITIATE INTERRUPT 
2200 03 O00 1000 LDXO 22 DU SET INITIATE INTERRUPT IND, 
1001 « CHECK FOR POWER ON/OFF 
7241 11 OOO 1002 LXL4 ~CRMB1-1.PB.CR GET LPW . 
3640 03 000 1003 ANX4 2=07777/0U ISCLATE TALLY OF LFW - 
1040 03 O00 1004 CMPX4 207777-0U HAS TALLY DECREMENTED ? 
6010 00 010 1005 ™NZ ILVL YES 
. 1006 * 


27 


ANONO0640 
10803795 


IOSO4ASR 


10S03835 
108032840 
10S03845 
108023850 
10803855 


10803860 


10$03865 
10803870 


10803875 
~10S0388C 


10803885 
10803890 


10803895 


EL8. 


10803910 


10803915 
IOSO4AAM 
TOSO4AAM 
IOSC4AAM 
ITOSO4AAM 


IOSO4AAM 


10803925 
IOSQ4AAM 


10S023940 


1245T C2 


12-27-79 
001203 701200 
001204 000666 
001205 100023 
001206 001223 
001207 100007 
001210 001222 
001211 000000 
001212 001440 
001213 400000 
001214 001170 
001215 000002 
001216 001176 
001217 200001 
001220 501001 
001221 501001 
001222 200001 
001223 701200 
001224 000666 
001225 501002 
001226 100010 
001227 200001 
001230 100012 
001231 100003 
001232 100023 
001233 001440 


09.357 


7100 00 010 
6200 10 000 


001223 


2241 11 000 
6000 00 010 
2351 11 O00 
7561 14 000 
0341 Q1 000 
7551 14 000 
7261 14 000 
1041 00 000 
6020 00 010 


H6600J7.002 1/0 


ININ?T NULL 


LDX4 
TZE 
CMPX4 
TRC 
LDX6 
TRA 


NT355 EAXO 


TNZ 
CANQ 
TZE 
CANQ 
TNZ 


ILVL LDX6 


SBLX6 
SBLX6 


INIT2 STX6 


ItVL2 NULL 


+ + *  F + FF Fe et ee RK OE Oe OR OH 


LDX4 
TZE 
LDA 
STQ 
LDAC 
STA 
LXL6 
CMPX4 
TAC 


x & & k & 
QR = 


=< 
© 
tt 


< 
S 
tou nw tt tt ot 


SUPERVISOR 791219 


INTERRUPT HANDLER =~ PROCESS NORMAL INTERRUPT 


eCRIO1+#1 +P. CR 


10Ss0 


GET I/0 ENTRY ADOR. 
NO ACTIVE ENTRY --IGNORE 


GTCHN 

eWEACFe/ F108 IS THIS SPECIAL 1/70 
ILVLe NO 

»WEQOFF,4,P.10@Q DCW RELATIVE TO DATA 
INIT2 

0-0 IS THIS TERMINATE 
ITTRC NOs» SPECIAL 

-FBTO.DU IS SYNC BIT SET 
FSTAT NOs BAD NEWS 
oFBT16e0U YESs WAS IT INITIATE 
INIT YES 

1oSeP.RMS SECOND STATUS WORD 


eCRMB 201 ePB.CR 
»CRMB2e1,-PB.CR 
175 oP aRMS 


RELATIVIZED 
STORE 2D wO 


PROCESS TERMINATE INTERRUPT 
»CRIOVs1+P.CR 


GTCHN 
e«CRMB341-PB.CR 


IGNORE IT 


»WEEP144 oP.I108 SAVE SW#1 
17 AU PLRMS 

»~WEEP 204 oP. 108 SAVE SRW# 
»~WEPIDs4,P, 108 SET KPX 


»WEAC Fee FI 0Q 
ITTRC YES 


, 


STATUS WCRD1 


INTERRUPT LEVEL (BIT 15-17) 
0 = TERMINATE 
LOGICAL CHAN INDEX 
IOM # (BIT16-17) 
I/O ENTRY OFFSET RELATIVE TO 10Q@ § 
PAT OFFSET RELATIVE TO PAT SEGMENT 
K PX 
PROCESSOR # 


P.IOQ =1/0 ENTRY POOL SEGMENT 
— PeRMS 

P.KL 

P.DDD 

P.SSA =SSA DATA 


SEGMENT OF 


RD 


EGMENT 


TYPE=0 


PCPM 


FETCH ACTIVE I/0 ENTRY OFFSET 


GET STATUS PCINTER 


IS THIS SPECIAL I/C 


TYPE=2 


28 


10800740 
10$00750 
10803950 
10803955 


10803965 
10803970 
IOSO4AAM 
IOSO4AAM 
10803975 


-10803980 


10803985 


10803990 


10803995 
1osc400c 


~10804855 


10804860 


10S00770 
10S0C78&0 
10scc790 


ANON1140 


1245T 02 


12-27-79 
001234 002415 
001235 000000 
001236 000002 
001237 006024 
001240 000001 
001241 006204 
001242 900002 
001243 100025 
001244 100005 
001245 001251 
001246 000363 
001247 006130 
001250 001257 
001251 000000 
001252 037777 
001253 037777 
001254 001257 
001255 100005 
001256 000003 
001257 700513 
001260 001334 
001261 701003 
001262 002720 
001263 701201 
001264 001302 
001265 000010 
001266 000004 
001267 000001 
001270 100004 
001271 017774 
001272 700000 
001273 770000 
001274 310000 
001275 001302 
001276 600202 
001277 600107 
001300 000000 
001301 600000 


09.357 


7526 00 9010 
6352 16 000 
7352 00 000 
4706 07 000 
7727 O01 O00 
4706 07 9000 
6707 00 000 
7527 14 000 
2253 14 000 
6012 00 010 
6252 00 000 
4706 07 000 
7102 00 010 


001251 
2253 15 000 
3652 03 000 
1052 03 000 
6Ci2 00 910 
2253 14 000 
6252 15 000 


00171257 
2343 00 000 
6012 00 010 
2353 11 000 
7552 00 010 
1353 11 000 
6042 00 010 
0752 07 O00 
7312 00 000 
0553 15 900 
2253 14 000 
3652 03 000 
2253 15 000 
3652 03 000 
1052 03 000 
6002 00 010 
0553 00 9000 
0553 00 000 
5312 00 000 
0553 CQ 000 

001302 


H6600J7.002 


INTERRUPT HANDLER 


1057 * 
1058 * 
1059 * 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 « 
1075 * 


1076 ILVPT 


1077. 
1078 
1079 
1080 
1081 
1082 
1083 * 
1084 * 
1085 * 


1086 PRTIM 


1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 


1106 TYPEW 


1/0 


ODRS 
ODR7= 


INHIB 
STWS 
EAA 
ALS 
LOP 
LDWS 
LDP 
LOD 
STWS 
LDXS5 
TNZ 
EAX5 
LDP 
TRA 


NULL 
LDX5. 
ANX5 
CMPXS5 
TNZ 
LDXS5 
EAXS 


NULL 
SZN 
TNZ 
LDA 
STA 
SBLA 
TMI 
ADA 
ARS 
ASA 
LOXx5 
ANX5 
LOXS 
ANX5 
CMPXS 
TZE 
ASA 
ASA 
NEG 
ASA 
NULL 


S UP ERV IS OR 


PKL 


P.CR =CR SEGMENT 


ON 
WSAV+1 
076 

2 


P.PIDsSD.PIDs DL 


1/AUs P.PID 
PO »eSD.PSHsDL 


7912191080 


- PROCESS NORMAL INTERRUPT 


SAVE LOWER WSR 


LOAD PID SEG. 


LOAD WS FOR P.SSA-PLZPAT ETC. 


P.PATsPH.PATs PQ GET PAT DESC. 
»WEENC+144eP,10Q SAVE IT FOR CHAN, 


»WEPEPs4-P. 108 
IL VPT 

oCRAC FH2 
P.PATsSD.CRoDL 
PRTIM 


O-5eP.PAT 
=037777.208U 
eFADJ «DU 

PRTIM 

eWEPEP,4 P1090 
oOFFSS5 | 


FETCH PAT POINTER OFFSET 

NOT A SYSTEM I/0 

COUNT TIME USING SYSTEM ACTFL PAT 
LOAD PAT DESC FOR ACCT 


ACCT 


GET PAT OFFSET 


ISOLATE OFFSET 
TEST TSS PAT 
NO 


YES, RETRIEVE FILE POINTER 


APPLY BIAS 


DO PERIPHERAL TIME ACCOUNTING 


@eCRSRMoerFCR 
SRMT 
«CRMB441P.CR 
EBUFF 46 
eCRIO2e14P.CR 
TYPEW 

8eDL 

4 

ToSeP.PAT 
WESC T44o.P.10Q 
eFSCTI40U 
Or5eP.CR 
eFOVTFsDU 

2 DSCC1*4096,0U 
TYPEW 
»STCHTssP.SSA 
eSLTTseeP.SSA 


»SACHTs+s2PaSSA 


IS STATUS MODIFIER ACTIVE 
YESs CHECK IT OUT 

GET INTERRUPT TIME 

SAVE IT FOR ACCT RECORD 
TIME AT CONNECT 

ERROR» IGNORE TIMES 


ROUND TO 


16 MICROSECOND UNITS 
ACCUMLATE I/0 TIME FOR FILE 


GET SCT OFFSET 


ISCLATE DEVICE TYPE 


Is IT scc ? 


ADD TO TOTAL SLAVE CHANNEL TIME 
ADD TO DISPATCHER INTERVAL SLICE 


SUBTRACT FROM ALLOWABLE CHAN TIME 


29 


CALL 8620 
CALL&625 


CALL 8630 


CALL &635 


1o0soc7oao 
1cscc710 


EL8. 
10805575 
10S05580 


1245T O2 


12-27-79 
001302 002415 
001303 701200 
001304 100000 
001305 001440 
001306 001437 
001307 001436 
001310 000000 
001311 701200 
001312 777774 
001313 001321 
001314 000000 
001315 000004 
001316 701200 
001317 001321 
001320 001436 
001321 300000 
001322 300000 
001323 000000 
001324 701200 
001325 777775 
001326 701201 
001327 701201 
001330 777775 
001331 002720 
001332 701201 
001333 777775 


09.357 


7726 


7251 
3050 
6000 


7472 
7432 
6272 
7253 
6272 
7032 
6272 
6272 
7253 
7032 
7102 


H6600J57.002 


INTERRUPT HANDLER 


1107 
1108 
1109 
1110 
1111 
1112 * 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 * 


1126 TIME 


Vle7 
1128 
1129 
1130 
1131 
1132 
1735 
1134 
1135 
1136 
1137 
1138 * 


1/0 


LOWS 
INHIB 
LXL5 
CANXS 
TZE 


INHIB 
STX7 
STX3 
EAX?7 
LXLS 
EAX7 
TSX3 
EAX7 
EAX7 
LXL5 
TSX3 
TRA 


NULL 
ANXS5S 
CMPXS5 
TNZ 
LDXS5 
TZE 
LDA 
CMPA 
TNC 
LDA 
STA 


TRA 


S UP ERVIS OR 


WSAV+41 

OFF 
~CRIO1416P.CR 
=0100000,0U 
ITTRC 


ON 

OUT+1 

OUT 

Or1 
eCRIO147 oP. CR 
~457 

TIME 

0-1 

407 
»#CRIO1474P.CR 
TIME 

OUT 


=0300000,0U 
=0300C00,DU 
0,3 
aCRIO147 oP. CR 
-3,3 
»CRIO247P.CR 
eCRIO2Z414P.CR 
-3,3 

EBUFF +6 
eCRIO2+7 oP. CR 
-343 


7912191080 
~ PROCESS NORMAL INTERRUPT 


RELOAD WSR 4-7 


IS THIS A PSI CHANNEL ? 


NO 


CHECK THE CONNECT TIME ON PSIA CHAN 


SAVE INDEX 
SET TCX IN X? 


CHECK PREVIOUS CHAN 


LOOCK BACK 


CHECK NEXT CHAN 


LOCK FORWARD 


IS THIS CHAN PSI & PRIMARY CHAN ? 


NO 


CHAN NOT BUSY,» 
THIS PSIA CHAN, 


DONT 


CONNECT TIME 


INTERRUPTING CHAN, 


UPDATE 


CONNECT TIME 


GET THIS INTERRUPT TIME 
UPDATE CHAN», TIME 
LOOK AT NEXT CHAN 


30 


EL8. 


ANON17160 


1245T C2 


12-27-79 
001334 370000 
001335 001261 
001336 000007 
001337 600016 
001340 001261 
001341 100005 
001342 002000 
001343 001261 
001344 001430 
001345 600221 
001346 001436 
001347 006204 
001350 200012 
001351 001437 
001352 200000 
001353 200021 
001354 777775 
001355 001432 
001356 200021 
001357 100005 
001360 010000 
001361 000004 
001362 277774 
001363 001430 
001364 000000 
001365 001361 
001366 277774 
001367 001361 
001370 277776 
001371 000001 
001372 277776 
001373 277776 
001374 001430 
001375 001412 
001376 100005 
001377 004000 
(01400 001406 
001401 277777 
001402 000001 
001403 277777 
001404 277777 
001405 001412 
001406 9000000 
001407 277776 
001410 277777 
001411 001430 
001412 277775 
001413 100010 
001414 200013 


09.357 


3162 
6012 
2352 
2153 
6012 
2353 
3152 
6012 
6 326 
4527 
7432 
4726 
6727 
7472 
6727 
2273 
1072 
6012 
7273 
2233 
3362 
6272 
2595 
6046 
2113 
6C12 
1003 
6012 
7233 
6232 
4433 
1033 
6042 
6002 
2353 
3152 
6002 
7233 
6232 
4433 
1033 
6046 
6232 
4433 
4433 
7102 


2353 
2363 
£365 


1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 


1158 


1159 
1160 
1161 
1162 
T4165 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 


H6600J7.002 


SRMT 


SRMFC 


SRMNC 


1/0 


CANQ 
TNZ 
LDA 
CNAA 
TNZ 
LDA 
CANA 
TNZ 
EPPR 
STP 
STX3 
LDP 
LDD 
STX7 
LDD 
LDX? 
CMPX7 
TNZ 
LXL?7 
LDX3 
LCQ 
EAX7 
LDA 
TMOZ 
CMK 
TNZ 
CMPXO 
TNZ 
LXL3 
EAX3 
$XL3 
CMPX3 
TMI 
TZE 
LDA 
CANA 
TZE 
LXL3 
EAX3 
SXL3 
CMPX3 
TMOZ 
EAX3 
SXL3 
SXL3 
TRA 


LDA 
LDQ 
STQ 


S UP ERVI S$ OR 


STATUS RETURN MODIFIER INTERFACE 


=0370000.,DU 
PRTIM#2 

7eDL 
eSWITseP.SSA 
PRTIM+2 
»WEPEP,s4 oP, 109 
eFSGPR,DL 
PRTIM+2 
P2eSRMT2 
P2oeSVFEL Tse P. SSA 
OUT 
P24SD.PSH»DL 
P2ePH.USL»osP2 
OUT +1 

P2004 »P2 
17e0P2 

~3,0U 

SRMT242 

17 eeP2 
eWEPEF,4 PL I08 
=01CO0CO,0L 

47 

~4,77F2 

SRMT2 

Oo 3-P.PAT 
SRMFC 

~4ae7eP2 


SRMOD 
»WEPEFs4,P,104 
eFREI SeDL 
SRMNO 
~1e7eF2 
173 
~1s7rF2 
~1r70F2 
SRMOD 

0 

~2eT7aP2 
~147sF2 
SRMT2 


~3077F2 
«WEEP 144 -P. I0Q 
11 2AL oP2 


7912191080 


IS STATUS CH RDY 
NO 


IS SWITCH SET PROPERLY 
NO 

GET QUE STATUS 

IS THIS SPECIAL GEFR I/0 
YES, LEAVE IT BBE 


SET VICAR 

SAVE XR3 

YES» GET PUSH DESCRIPTOR 
GET LKG SEGMENT 


GET USER SEGMENT 
GET COMM WORD 
IS IT VALID 
NO 
GET TABLE POINTER 
GET FILE POINTER 
SET FILE CODE MASK 
BUMP INDEX 
GET TABLE ENTRY 
NULL 
DOES FILE CODE MATCH 
NOs LOOK AGAIN 
YES» IS INTERRUPT TYPE OK 
NO 
GET 1/0 COUNT 
+4 

NEW I/0 COUNT 
READY FOR MOCIFY YET 
NO 
RIGHT ON 


IS ENTRY GEPR RETRY 

NO 

YES 

RETRY COUNT +1 
SAVED 

IS IT ENOUGH 

NO» MODIFY STATUS 

YES 

RESET COUNTS 


& EXIT 
GET NEW STATUS, BUFFER PTR 


GET ORIGINAL STATUS 
SAVE ORIG STATUS 


PAGE 
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10805625 
10805630 
10805635 
10805640 
10805645 
10$05650 
10805655 
IcsC5660 
EL8. 

EL8. 

EL8.. 

10805665 
10805670 
ANON1180 
10805675 
10805680 
10805685 
10805690 
10805695 
10S05705 
10$05710 
10805715 
10805720 
10805725 
10$05730 
10805735 
10$05740 


10805745 


10805750 
10805755 


~10805760 
10805765 


10805770 


10805775 


10805780 


10805785 


10805790 
10S05795 
10SC05800 
10S05805 
10805810 
10$05815 
10805820 
10S05825 
10805830 
T0s05835 
10805840 
10S05845 


10805850 © 


10805855 


1245T 02 


Lerten? 9 
001415 014042 
001416 100010 
001417 900000 
001420 100010 
0071421 000004 
007422 200000 
001423 000000 
001424 000002 
007425 000101 
001426 100000 
00142? 200001 
001430 100010 
001431 001436 
001432 001437 
001433 600221 
001434 006063 
001435 001261 


09.357 H6600J7.002 1/0 S UP ERVIS OR 7912191080 


STATUS RETURN MODIFIER INTERFACE 


3762 00 010 1190 ANQ =0400C77777777 DROP MS/SS 

7563 14 000 1191 STQ eWEEP124-P.10Q 

6232 01 000 1192 EAX3 O» AU 

2433 14 000 1193 ORSX3 »WEEP144 oP, I0Q SET DESIRED STATUS 
6362 14 QO00 1194 EAQ 404 1/0 ENTRY POINTER 
0543 05 O00 1195 AOS Os AL», F2 SET ACTIVITY FLAG 
6352 05 000 1196 EAA Os AL BUFFER POINTER 

7372 00 O00 1197 LLS 2 . BYTE ADDRESSES 

1007 02 000 1198 MLR C1Toee QU) o(1e0eAU) MOVE DATA TO BUFFER 
0000 50 O00 1199 ADSC9 0-04C-P.10Q 

0000 50 o00 1200 ADSC9 1704CeP2 

2363 14 O00 1201 SRMT2 LDA e~WEEP144 »P.10Q RESTORE STATUS WORD 
2232 00 010 1202 LOX3 OUT RESTORE XR3 

2272 00 010 1203 LOX? OUT+1 

4503 00 000 1204 one aSVFEL Toe F.SSA CLEAR VICAR 

4726 07 6000 1205 LDP P.RMS SD.RMSo» DL RESTORE Pe . 
7102 00 010 1206 TRA PRTIM#2 RETURN TO NORMAL FLOW 
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10$05860 
10805865 
10$05870 
10805875 
10805880 
10805885 
10$05890 
10$05895 
10$05900 
10805905 
10$05910 
10805915 
10$05920 
ANON1200 
EL8. 

10805930 
10805935 


1245T 02 


12-27-79 
001436 000000 
001437 000000 
001440 002416 
C01441 000004 
001442 001561 
001443 000000 
001444 370000 
001445 000000 
001446 100023 
001447 001454 
001450 100013 
001451 777777 
001452 002416 
001453 001561 
001454 012367 
001455 001506 
001456 100004 
001457 200000 
001460 001504 
001461 100011 
001462 100011 
001463 100011 
001464 100005 
001465 004000 
001466 001504 
001467 012355 
001470 001502 
001471 170000 
001472 001506 
001473 020000 
001474 001506 
001475 040000 
001476 001506 
001477 000001 
001500 002416 
001501 001506 
001502 000001 
001503 002416 
001504 000001 


09.357 


001436 
2232 03 000 
6272 00 000 


001440 


4502 00 010 
1002 03 000 
6002 00 010 
6232 02 000 
3632 03 O00 
6252 13 000 
1043 00 000 
6032 00 010 
2243 14 000 
2352 07 000 
7552 00 010 
7102 00 010 


3162 04 14043 
6002 00 010 
2353 14 O00 
3152 03 900 
6012 00 010 
2353 14 900 
7413 14 000 
2553 14 000 
2353 14 000 
3152 07 900 
6012 00 010 
3162 04 14044 
6012 00 010 
3162 03 Q00 
6002 00 010 
1032 03 000 
6002 00 010 
1032 03 000 
6002 00 010 
3232 03 000 
7432 00 010 
7102 00 010 


0015C2 
3232 03 000 
7432 00 010 

0015C4 
3232 03 000 


1208 
1209 
1210 
1211 
1212 
1243 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
2235 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 


H6600J 7.002 


OUT 


ITTRC 


CKRDY 


1/0 


INTERRUPT HANDLER 


NULL 
LDX3 
EAX7 


NULL 
INHIB 
STZ 
CMPXO 
TZE 
EAX3 
ANX3 
EAX5S 
CMPX4 
TRC 
LOX4 
LDA 
STA 
TRA 


CANQ 
TZE 
LDA 
CANA 
TNZ 
LDA 
STX1 
ORSA 
LDA 
CANA 
TNZ 
CANQ 
TN2Z 
CANQ 
TZE 
CMPX3 
TZE 
CMPX3 
TZE 
LCXx3 
STX3 
TRA 


NULL 
LCX3 
STX3 
NULL 
LCX3 


S UP ERV IS OR 


kk eo DU 
k* 


ON 

BUFFLG 

4/DU 

NTHSH 

07 QU 
=0370C00.,0U 
0,3 
aWEAC Foo F.10Q 
CKRDY 
»aWEIOS+4 oP. 100 
~1,D0L 

BUFFLE 

NTHSH 


=0377/700770000,8 IS 


NOREC 
«WESCT4£4,P.100 
aF TAD,DU 

DOVER 
»WEFCMs4.P, 100 
aWEFCMs4 oP, 100 
oWEFCM44oP.10Q 
»aWEPEF,s4,P, 100 
eFREIS,DL 
DOVER 
=0200000770000s$ 
WREC 
=0170C00,bduU 
NOREC 
=0200C0O. DU 
NOREC 
=04C00C0.,D0U 
NOREC 

1/D0U 

BUFFLG 

NOREC 


1/DU 
BUFFLG 


1,DU 


7912191 0S0 PAGE 


~ PROCESS INTERRUPT 


RESTORE X3 


INTERNAL BUFFER FLAG 

SPECIAL INTERRUPT ? 

YES 

LOAD FIRST STATUS WARD 

RETAIN POWER BIT AND MATOR STATUS 
SAVE X3 

IS THIS SPECIAL I/0 

NO 

YESs SET SPECIAL FLAG 

YES/NO RECORD ON SPECIAL COMMAND 
CANNOT OVERRIDE 

SPECIAL CMD NO RECORD OR EXCHG 


ANY STATUS BIT SET ? 
CHANNEL READY,» SKIP ERROR EXIT 
T&D 1/0 ? 
YES SKIP 
GET CMD FROM I/0 ENTRY 
SAVE TCX IN .WEFCM OF 1/0 ENTRY 
PUT COMMAND BACK IN 


IS IT GEPR REISSUE 
YES SKIP 


FCRCE TYPE 3 
SKIPsREDY 
SKIP,DEVICE ATTENTION 


SKIPA/EOF 


TYPE 3 REQUESTED 


CANNOT OVERRIDE I0S. 


33 


ANON1220 


1oscecs2o0 
10800830 
10S0C€840 


1245T C2 


12-27-79 
001505 002416 
001506 100001 
001507 100000 
001510 001522 
001511 100004 
001512 017777 
001513 700640 
001514 001522 
001515 002000 
001516 100005 
001517 001522 
001520 000010 
001521 100000 
001522 000000 


09.357 


4432 00 010 


0015C6 


001522 
6232 15 000 


H6600J7.002 


INTERRUPT HANDLER 


1258 
1259 * 
1260 * 


1261 NOREC 


1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 »* 


1275 NOTEX 


1276 
1277 * 
1278 x 


1/0 


SXL3 


NULL 
LOA 
CANA 
TNZ 
LDX3 
ANX3 
CMPX3 
TNZ 
LDA 
CANA 
TNZ 
LDA 
ORSA 


NULL 
EAX3 


S UP ERV I$ OR 


BUFFLG 


eWEPRVs4 oP. 108 
oF FTYFsDL 
NOTEX 

»=WESCTs4 oP. 10Q 
eFSCT/DU 
eCREXGoreF.CR 
NOTEX 
eFSGPR-DL 
eWEPEPs4 oP. 108 
NOTEX 
eFEXRGZDL 
eWEST -44P.100 


0-5 


79172191080 PAGE 


~ PROCESS INTERRUPT 


IS IT SYSTEM I/I 
YES CAN NOT EXCHG 


ISOLATE DEVICE SCT 
DEVICE EXCHANGE REQUESTED ? 
NO, NOT REQUESTED 


IS THIS SPECIAL GEPR CMD ? 
NOsEXCHANGE ON SPECIAL GPR CMD 
EXCHANGE REQUEST BIT | 

SET EXCHANGE STATUS FOR CHANNEL MODUL 


RELOAD x3 


34 


o 


1245T 02 


12-27-79 
001523 100004 
001524 017777 
001525 000002 
001526 010000 
001527 777776 
001530 001532 
001531 001202 
001532 900077 
001533 700000 
001534 001561 
001535 700001 
001536 770000 
001537 001561 
001540 700001 
001541 000036 
001542 707403 
001543 400000 
001544 000000 
001545 900005 
001546 001547 
0071547 900000 
001550 001561 
001551 002163 
001552. 002170 
001553 10900004 
001554 002164 
001555 322001 
001556 002162 
001557 002313 
001560 002170 
001561 000002 
001562 701200 
001563 001623 


09.357 


2253 14 000 
3652 03 000 
6252 15 000 
2352 07 O00 
3153 15 000 
6012 00 010 
6252 11 000 
2352 07 000 
3153 15 000 
6012 00 010 


2353 15 000 
3752 03 000 
6002 00 010 


6553 15 000 
7712 00 000 
2253 12 90C 
4707 15 000 
5076 00 9000 
7253 00 000 
7452 00 010 
1152 07 000 
6022 00 010 


7552 00 010 
7532 00 010 
2353 14 000 
7552 00 010 
2352 03 000 
7552 00 010 
7052 00 010 
0732 00 010 


001561 


2352 07 O00 
3153 11 000 
6002 00 010 


H6600J7.002 


* 


+ + + 


THRSD 


1/0 


INTERRUPT HANDLER 


LDXS 
ANX5 
EAX5 
LOA 
CANA 
TNZ 
EAXS5 
LDA 
CANA 
TNZ 


S U PERV IS OR 


eWESCT24 oP 108 
eFSCT.DU 

205 

eo FMLTD,DL 
-20S7P.CR 

x2 

eCRIO3—41 
2077, 0L 

Or 5eP.CR 

NTHSH 


THIS IS 64TH CONNECT SEE 


LDA 
ANA 
TZE 


HAD ERRORS SEE IF THRESHOLE 


ERSA 
ARL 
LDX5 
LOP 
AWDX 
LXL5 
STX5 
CMPA 
TNC 


REACHED 


STA 
SREG 
LDA 
STA 
LDA 
STA 
TSX5 
LREG 


ERROR THRESHOLD TEST DONE 


NULL 


LDA 
CANA 
TZE 


125e0P.CR 
=0770C00-DduU 
NTHSH 


1e5eP.CR 

30 
»CRCT4s2 oP. CR 
PQ -05eP.DDD 
O» PO 

5SaeP0 

THRSD 

key DL 

NTHSH 


THRESHOLD LIMIT 


MSGt1 

REGW 
eWESCT+4 oP. 108 
MSG+2 
@MIO0S 3*5 1241, DU 
MSG 

MISC? 

REGW 


7912191080 PAGE 35 


m CHECK ERROR THRESHOLDS 


ISOLATE DEVICE SCT 

POINT TO .CRCT3 ASSUME MULTI DEV 

TEST FOR MULTI 

IN .CRCT1 

IT IS MULTI .CRCT3= # OF CONNECTS 
SINGLE DEV POINT TO CRIO3 FOR # CONNE 
MASK FOR 64 CONNECTS 

SEE IF 64TH NOW 

NO FORGET TEST 


IF ERROR THRESHOLD REACHED 


GET # OF ERRS FOR EITHER .CRIO3 OR .C 


SEE IF ANY ERRORS 10801220 

NO FORGET TEST 

REACHED 

ZERRO ERROR COUNT INTABLES 
10801240 
EL8. 

LOAD THRESHOLD COUNT 

TEST ERROR THRESHOLD 10801260 

NOT THRESH LIMIT 

ON DEVICE PUT MSG IN POPS QUEUE 

SAVE HOF ERROR IN WD2 

SAVE REG?S 

SET SCT ADDR 

MODH OF IOS EPH 

MAKE QUE ENTRY EL8. 
EL8. 


THRESHOLD TEST COMPLETE 


2eDL 
»CRIO1/1-P.CR 
CHTR 


TEST PSIA 
IS THIS SUSPEND CMD CHAN ? 
NO 


© @ 
® e 
1245T 02 12-27-79 09.357 H6600J7.002 I/O SUPERVISOR 79121910S0 PAGE 36 
2 ® 
INTERRUPT HANDLER = CHECK ERROR THRESHOLDS 
& 001564 1330 SUSRT NULL SUSPEND CMD SPECIAL STATUS RETURN r 
001564 701200 2243 11 O00 1331 LDX4 »CRIO1¢1 +P.CR GET I/0 ENTRY OFFSET 
001565 000666 6002 00 010 1332 TZE GTCHN IGNORE IT 
@ 1333 * e 
001566 000100 2352 07 O00 1334 LDA =0100,DL 
001567 100011 3153 14 000 1335 CANA eWEFCMs4 oP. 100 IS THE SPECIAL T&D BIT PRESENT IN 
@ 1336 * THE I/0 ENTRY FOR RETURNIG SPECIAL ST @ 
001570 001623 6002 00 010 1337 TZE CHTR 
001571 000004 1002 03 000 1338 CMPXO 4,DU YES, CHECK FOR SPI 
& 001572 001576 6012 00 010 1339 TNZ NTSPL NOT SPI & 
001573 000045 7372 00 O00 1340 LLS 37 SPI==-STATUS TO A=REG.CLEAR Q=REG 
001574 000001 7712 00 000 1341 ARL 1 ZERO SPI SYNC BIT 
@ 001575 001602 7102 00 010 1342 TRA NSPL1 RETURN STATUS TO USER ® 
1343 « 
1344 * 
& 001576 1345 NTSPL NULL g@ 
001576 014045 3162 00 010 1346 © CANQ =0377777770000 IS CHAN. STATUS READY ? 
001577 000666 6002 00 010 1347 TZE GTCHN YES IGNORE IT 
@ 001600 100010 2353 14 000 1348 LDA eWEEP1-4 -P. 100 GET STATUS WCRDS IOSO4AAC © 
001601 100012 2363 14 O00 1349 LDQ aWEEP 24 +P. 10Q IOSO4AAC 
001602 701400 7263 12 O00 1350 NSPL1 LXL6 oCRCT1424P.CR 
© 001603 040000 3062 03 O00 1351 CANX6 »FPRCHsDU IS THIS A PRIMARY CHANNEL ? @ 
001604 001607 6002 00 010 1352 TZE a +3 YES 
001605 701400 7223 12 O00 1353 LXL2 oCRCT 142 6P.CR 
@ 001606 003774 3622 03 000 1354 ANX2 o FCHNXsDU LPCX & 
001607 100003 7263 14 000 1355 LXL6 »WEPIDs4 oP. 10Q GET KPX 
001610 003440 6202 00 010 1356 EAXO TRLCH SET RETURN 10806480 
e 001611 003036 7102 00 010 1357 TRA STRET RETURN STATUS TO USER 10806485 & 
| 1358 x 
001612 1359 CHAN NULL DETERMINE CANNEL NUMBER 
& 001612 004200 6342 07 000 1360 LDI =0420C,/DL RESET OVERFLOW INDICATOR 10804375 r 
001613 777777 4112 03 O00 1361 LOE -1,DU RESET EXPONENT REGISTER. THE -1 ALLOW 
1362 * FOR NO SIGN BIT POSITION IN A~REG 
& 001614 000000 5732 00 O00 1363 FNO @ 
001615 002155 4562 00 010 1364 STE CHAN1 STORE COMPLEMENT CHA.# 
001616 002155 3362 00 010 1365 LCQ CHAN COMPLEMENT THE NEGATIVE CHA.# 
@ 001617 000012 7722 00 000 1366 QRL 10 CHAH IN BIT 12-~-17 & 
001620 400000 2352 03 000 1367 LDA =0400C00 dU IMW BIT FOR CHANNEL O | 
001621 000000 7712 02 O00 1368 ARL 0, QuU IMW CHA.BIT PROCESSED 
@ 001622 000000 7102 15 000 1369 TRA 0-5 & 
1370 * 
e e 
® ® 
eo ® 
e ® 
@ @ 


1245T 02 


12-27-79 
001623 700044 
CO1624 9000035 
007625 700312 
001626 700002 
001627 002153 
C01630 000010 
001631 700000 
001632 700000 
001633 on0dg00 
C01634 000017 
001635 700000 
001636 000000 
001637 000003 
001640 9000002 
001641 701403 
001642 400000 
001643 700003 
001644 9000004 
001645 001650 
001646 000054 
001647 001656 
001650 700001 


09.357 


001623 
001623 


7173 OO 
7102 04 
2213 17 
7563 11 
2352 00 
7712 00 
7553 11 
7463 11 
6352 17 
7352 OO 
2553 11 
6352 13 
3752 03 
7712 00 
2363 12 
2363 02 
7563 11 
1002 03 
6012 00 
2752 0? 
7102 00 
7443 11 


H6600J3 7.002 


S72 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 


1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 


1/0 


S UP ERVI S$ OR 7912191080 


INTERRUPT HANDLER =~ CALL CHANNEL MCDULE EP#1 


Oe + + + & FF F HH FE He HF HF HE He HE HE HH HH EH OH HR H 


i a ec ee Se i 


ee ce 


REGISTER AT EP # 1 TO CHANNEL 


>) 
a 
“on 


=< 
i a fr | 


ODRO 
ODR1 
CDR2 
CDRS 
ODRS5 
CDR6 
ODR? 


STATUS wWD1 

INTERRUPT LEVELC(BITS 15 = 17) 
O=TERM, 22INIT» 4=SPECs 7=MARK 
TCX 

LCX 

PARTIAL STATUS / IOMA 

I/O ENTRY CFFSET 

FMTAR ADDR 

KPX 

CONTROL PRCCESSOR# 

CX3,X4eX6 ARE NOT SIGNIFICANT FOR SPECIAL INT) 


noi uN nt ff 


D/C 

P.10Q@ (I/0 ENTRY PCOL SEGMENT) 
ISR OF ICS. 

PsSSA (CPOP) 

P.CR 


* k& & &* * PROCESS INTERRUPT TRACE * * * * & & 


x= 
| 
Aa 


NULL 
« TROPN 
XED 
TRA 
LDX1 
S$TQ 
LDA 
ARL 
STA 
STX6 
EAA 
ALS 
ORSA 
EAA 
ANA 
ARL 
LDQ 
LDQ 
STQ 
CMPXO 
TNZ 
ORA 


TRA 


STX4 


TRCOFFsGREG 
«CRTIRV42 soP. CR 
TRCOFFsS 
eCRTIEFs7 oP. CR 
2eleP.CR 

CHANO 

8 SET CHAN# AT BIT 2C-25 
Or1eP.CR 
Or1-P.CR 
0-7 

15 
O-1-P.CR 
0.3 

34DU IOM# 

2 SET IOM# AT BIT 18-19 
»=CRCT442-P.CR 

2QUsP.D000 

3e1eP.CR SET MODULE# 

4,DU 

e+ 3 
2YPROS*SDL 
TRSET 
To1eP.CR 


SET STATUS RETURN WORD. 


SET KPX 


PRCCESSOR # 


PROCESS SPECIAL INTERRUPT 
SET I/O ENTRY OFFSET 


PAGE 
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10806705 


10Ss00950 
ANON1850 
ANON1860 
ANON1870 


10805470 


® 
® 
e 1245T 02 12-27-79 09.357 H6600J7.002 1/O SUPERVISOR 7912191080 PAGE 38 
INTERRUPT HANDLER - CALL CHANNEL MCDULE EP#1 
= 001651 000005 1002 03 O00 1420 CMPXO 5, DU 
001652 007655 6012 00 010 1421 TNZ *+3 
001653 000053 2752 07 O00 1422 ORA ~YPROOSDL PROCESS OTHER INTERRUPT 
© 001654 001656 7102 00 010 1423 TRA TRSET 
001655 000055 2752 07 O00 1424 ORA eYPROT/OL PROCESS TERMINATE INTERRUPT 
001656 1425 TRSET NULL 
@ 001656 700000 2553 11 O00 1426 ORSA Ov1sP.CR 
001657 1427 eTRPUT ASIS 
001657 000003 6202 00 9000 EAXO a 
& 001660 700052 7173 00 000 XED eCRTIRVt+8ereP.CR 
001661 1428 TRCOFF NULL 
001661 001703 7726 00 010 1429 LOws IHWS SET IHLR WSR 4-7 IOSO4AAM 
@ 001662 701403 2353 12 000 1430 LDA oCRCT42,P.CR PREPARE MOD#H/EPH#1 IN AREG FOR 
001663 400000 4707 01 ONO 1431 LDP POs -AUsP.DDD SET CHAN MOD. ISR TC PO 
001664 350350 1052 03 000 1432 CMPXS =0350250,DU IS THIS 350 ? 
gS 001665 001667 6002 00 010 1433 TZE *+2 
001666 o00000 5076 00 000 1434 AWDX OPO NOT ONET/ROUT EL8. 
001667 002417 6252 00 O10 1435 EAXS FMTAR 
@ 001670 300114 4757 00 O00 1436 LDP PSreKLIOSeeP. KL SET ISR OF IOS 
001671 000001 7103 00 O00 1437 TRA 1+ P0 GO TO CHANNEL MODULE 
001672 1438 EPIRET NULL 
e 1439 * 
1440 * | 
001672 003012 7102 00 010 1441 TRA TSTRT eEXIT O NORMAL RETURN STATUS & STIO 
@ 001673 003465 7102 00 010 1442 TRA TGEPR 2EXIT 1 GEPR & STIO 
001674 003605 7102 00 010 1443 TRA TGSPC ~EXIT 2 GESPEC ACTION. 
001675 000666 7102 00 010 1444 TRA GTCHN ~EXIT 3 NO ACTON ON S.I 
& C01676 003676 7102 00 010 1445 TRA SSPCM eEXIT 4 SPECIAL COMMAND -= RLS CHAN 
(01677 003703 7102 00 010 1446 TRA MTSI eEXIT 5 START 1/0 FOR MT S.I 
001700 001710 7102 00 010 1447 TRA DBUSY eEXIT 6 DEVICE BUSY, REISSUE 10$01210 
@ 001701 003710 7102 00 010 1448 TRA TREAD ~EXIT 7 REISSUE CONSOLE READ 
001702 003715 7102 00 010 1449 TRA TERRT eEXIT 8 ERROR THRESHOLD 
1450 * 
& 001703 014020024030 000 1451 IHWS OOCT 014020024030 IHLR WSR 4-7 IOSO4AAM 
001704 000002750640 000 1452 POPVEC VEC oe ISRoMSG 634 (RoW) 
001705 002162001762 010 
& 001706 777777740640 N00 1453 BYPCR VEC eDR7 Or %*,C Re WB) 
001707 000000001777 000 
1454 * 10801230 
e 001710 1455 DBUSY .SHUT .CRQGTssP.CR 10801235, 
001713 007707 7032 00 O70 1456 TSX3 STGPC REISSUE I/0 10801240 
001714 000666 7102 00 010 1457 TRA GTCHN LOOK AT OTHER CHANNELS 10801250 
@ 
® 
®& 
®@ 
@ 


1245T 02 


12=27=79 
001715 100003 
001716 002260 
001717 006133 
001720 700430 
001721 002006 
001722 900224 
001723 300107 
001724 000060 
001725 001774 
001726 000644 
001727 002001 
001730 300044 
001731 006024 
0071732 000000 
001733 000001 
001734 000002 
001735 001764 
001736 700040 
001737 006145 
001740 700072 
001741 001761 
001742 000652 
001743 700264 
001744 400057 
001745 300050 
001746 001774 
C01747 000404 
001750 600017 
001751 001774 
001752 001772 
001753 600231 
001754 900000 
001760 001762 


09.357 


001715 


2203 


2262 
600 2 
7463 
4706 
2353 
7727 
7737 
4746 


4133 


4766 
7563 
4746 
1372 
0563 
6373 
7203 
6002 
2202 
3003 
6012 


0542 
054 3 
4716 


00171755 


6 306 


00 


00 
00 
07 


00 


000 
0170 


010 
000 


000. 


010 


1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 


H660037.002 


* 


TMOR 


TITUS T? 


+ + + HF & HH 


+ + + & 


DISPA 


1/0 


INHIB 
NULL 
LDXx0 
TNZ 
NULL 
LOP 
AOS 
TPL 
STC2 
STZ 
SZN 
TNZ 


SU Pob RV LS 


ON 

LOST INTERRUPT 
eWEPADs es FLT 0Q 
PAGER 


P.KLsSD.KL-DL 
eCRLI Toe PCR 
ITLST 

IGATE 
@KLINTs7 oP. KL 
DISOPT 

TMOR1 


OR 7912191080 PAGE 


ALL CHANNELS PROCESSED - PREPARE TC EXIT 


CHECK 
TEST FOR PAGE ACTIVITY 
YES» GET AT IT 


RESTORE KL DESCRIPTOR 

BUMP INTERRUPT COUNT 

TIME TO LOOK FOR LCST ONES 
OPEN IHLR TO THE WORLD 


IS REDISPATCH ON 
YES 


CONDITIONAL REDISPATCH ON INTERRUPTS HAS BEEN OPTED. 


6C OCTAL 0 
REDISPATCH WILL EE DONE ONLY TO COURTESY CALLS AND ONLY IF 


PATCH 


WAS PRESENT... 


THE INTERRUPTED FROCESS IS AT MAIN LEVEL (NOT IN CC) 


LDX6 


TZE 


STX6 
LDP 
LDA 
LOWS 
LOSS 
LDP 
RSCR 
LDP 
STQ 
LOP 
SBLAQ 
ASQ 
LOT 
LXLO 
TZE 
LDXO 
CANXO 


T™NZ 


MY PRG #7 
TMOR? 


KLPRG+7oPLKL 
P.PIDsSD ePID, DL 


Or 7rP.PID 
1/AU,P.PID 
2eAUs FLPID 
P.SSeeSSRoDL 

32 e0P.CR 
P.SSAsSD.SSAeDL 
»~CRCCKso7oP.CR 
P.SSe.CTYPsDL 
TIMEX 
aCRLCKs7 oP. CR 
eWTIMRso P.SS 
eKLSCCoreP.KL 
TMORT 
eFBT9+,FBT15,0U 
eSTATEss FSSA 
TMOR1 


WAS A PROCESS INTERRUPTED 
NO 
YES» RETORE KPX 


CURRENT KPID INDEX 
RELOAD WSR 4-7 
RELOAD USER S/S 
YESs GET S/S DESCR 
GET TIME OF DAY 
GET SSA DESCRIPTOR 


MAKE TYPE = C 

GET DELTA TIME 

ADJUST LAST TIME 

RESET TIME SLICE 

IS ANY COURTESY CALL WAITING 

NOs RETURN TO INTERRUPTION 
GET CC TEST BITS 

IS INTERRUPTED PROGRAM IN CC 

YES» RETURN TO INTERRUPTION 


INTERRUPTED PROCESS WAS AT MAIN LEVEL BUT A COURTESY CALL 
IS WAITING TO BE PAID. 


AOS 
AOS 
LDP 
2 SHUT 
EPPR 


REDSP 
@STINTs+ FSSA 
Pi o%* DL 
»CROSFeeoP.CR 
PO,DI SPB 


WE WILL REDISPATCH NO ba oe 


»MDISP SEGID 


SET RETURN 
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10804945 
10804950 
10804955 
LOSC4AAD 
1OSO4AAD 
ILOSO4AAD 
1OSO4AAD 
ANONC670 
ANONC680 
ANONC690 
10801430 
10801435 
10$01440 
10801445 
10801450 
10801455 
10$01460 
ELB. 

EL8. 


€L8. 


10$01080 
RDSP2170 


18. 


RDSP2180 
10801475 
10801480 
10801485 


10801490 


10801495 
ANONC710 
10$01505 
10801510 
10801515 
10801520 
10$01525 
10801530 
10801535 
10801540 
10801545 
10S$01550 
10801555 
10$01560 
10801565 


10801570 


10801575 
10801580 


10801585 


1265T O02 


12-27-79 09.357 H6600J7.002 1/0 SUPERVISOR 7912191080 PAGE 
ALL CHANNELS PROCESSED - PREPARE TC EXIT 
001761 100011 7103 00 000 1509 TRA 9erP1 CALL .MDISPs9 
1510 * 
001762 oO00000 4706 07 O00 1511 DISPB LODP POs ** 6 DL eMDISP SEGID 
001763 1512 ~OPEN eCROSPoo P.LCR 
001765 700100 2343 17 O00 1513 SZN @CRCMCe7 oP. CR IS PROC GOING OUT=CF=SERVICE 
001766 000001 6053 00 O00 1514 TPL 1e2P0 NOs DISPATCH IT 
: 001767 1515 STOP ~GOTO oMFALT#1 YES» PARK IT 
INHIB SAVEsON 
001767 000002 6306 04 1771 EPPRO +255 
001770 700010 7103 00 oa00 TRA oCRGTOseP.CR 
001771 9000065 000001 000 ZERO oMFALT +1 
| INHIB RESTORE 
1516 * 
001772 o00000 ooDN0CcaO 000 1517 REDSP ZERO 
001773 900000 000000 000 1518 NODSP ZERO 
| ; 1519 * 
001774 000200 2352 07 O00 1520 TMOR1 LDA eRCCACeDL 
001775 600117 3153 00 000 1521 CANA @SROSTooPsSSA MUST WE CLEAR CACHE 
001776 002001 6002 00 010 1522 TZE TMOR2 NO 
001777 600117 6553 00 o00 1523 ERSA oSRQSTss FSSA YESs DO IT 
002000 o00000 0116 00 O00 1524 CCAC 
002001 001773 0542 00 010 1525 TMOR2 AOS NODSP KEEP NO DISPATCH COUNT 
002002 700100 2343 17 O00 1526 SZN oCRCMCo7 oP. CR IS PROC GOING OUT~CF=SERVICE 
002003 001767 6042 00 010 1527 TMI STOP YES» PARK IT 
| 002004 1528 CCLIMB NO» BACK TO INTERRUPT/DISPATCHER 
002004 000000713400 000 VFD 18/0094 713 41/121/0Co1/0,6/0 
002005 000000010000 000 VFD 1/0,9/06 8/0 0 TI No 1/02/00 2/10127/0 
| 1529 * 
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10801590 
10801595 
10801600 
10801605 
ANON1890 


-ANON1T900 


ANON1910 


10801615 
10801620 
10801625 
10801630 
10801635 
10801640 
10801645 
10801650 
10801655 
108071660 
ANON1930 
ANON1940 
ANON1950 


ANON1960 


1245T 02 


27 2te7T9 
002006 000000 
002007 001750 
002010 700430 
002011 o00000 
002012 300132 
002013 300132 
002014 000024 
002015 000000. 
002016 300133 
002017 701203 
002020 003774 
002021 701200 
002022 002125 
002023 701201 
002024 002125 
002025 701200 
C02026 000002. 
002027 002036 
002030 100011 
002031 900100 
002032 002036 
002033 002152 
002034 001762 
002035 002043 
002036 006131 
002037 701403 
002040 400000 
002041 000000 
002042 9000005 
002043 200040 
002044 701201 
002045 900004 
002046 9000000 
002047 09002142 
002050 700745 
002051 200040 
CO2052 701201 
002053 701003 
002054 000000 


09.357 


0020C6 
0116 00 O00 
3352 07 000 
7553 00 000 
2202 03 000 


002012 
7233 00 9000 
2353 00 000 


002017 
7223 11 000 
3622 03 000 
2243 11 000 
6002 00 o10 
2343 11 000 
6002 00 010 


7253 11 4000 
3052 03 000 
6002 00 010 
7253 14 000 
3052 03 000 
6002 00 010 
6262 00 010 
4706 07 000 


002043 
4133 00 9000 
1363 11 000 
7722 00 000 
1163 16 000 
6022 00 010 


0543 00 000 
4133 00 000 
7563 11 000 
7563 11 O00 
6242 14 000 


H6600J7.002 


ITLST 


ITLS 


ITLSS 


1/0 


INTERRUPT HANDLER 


NULL 
CCAC 
LCA 
STA 
LOXO 


NULL 
LXL3 
LDA 
ALS 
EAX1 
ADLX1 


NULL 
LXL2 
ANX2 
LBX4 
TZE 
SZN 
Ee 


LXL5 
CANXS 
TZE 
LXL5 
CANXS 
TZE 
EAX6 
LDP 
TRA 
NULL 
LOP 
LDXS5 
LDP 
AWDX 
EAX6 


NULL 
RSCR 
SBLQ 
QRL 
CMPQ 
TNC 


AOS 
RSCR 
STQ 
STQ 
EAX4 


S UP ERV IS OR 


MAXLC DL 
ecRLI TaeP.CR 
0, DU 


eKLICL se PLKL 
eKLICLas FAKL 
20 

O, AU 
eKLICNeoe PAKL 


EXAMINE THIS CHANNEL 
~aCRIO441 oP. CR 
eFCHNXsDU 
~CRIO1414P.CR 

ITLS4A 

eCRIO2+16P.CR 

ITLS4A 


»CRIO1e1P.CR 
2eDd0U 

ITLS 
oWEFCMo4 oP. TOR 
=0100,DU 

ITLS 

ITRTM 
POv.I SR» DL 
ITtss 


PezDDDsSD.OD Ds DL 
eCRCT4e2oP.CR 
PO0s045e/P.DDD 

QO P0 

5 


32e0eP RMS 
~CRIO2+1 +P. CR 
4 

Or 6ePC0 

ITLS4 


»CRTILSser FP. CR 
32 070P RMS 
eCRIO2Z41 oP. CR 
«CRMB4e1 oP. CR 
04 
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- SCAN FOR LOST INTERRUPTS. 


IOSQ4AAM 
IOSO4AAD 
INITIALIZE .KLLIT 
START SCAN WITH IOM# 


CH# OF FIRST PAYLOAD CHANNEL 
4 X CHA TO AU 


TCX TO CHECK 


ISOLATE LC€X 


CHANNEL NOT BUSY 

IS CONNECT TIME ZERO ? 
YES,DONT NEED THE CHECK AS_ 
CONNECT IS BEING ISSUED NOW 


IS THIS A SUSPEND CHAN ? 

NO 

GET SECOND CMD FROM 1/0 ENTRY 

IS THIS A SPECIAL ITR TEST--BIT29 
NOs USE REGULAR CHAN TIME OUT 

30 SEC. TIMEOUT ON ITR COMMAND 

DO LOST INT. CHECK WITH THIS ITR 


GET DDD SEG IN PO 


LOAD CHANNEL MODULE DESC 
EL8. 
GET LOST INTERRUPT VALUE FROM EPH 


READ SCU CLOCK 

TIME OF CONNECT 

TO 16-MICROSEC UNITS: 

IS CHAN LOST TIME EXCEEDED ? 
CHANNEL CONNECT TIME IS OK 


10805460 


COUNT UP IN .CRTILS 
RESTORE LOST IAT. SURVEY 
UPDATE CONNECT TIMECNO ACCT. CHRGE 


412457 02 


12-27-79 
002055 002063 
002056 777771 
002057 002063 
002060 000000 
002061 510006 
002062 002076 
002063 100006 
002064 770000 
002065 060000 
002066 002073 
002067 701002 
002070 200004 
002071 900001 
002072 002074 
002073 100011 
002074 000077 
002075 510006 
002076 701002 
002077 002142 
002100 400000 
002101 000000 
002102 002214 
002103 002240 
002104 200000 
002105 000003 
002106 200000 
002107 000044 
002110 000000 
002111 002142 
002112 701400 
002113 040000 


09.357 H6600U7.002 1/0 S UP ERV IS OR 791219T0S0 PAGE 


INTERRUPT HANDLER ~- SCAN FOR LOST INTERRUPTS 


6052 00 010 1581 TPL ITLS3A NOT SPECIAL CMP 
1042 03 O00 1582 CMPX4 -7/0U 
6C42 00 010 1583 TMI ITLS3A NOT SPECIAL CMD 
2242 03 O00 1584 LDX4 0.DU MARK AS A SPECIAL CMD 
2352 03 000 1585 LDA eFLOSTSZDL SET LOST INTERRUPT STATUS 
7102 00 010 1586 TRA ITLS6 
1587 * 

002063 1588 ITLS3A NULL 

2353 14 O00 1589 LOA oWEICMs4 oP. 108 


3752 07 O00 1590 ANA =0770C00-0L PICK UP CHAN CMD 
1152 07 O00 1591 CMPA =0060000.0L IS IT MULTI RECORD CMD ? 
6012 00 010 1592 TNZ ITtss NO 
1593 * 
2353 11 O00 1594 LDA ~CRMB3414P.CR SCW 
2353 01 O00 1595 LDA 4eAUe PLRMS GET CMD FROM CHAN.JINSTR.WITHIN I[0 
1352 07 O00 1596 ITLS9 SBLA 1,0L REDUCE RECORD COUNT 
7102 00 O10 1597 TRA ITLS?7 
1598 x 
1599 * 
002073 1600 ITLS5 NULL 
2353 14 O00 1601 LDA eWEFCMs4 «PL 100 
002074 1602 ITLS? NULL 
3752 07 O00 1603 ANA =077/0L ISOLATE RECORD COUNT RESIDUE 
2752 03 O00 1604 CORA eFLOSTsSDU. SET LOST INTERRUPT STATUS 
1605 * 
002076 1606 ITLS6 NULL STORE STATUS AND PUT INTERRUPT INTO QUEUE 
1607 * A SLOST STATUS WORD 
1608 * X0 =IO* NUMBER 
1609 * x1 =Tcx 
1610 * X2 =LCX 
1611 * X3 =CHA#A 
1612 * X4 =1/C ENTRY OFFSET (ZERO = SPECIAL) 
1613 * X7 SCOATROL PROCESSOR 
1614 * 
1615 * 
2263 11 O00 1616 LDX6 «CRMB3414P.CR 
6002 00 010 1617 TZE ITLS4 NULL» FORGET IT 
2362 03 O00 1618 LDQ =04CO0000.,0uU IMW BIT FOR CHAN ZERO 
7722 13 O00 1619 QRL 073 
2252 10 010 1620 LDX5 MAP 412,0 TERM IMW INDEX 
2562 15 010 1621 ORSG IMWe5 SET TERM BIT 
2363 16 Q00 1622 LDQ Or 6eP.RMS WAS STATUS RETURNED 
6042 04 000 1623 TMI 31C YESs LEAVE IT BE 
7553 16 O00 1624 STA Or 6eP.RMS NO» SET LOST STATUS 
7332 00 000 1625 LRS 36 MOVE STATUS WD#1 TO Q=REG 
6242 14 000 1626 EAX4 04 DATANET OR SPECIAL CMD ? 
6002 00 010 1627 TZE ITLS4 YES 
1628 * 
7253 12 000 1629 LXL5 eCRCT 142 P.CR 
3052 03 O00 14630 CANXS oF PRCHSDU IS THIS PRIMARY CHAN ? 


42 


IOSQ4AAM 


IOSO4AAM 


IOSO4ASR 


IOSO4AAM 


-IOSO4AAM 


IOSO4AAM 
IOSQ4AAM 
IOSO4AAM 


A 


1245T O2 


12-27-79 
002114 002117 
002115 003774 
002116 9000000 
002117 100003 
002120 100011 
002121 770000 
002122 100011 
002123 100011 
002124 002142 
002125 701400 
002126 700000 
C02127 100000 
002130 002142 
002131 701200 
002132 010000 
002133 002136 
002134 040000 
002135 002142 
002136 400000 
002137 000000 
002140 002234 
002141 002240 
002142 000001 
002143 000004 
002144 300132 
002145 002017 
002146 000001 
002147 300140 
002150 002012 
002151 000666 
002152 


000007300000 000 1680 ITRTM OCT 


09.357 H6600J37.002 1/0 S UP ERV IS OR 7912191080 PAGE 
INTERRUPT HANDLER - SCAN FOR LOST INTERRUPTS 


6002 00 010 1631 TZE *+3 YES 


3652 03 000 1632 ANXS5 oF CHNXsDU ISOLATE LPCX 
6222 15 000 1633 EAX2 0,5 
7263 14 000 1634 LXL6 »WEPIDs4 oP. 108 PICK UP KPX FROM I/0 ENTRY 
2353 14 000 1635 LDA eWEFCMs4,P,104 
3752 03 000 1636 ANA =0770C00 -DdU ISOLATE DEV. CMD 
7413 14 000 1637 STX1 oWEFCM,4 PL 108 SAVE TRUE CHANNEL INDEX 
2553 14 000 1638 ORSA oWEFCMs4 oP. 108 COMPLETE CMD WORD 
7102 00 010 1639 TRA ITLS4 CHECK THE NEXT CHANNEL 
1640 * 
002125 1641 ITLS4A NULL GENERATE SPI FOR PRIMARY TAPE CHAN 
2243 12 000 1642 LDX4 eCRCT 142 6P.CR 
3642 03 O00 1643 ANX4 =0700000,DU FIRST CHARACTER OF DEVICE TYPE 
1042 03 O00 1644 CMPXS =0100000.,DuU IS THIS A MT ? 
6Ci2 00 010 1645 TNZ ITLS4 NO» CHECK NEXT CHAN 
7243 11 OOO 1646 LXL4 oCRIO1¢1 oP. CR 
3042 03 Q00 1647 CANX4 oF XBARSDU IS THIS A CROSSBAR CHAN ? 
6002 00 O10 1648 TZE GNSPL NOsGENERATE SPI 
3042 03 000 1649 CANX4 eFPRCKSDU IS THIS A PRIMARY CHAN ON X~-BAR ? 
6002 00 010 1650 TZE ITLS4 NOsCHECK NEXT CHAN 
1651 * 
1652 * . 
002136 1653 GNSPL NULL GENERATE SPI ON THIS CHANNEL 
1654 * 
1655 * XO = IOMH#H 
1656 * X3 = CHAN# 
1657 x 
2362 03 O00 1658 LD@ =04C00C00,DU IMW BIT FOR CHAN ZERO 
7722 13 O00 1659 QRL 0,3 
2252 10 010 1660 LOXS MAP4+28,0 SPCL IMW INDEX 
2562 15 010 1661 . ORSQ IMWs5 SET SPCL BIT 
1662 * 
1663 * 
002142 1664 ITLS4 NULL INCREMENT CHAN# 
0232 03 000 1665 ADLX3 1,DU BUMP CH# 
0212 03 000 1666 ADLX1 4,DuU BUMP TCX 
1033 00 o000 1667 CMPX3 aKLICLs- FKL ARE ALL CHANNEL CHECKED ? 
6022 00 010 1668 TNC ITLS3 NO » NEXT CHECK 
1669 x 
002146 1670 ITL NULL INCREMENT IOM COUNT 
0202 03 O00 16771 ADLXO 1,D0U 
1003 00 O00 1672 CMPXO eKLNICoeo FLKL ARE ALL IOM CHEKED ? 
6022 00 N10 1673 TNC ITLS2 NOs NEXT IOM CHECK 
7102 00 010 1674 TRA GTCHN YES 
1675 * 
1676 INHIB OFF 
1677 * I.H CONSTANT SECTION 
1678 x. 
1679 * 


7300000 APPROX. 30 SEC 
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IOSO4AAM 


IOSOQ4AAM 


1245T O02 


002153 


002154 
002155 
002156 
002157 
002160 
0021 61 


002165 


002200 
002201 
002202 
002203 
C02204 


002205 
002206 
002207 
002210 
002211 
002212 
002213 
002214 


002215 
002216 
002217 
002220 
002221 
002222 
002223 
002224 


002225 
002226 
002227 
002230 
0022 31 
002232 
002233 
002234 
002235 
002236 
002237 


12-27-79 


09,557 


001750 


000000000000 000 


000000 
000000 
000000 
000000 
000000 
000000 


000000 000 
000000 000 
000000 000 
000000 000 
009000 000 
000000 000 


002162 


000003710004 000 


777777 
777777 


777777 


ee ae a 4 
000000 


777777 
777777 
777777 
777777 
777777 
777777 
777777 
000001 


777777 
777777 
777777 
777777 
777777 
VOCUS 
777777 
000002 


777777 
777777 
777777 
777777 
77777? 


777777 


777777 
000003 
CO CLETL 
(77777 
777777 


002170 
062170 


000004 000 
000014 000 
000024 000 
000034 000 
777777? ~~ 000 
0022C5 
777777 000 
777777 000 
777777 000 
777777 00C 
777777 000 
777777 000 
777777 000 
777777 000 
002215 
777777 000 
777777 000 
777777 00C 
777777 000 
777777 000 
777777 000 
777777 000 
777777 00Cc 
002225 
777777 000 
777777 000 
777777 000 
(177777 000 


CTCL(L 000 


777777 ~=©6000 
777777 ~=000 
777777 ~=©000 
777777 += 000 
777777 ~=©000 
777777 +~=©900 


1681 
1682 
1683 
1684 
1685 
1 686 
1687 
1 688 
1689 
1690 
1691 


1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 


1702 
1703 
1704 


1705 
1706 
1707 


1708 
1709 
1710 
1711 


H6600J7.002 


INTERRUPT HANDLER 


MAXLC 
CHANO 
* 
BUSY F 
CHAN 1 
FLTIT 
SPCNT 
SPOVF 
PARCN 
* 

MSG 


REGW 
* 


MAP 


1/0 


EQU 
OCT 


ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 


S$ UP ERV IS OR 


1000 
0 


7912191080 PAGE 


~ SCAN FOR LOST INTERRUPTS 


COUNT FOR LOST INT. CHECK 
CHAN# BEING PROCESSED IN OCT. 


IOM SYS FLT SW 

TEMP STRG. FCR CHANH CALC 
FAULT OCUREED FLAG 

MAX OVERRUN BEYOND QUEUE SIZE 
# OF TIMES GEUEU HAS OVERLYED 
IOM MEMORY PARITY FLAG 


MESSAGE AREA FOR MISC EP6 


HDWE TO SOFTWARE IMW MAP 


44 


10801670 
10801675 
10801680 
10801685 
10S01690 
10801695 


10801700 


10801705 


10801710 


10$01715 


10801720 
10801725 
10801730 


10$01735 
10S01740 
10801745 
10$01750 
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INTERRUPT HANDLER - SCAN FOR LOST INTERRUPTS 


1712 * 10801755 
1713 * 
002240 1714 IMW DUP 1216 SOFTWARE IMW TABLE 10801765 
002240 9000000 000000 000 1715 ZERO 
002241 #900000 9000000 000 ZERO 
(002242 «900000 000000 000 ZERO 
002243 9000000 o00000 000 ZERO 
002244 9000000 000000 000 ZERO 
002245 000000 9000000 000 ZERO 
002246 000000 000000 000 ZERO 
002247 0900000 000000 000 ZERO 
002250 9000000 000000 000 ZERO 
002251 000000 000000 000 ZERO 
002252 9000000 00000 000 ZERO 
002253 000000 900000 000 ZERO 
602254 9000000 000000 000 ZERO 
002255 000000 aco0cn 000 ZERO 
002256 9000000 O000CO 000 ZERO 
002257 900000 a00000 9000 ZERO 


1245T 02 


12-27-79 
002260 002301. 
002261 010000 
002262 001717 
002263 100000 
002264 100037 
002265 002272 
002266 010000 
002267 100003 
002270 400000 
002271 100037 
002272 777777 
002273 000012 
002274 100004 
002275 001717 
002276 002336 
002277 9000000 
002300 002311 
002301 100000 
002302 001717 
002303 100053 
002304 001717 
002305 100000 
002306 100003 
002307 002330 
002310 770000 
002311 001717 
002312 002315 
002313 000000 
002314 001704 
002315 001703 
C02316 000001 
002317 000003 
002320 700002 
CO2321 000372 
002322 000000 
002323 006063 


09.357 


6042 00 
3002 Q3 
6012 00 


2213 00 
7223 11 
6042 00 
2602 03 
7403 00 
2352 07 
7553 11 
6352 11 
7352 00 
2203 01 
6012 00 
6716 90 
2362 07 
7102 00 


3002 903 
6012 00 
2343 00 
6012 00 
2602 03 
7403 00 
6716 900 
2362 07 
6252 00 
7102 00 


6362 00 
6716 00 


7726 00 
6212 00 
002317 


6306 04 
7103 00 
000007 


01172 00 
4726 Q7 


H6600J7.002 


010 
000 
010 


000 
000 
010 
000 
000 
000 
000 
000 
000 
000 
010 
010 
000 
01710 


000 
010 
000 
010 
000 
000 
010 
000 
010 
010 


000 
010 


010 
000 


2322 


000 
000 


000 
000 


1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1734 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 


1760 


1761 


I/O QUE 


PAGER 


PAGE2 


PGMOR 


1/0 


S$ UP E RVI S O R 


SEGMENT SIZE MANAGER 


INHIB 
TMI 
CANXO 
TN2Z 


ON 

PGMOR 
»FBT5.DU 
ITLST1 


PAGE RELEASE CONTROL 


LOXx1 
LXL2 


»WEPG1seF.10Q 
eWOPEN~1 414P.108 
PAGE2 

eFBTS,DU 
oWEPADs-F.I0Q 
«FBT1&,0L 
»WOPEN-1-14P.10Q 
-141 

10 
eWEECTAAL-P.108 


~ITLST1 


P1e¢RLVEC 
ODL 
PGCOM 


PAGE REQUEST CONTROL 


CANXO 
TNZ 
SZN 
TNZ 
ORXO 
STXO 
LDD 


LDQ 


EAX5 
TRA 


INHIB 
EAQ 
LDD 


LDWS 
EAX1 
a CALL 
INHIB 
EPPRO 
TRA 
ZERO 
INHIB 
NOP 
LDP 


s FBT2 0DU 
ITLST1 


»WOPENt+NGPAG—-14P.,108 


ITLST1 

eFBT2 DU 
eWEPADss F.L0Q 
P1sRQVEC 
=0770CO0/DL 
ITLST1 

MISA7 


SAVEsON 
0 
P1,/POPVEC 


IHWS- 

2P0Q 
oMMISC7 
SAVEsON 
*+3,$ 
eCRCALseF.CR 
eMMISC,7 
RESTORE 


P.RMS sSD.RMS4 DL 


7912191080 PAGE 


PAGE REQUEST IS NEEDED 
IS PAGE RLSE ACCTIVE 
YESs LET IT HAPPEN 


# OF PAGES IN USE 
GET LAST PAGE ENTRY 
ALREADY INACTIVE 


SET REQUEST ACTIVE 
MARK PAGE INACTIVE 


GET PAGE ADDRESS. 
IS PAGE FREE 

NOs WAIT 
»MIOS2e2 MESSAGE 
NO ENABLE FLAG 


IS PAGE REQUEST ACTIVE 
YESs LET IT HAPPEN 
ARE ALL PAGES USED 
YESs CANT DO MORE 
NOs SET IT ACTIVE 


eMIOS2,1 MESSAGE 
SET MAX URGENCY 
SET RETURN 

MAKE QUE ENTRY 


SET IHLR WSR 4-7 


46 


EL8. 
10804975 


10804980 


10804985 
10804990 
10$04995 


10805000 
10805005 


10805010 
10$05015 
10805020 
10805025 
10$05030 
10805035 


10805040 


10S05045 
10805050 
10805055 
10S$05060 
10805065 
10805070 
10805075 


. 10805080 
10805085 


10s05090 
10805095 


-108C5100 


10805105 
10805110 
10805115 


. 10805120 


10$05125 
EL8. 
EL8. 
EL8. 
EL8. 
EL8. 
EL8. 
EL8. 
EL8. 
IOSO4AAM 
EL8. 


EL8. 
EL8. 


1245T C2 


002324 
002325 
002326 


002327 


002330 
002331 
002332 
002333 
002334 
002335 
002336 
002337 
002340 


12-27-79 09.357 


006013 4716 07 
001761 4716 07 
000000 7102 15 


000000011207 
000002750640 
002332001762 
321001000000 
g000000000000 
000000000000 
000000011207 
000002750640 
002340001762 
321002000900 


000 
000 
000 


000 
000 
010 
000 
N00 
000 
000 
000 
010 
000 


H6600J 7.002 1/0 


1762 
1763 
1764 
1765 
1766 


1767 
1768 
1769 
1770 


1771 


S U PERV IS 0 R 


I/0 QUE SEGMENT SIZE MANAGER 


LOP P.10QsSD.I0OQs DL 
LDP P.~TO0Qs.C TYPADL 
TRA 025 
INHIB RESTORE 
* 
RQVEC EVEC eI SReRQP AGE 43 CROW) 
RQPAGE VFD 9/.MI0S2,9/1418/0 
OCT 0,0 : 
RLVEC EVEC el SRoRLPAGEs 3 eo CRoW) 
RLPAGE VFO 9/.MICS2 49/2,18/0 


7912191080 


RE TURN 


VECTOR FOR .MMISC 


POG ENTRY 


VECTOR FOR .MMISC 


POG ENTRY 


PAGE 


47 


EL8. 
EL8.. 
EL8. 
EL8., 
10805170 


10S05175 
10805180 
10S$05185 
10805190 


10$05195 


1245T C2 12-27-79 09.557 H6600J 7.002 1/0 S$ U PERV IS OR 7912191 0S0 ; PAGE 48 
INTERRUPT HANDLER = ACTIVATE/DEACTIVATE FUNCTION 
i a oo ee 2 
002341 1776 CHSUB NULL COMMON CHN-MOD SUB—-RTN FOR DEACTIVATE/ACTIVATE FUNCTION 

1777 x CALLING SEQUENCE 

1778 * LOXO aCR CToo F.CR 

1779 x EPPR PSo*xt+2eIC 

1780 * TRA Or0-P5 

1781 * 

1782 * Q~-REG STATUS WCH1 

1783 * x0 

1784 * X1 TCX 

1785 * X2 LC X 

1786 * x3 PATIAL STATUS 

1787 * X4 1/0 ENTRY OFFSET 

1788 * X5 

1789 * X6 POP*S KPX 

1790 * X7 CONTROL FROCESSOR#A 

1791 x PO D/C 

1792 * P 1 1/0 ENTRY POOL SEG (T=0) 

1793 * Pe D/C 

1794 * P3 SSA DATA OF I/0 ENTRY (T=2) 

1795 * P4 IOS ISR 

1796 * P5 RETURN DESC 

1797 x P6 POP*S SSA DATA 

1798 * P?7 P.CR 

1799 x 

1800 * : 

1801 *% * &* &k ke ke wk wk wk kw kw eR RR eR eR Kw Ke we Kw Ke we RR eR KR KR KR eR hh eR eR Re ke ke 

002341 200000 3162 03 O00 1802 CANQ =0 200000,DU IS THE STATUS POWER OFF ? 
002342 002376 6C1i2 00 010 1803 TNZ EXIT YES» TAKE ERROR EXIT 

1804 * 
C02343 170000 3632 03 O00 1805 ANX3 =0170000.,DU ISOLATE MAJOR STATUS 
002344 701200 2353 11 000 1806 LDA ~CRIO1+1 oP. CR 
002345 100000 3152 07 O00 1807 CANA =0700C00.,DL IS THIS PSI CHAN ? 
002346 002357 6002 00 010 1808 TZE CKCPI NO» MAKE CPI CHECKS 
002347 100000 3032 03 O00 1809 CANX3 =0100C00.0U PSI MAJOR STATUS OF “1-" 
002350 002361 6002 00 010 1810 TZE TESTS NO» GO TC NEXT TEST 
002351 150000 1032 03 O00 1811 CMPX3 =0150C00,dU IS MAJOR STATUS "15" 9 
002352 002361 6002 00 010 1812 TZE TESTS YESs GO TO NEXT TEST 
002353 160000 3632 03 000 1813 ANX3 =0160000,DU 
002354 120000 1032 03 O00 1814 CMPX3 =0120000,DuU MAJOR STATUS "12"0R"13" 
002355 002376 6012 00 010 1815 TNZ EXIT NOsMUST BE 1041141441617 ERROR 
002356 002361 7102 00 010 1816 TRA TEST3 YES» GO TO NEXT TEST 

1817 * : 

002357 1818 CKCPI NULL CHECK CPI CHANNEL FOR STATUS OF 6 OR ABOVE 

002357 060000 1032 03 000 1819 CMPX3 =0060C00 DU IS MAJOR STATUS 6 OR LARGER ? 
002360 002376 6C32 00 010 1820 TRC EX1IT1 YESs TAKE ERROR EXIT 

1821 * 
002361 OQ000000 6232 06 O00 1822 TEST3 EAX3 0 @L GET LOWER HALF OF STATUS WORD 
002362 700000 3632 03 000 1823 ANX3 =0700C00,DuU CHANNEL STATUS FIELD 
002363 400000 1032 03 O00 1824 CMPX3 =0400000,DU IS IT INCOMPLETE INSTR.SEQ.? 


12457 02 


12? al=7 9 
002364 002367 
002365 100000 
002366 002376 
002367 600000 
002370 600000 
002371 002376 
002372 000000 
002373 060000 
002374 060000 
002375 400000 
002376 002000 
002377 100004 
002400 400000 
002401 701203 
(002402 003774 
002403 000001 
002404 701400 
002405 100011 
002406 770000 
002407 000001 
002410 100011 
002411 100011 
002412 400001 


09.357 


6012 00 010 
3152 07 000 
6012 00 010 


3632 03 000 
1032 03 000 
6002 00 010 


6232 06 000 
3632 03 000 
1032 03 000 
6C13 00 000 


002376 


2352 07 900 
3753 14 000 
6013 00 000 
7233 11 000 
3632 03 000 
2352 07 900 
2553 13 000 
2353 14 000 
3752 03 000 
2752 03 900 


7413 14 900 


2553 14 000 
7103 00 000 


1825 
1826 
1827 
1828 


1831 
1832 


1834 
1 835 
1836 


1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 


1848 


1849 
1850 
1851 
1852 
1855 
1854 
1855 
1856 
1857 


H6600J7.002 


* 


1/0 


INTERRUPT HANDLER 


TNZ 
CANA 
TNZ 


ANX3 
CMPX3 
TZE 


EAX3 
ANX3 
CMPX3 
TNZ 


NULL 


LDA 
ANA 
TNZ 
LXL3 
ANX3 
LDA 
ORSA 
LDA 
ANA 
ORA 
STX1 
ORSA 
TRA 


S UP ERVIS OR 


e+ 3 
=01C0CO0,DL 
EXIT! 


=0600CO00.dU 
=0600000,DU 
EXIT 


0, QL 
=0060C000,DU 
=0060C00,DU 
Ore P4 


~ ACTIVATE/DEACTIVATE 


7912191080 
FUNCTION 


NO 


PAGE 


IS THIS A PSI CHANNEL 
YES TAKE ERROR EXIT 


IS IT IOM 06 OR O7 PARITY ERR ? 


YES TAKE ERROR EXIT 


LOWER HALF OF STATUS WD 
IOM CENTRAL STATUS (CPARTIAL) 


IS THIS AN IOM 


CP OR PARITY ERR 


NO» TAKE ZERC EXIT 


AN ERROR CONDITION HAS BEEN FOUND THAT REQUIRES THE 


CHANNEL STOP BIT TO BE SET» BIT17 OF 


eWEICM WITHIN 


1/0 ENTRY BE SET AND THE TCX BE STORED IN .WEICM. 


oF GPOVSDL 
WESC T+4 oP. 108 
Ore P4 
eCRIO4+16P.CR 
oF CHNXSDL 

12 0L 
oCRCT143-P.CR 
oWEFCMs4 oP. 108 
=0770C00,DU 
16DU 
»~WEFCMs4 oP. 10Q 
oWEFCM 44 oP.100 
Teo PG 


END OF CHSUB 


IS GEPR OVERRIDE SET ? 
YES/TAKE ZERC EXIT 


ISOLATE LCX 


TURN ON CHAN.JSTOP BIT 


GET CMD 
ISOLATE CMD 
FORCE BIT17 ON 
SAVE TCX 

PUT CMD BACK 


WITH BIT 17 
TAKE ERROR EXIT 


1245T 02 12-27-79 09.357 H6600J7.002 1/0 S UP ERVIS OR 7912191080 PAGE 50 


FORMAT ERROR ACCOUNTIAG RECORD 


1859 x 
1860 * THIS SUBROUTINE FORMATS THE LOGICAL RECORDC(TYPE3) FOR ACCOUNT 
1861 * ALL NON=NORMAL STATUSES ARE RECORDED 
1862 * WORD~6s TIME OF INTERRUPT IS ALREADY STORED 
1863 * 
1864 * CALLING SEQUENCE 
1865 * 
1866 * EPPR P&s*e4+2 OR *+3,$ 
1867 * TRA Ov 5SeP5S 
1868 * 
1869 * REGISTERS 
1870 x x0 STATUS WD#1 
1871 * X1 TYPE OF INTERRUPT 
1872 * X2 LCX 
1873 * X3 
1874 X4 1/0 ENTRY OFFSET 
1875 * X5 FMTAR ADOR 
1876 * X6 KPX OF POP 
1877 * X7 CONTROL PROCESSOR# 
1878 * 
1879 « PO PLPAT 
1880 * P4 P.I0@ 
1881 * P2 PLRNS 
1882 * P3 P.KL 
1883 * P4 RETURN DESCRIFTOR 
1884 * PS ISR OF I0S 
1885 * P6 P.SSA OF POP 
1886 * P7 F.CR 
; 1887 * 
002413 000000000000 000 1888 SAVW OOCT 0 10$03310 
002414 900000000000 000 1889 WSAV EOCT 0 WS REG. SAVE AREA FOR POP 
0024715 oangaggq0c00000 000 1890 ocT 0 
1891 x 
002416 9000000000000 000 1892 BUFFLG OCT 0 TYPE 3 ACCOUNTING FLAG 
: 1893 x 
002417 1894 FMTAR NULL 
002417 002421 7102 00 O10 1895 TRA k+2 
002420 002652 7102 00 010 1896 TRA BUFEX EXTEND STATUS CALL 
C02421 002704 4502 00 010 1897 $T2Z LENG CLEAR FLAG 
002422 902641 7412 00 010 1898 STX1 RSTX1 SAVE TRUE CHAN INDEX 
002423. 002642 7402 00 010 12899 STXxO RSTXO SAVE INT TYPE 
002424 1900 EXTST NULL 
002424 002706 4546 00 010 1901 STP P46STF2 SAVE RETURN REG. 
| | 1902 INHIB ON 
002425 100025 7727 14 000 1903 LOWS eWEEND41 944P,100 SET WSR 4-7  ELB. 
002426 100010 2363 14 000 1904 LDQ »WEEP 144 oP. 10Q 
002427 002724 7562.00 010 1905 STQ EBUFF+10 
002430 700516 2353 00 000 1906 LDA eCRSICeosF.CR 
002431 002713 7552 00 010 1907 STA EBUFF +1 SET SYS ID 
002432 700104 2373 00 000 1908 LDAQ eCRDATss PCR 


1245T 02 


12-27-79 
002433 002714 
002434 002717 
002435 002641 
002436 701201 
002437 902721 
002440 006144 
002441 000000 
002442 000077 
002443 002447 
002444 600001 
002445 777777 
002446 002451 
002447 900000 
002450 000000 
002451 002715 
CO02452 002716 
002453 100004 
002454 900117 
C€02455 700000 
002456 770000 
002457 Q00022 
002460 002716 
002461 002000 
002462 002716 
002463 100005 
002464 001700 
002465 002716 
002466 701400 
C02467 010000 
002470 002474 
002471 701202 
002472 701203 
C02473 002500 
C02474 100004 
002475 017774 
002476 700003 
002477 700002 


09.357 H6600J 7.002 1/0 S UP E RVI S$ OR 7912191080 PAGE 
FORMAT ERROR ACCOUNTING RECORD 
7552 00 010 1909 STA EBUFF +42 SET DATE 
7562 00 010 1910 STQ EBUFF+45 STORE CURRENT TIME FROM START UP 
2212 00 010 1911 LDX1 RS TX1 RESTORE X1 
2353 11 OOO 1912 LDA oCRIO2s1 oP. CR 
7552 00 010 1913 STA EBUFF +7 SET CONNECT TIME 
4706 07 O00 1914 LDP PO 4SD.SNEsDL LOAD SNUM TABLE SEGMENT DESC, 
2353 16 O00 1915 LDA 076ePC 
3152 07 O00 1916 CANA =O77-, CL IS THIS SYSTEM ? 
6002 00 010 1917 TZE SYSPG YESs#USE PROCESS# 
1918 * 
2363 00 O00 1919 LDQ 2SACT soe#P.SSA GET ACTIVITY @ 
3762 03 000 1920 ANQ ~1,0U ISOLATE 8CD ACTH 
7102 00 0170 1921 TRA $T034 GO TO STCRE WORD 364 
1922 * 
002447 1923 SYSPG NULL 
6352 16 O00 1924 EAA 076 USE PROCESS# FOR SYSTEM 
2362 03 O00 1925 LDQ 0,DU ACTIVITYA FOR SYSTEM 
1926 * 
002451 1927 ST034 NULL 
7552 00 010 1928 STA EBUFF +43 SET SNUMB/PROC A 
7562 00 O10 1929 STQ EBUFF +4 SET ACTIVITYA/ZERO 
1930 * 
2353 14 000 1931 LDA WESC T4 oP. I10Q 
3752 00 010 1932 ANA eFSCT2 ISOLATE SCT ADOR 
2363 01 000 1933 LDQ Ov AUsP.CR GET DEV TYPE 
3762 03 O00 1934 ANQ oF OVTPSDL ISOLATE IT 
7722 00 000 1935 QRL 18 POSITION IN 18-23 
2562 00 010 1936 ORSQ EBUFF +4 SET DEV TYPE 
3752 07 Q00 1937 ANA =0200C.DL GEPR OVERRIDE FLAG 
2552 00 010 1938 ORSA E8UFF44 BIT25 
1939 x 
2353 14 O00 1940 LDA »WEPEPs4 oP. I0Q SPECIFY OVERRIDE FLAGS 
3752 07 O00 1941 ANA =20170CsDL BIT 26427 
2552 00 010 1942 ORSA EBUFF +44 
1943 * 
2353 12 000 1944 LDA »CRCT 142 oP. CR 
3152 07 O00 1945 CANA oF MLTDSDL IS THIS MULTI DEVICE CHAN 
6012 00 010 1946 TNZ MDEVC YES 
1947 x 
2353 11 OOO 1948 LOA eCRIO 241 oP. CR SINGLE DEVICE CH# OF CONNECTS 
2363 11 O00 1949 LDQ @CRIO4s14P.CR # OF ERR/THRESHOLD COUNT 
7102 00 010 1950 TRA ST089 
1951 * 
002474 1952 MDEVC NULL 
2353 14 O00 1953 LDA eWESCT#4,P.100 GET SCT ADDR 
3752 03 O00 1954 ANA oF SCT1eDU ISOLATE IT 
2363 01 QO0 1955 LDQ Br AUsP.CR # OF ERR/THRESHOLD COUNT 
2353 01 O00 1956 LDA 2eAUe PCR # OF CONNECT 
1957 * 
002500 1958 STO89 NULL 


51 


1245T 02 


12-27-79 
002500 000022 
002501 002722 
002502 002723 
002503 100011 
002504 011342 
002505 002725 
002506 100004 
002507 017774 
002510 700000 
002511 010000 
002512 002515. 
002513 007700 
002514 002516 
002515 000000 
002516 002725 
002517 701400 
002520 003077 
002521 000011 
002522 000000 
002523 002725 
002524 000011 
002525 000077 
002526 000014 
002527 002725 
002530 600014 
002531 002730 
002532 002731 
002533 100005 
002534 002546 
002535 006204 
002536 000002 
002537 000000 
002540 037777 
002541 037777 
002542 002550 
002543 100005 
002544 000003 


09.357 H660037.002 1/0 


FORMAT ERROR ACCOUNTING RECORD 


7722 00 000 1959 QRL 18 
7552 00 010 1960 STA EBUFF +8 
7562 00 010 1961 STQ EBUFF +9 
1962 
1963 x 
2353 14 Q00 1964 LDA eWEFCMs4 oP. 10Q 
3752 04 14046 1965 ANA =0770000770077,$ 
7552 00 010 1966 STA EBUFF +11 
1967 * 
1968 * INSERT CHANAs DEVA »170 
1969 * 
2213 14 000 1970 LOXx1 eWESCT+#4 oP. 108 
3612 03 000 1971 ANX1 eFSCT1,0U 
2363 11 O00 1972 LDQ Orv 1eP.CR 
3162 07 O00 1973 CANQ oFMLTOADOL 
6002 00 010 1974 TZE SGDEV 
3762 03 000 1975 ANQ eFDVNO-ZDU 
7102 00 010 1976 TRA ORDEV 
1977 * 
002515. 1978 SGDEV NULL 
2362 03 000 1979 LDQ O,DU 
1980 * 
002516 1981 ORDEV NULL 
2562 00 010 1982 ORSQ EBUFF +11 ; 
2353 12 000 1983 LDA aCRCT1424P.CR 
3752 03 Q00 1984 ANA eFIOCN+., FCHNO »DU 
7712 00 O00 1985 ARL 9 
6362 01 000 1986 EAQ Or AYU 
2552 00 010 1987 ORSA EBUFF +11 
1988 * 
7352 GO 900 1989. ALS 9 
3752 03 000 1990 ANA e FCHNO,DU 
7712 00 000 1991 ARL 12 
2552 00 010 1992 ORSA EBUFF +11 
1993 * 
2373 00 O00 1994 LDAQ «SUIDssP.SSA 
7552 00 010 1995 STA EBUFF +414 
7562 00 010 1996 STQ EBUFF +15 
1997 x 
2233 14 000 1998 LOX3 eWEPEP.4 PL 108 
6002 00 010 1999 TZE ACTPT 
4706 07 000 2000 LOP POsSD.PSHeDL 
6707 00 000 2001 LDD P,PATsPH.PATs PO 
2002 * 
2233 13 Q00 2003 LDX3 043eP.PAT 
3632 03 O00 2004 ANX3 =037777/D0U 
1032 03 000 2005 CMPX3 eF ADJ -DU 
6012 00 010 2006 TN2Z PATB8D 
2233 14 000 2007 LDOX3 eWEPEP +4 oP. 10Q 
6232 13 000 2008 EAX3 aOFFS 43 


S UP ERVIS OR 


7912191080 PAGE 


#H OF CONNECTS 
H OF ERR/THRESHOLD COUNT 


SEC.CMD IF DUAL 


CH MDsIOM CMD-REC CNT 


CONTROLLERA 


DEV 


SET 


ISOLATE SCT OFFSET 


IS THIS SINGLE DEV CHAN ? 
YESs DEVICE# IS ZERO 
ISOLATE DEV# 

GO OR IN DEVA 


DEV# ZERO FOR SINGLE DEV 


SET IN BIT 6-11 
GET CHAN SCT 
AND CHAN # 


1/0 CONTROLLER # IN QU 
IN BIT 17 & 18 


CHANNELA IN 12-17 
IN BIT 24-29 


GET USER ID 
SET IT 


PAT POINTER OFFSET 
NONE/USE ACCT PAT 
PAT DESC. 


GET PAT OFFSET 
FILL FLAGS 


IS IT SPECIAL 


NO 


RESTORE POINTER 
YES» ADJUST POINTER 


52 


10S06560 


10802460 


10802470 


EL7. 
10802480 


1245T 02 


12-27-79 
002545 002550 
002546 700000 
002547 000363 
002550 002726 
002551 002727 
002552 100004 
002553 000010 
002554 002617 
002555 700000 
C02556 700000 
002557 100000 
002560 002575 
002561 700000 
002562 003774 
002563 701403 
002564 002000 
002565 000001 
002566 002716 
002567 09000003 
002570 700001 
002571 700001 
(002572 002726 
002573 002727 
002574 002630 
002575 700000 
C02576 002630 
002577 770000 
002600 340000 
002601 002606 
002602 700000 
002603 000001 
002604 002630 
002605 002614 
002606 310000 
002607 002630 
002610 700001 
002611 770000 
002612 010000 
(002613 002630 
002614 004000 


09,357 H6600J7.002 1/0 S UP ERV IS OR 


FORMAT ERROR ACCOUNTING RECORD 


7102 00 910 2009 TRA PATBD 
2010 * 
2011 « 
002546 2012 ACTPT NULL 

6307 00 O00 2013 EPPR P.PAT «Qs eP.CR 
6232 00 O00 2014 EAX3 a CRAC F+2 

2015 * 

002550 2016 PATBD NULL 

4502 00 010 2017 STZ EBUFF +12 
4502 00 010 2018 STZ EBUFF +413 

2019 x 
2353 14 000 2020 LDA eWESCT#4 oP. 108 
3152 07 O00 2021 CANA =010,0L 
6012 00 010 2022 TNZ MASST 

2023 * 
2353 11 OOO 2024 LDA Ov1eP.CR 
3752 03 000 2025 ANA =0700000,DU 
1152 03 000 2026 . CMPA =0700000.,DU 
6012 00 010 2027 TNZ OTHER 
7203 11 O8O 2028 LXLO Os1-P.CR 
3602 03 O00 2029 ANXO oFCHNX,DU 
2363 10 000 2030 LDQ @CRCT4405P.CR 
3762 07 O00 2031 ANQ eFBT25eDL 
7362 00 O00 2032 QLSs 4 
2562 00 010 2033 ORSQ EBUFF +4 

2034 * 
2353 13 O00 2035 LDA 3230P.PAT 
3362 07 O00 2036 LCQ =0700C01 DL 
3763 11 O00 2037 ANQ 1TrioP.CR 
7552 00 010 2038 STA EBUFF +12 
7562 00 010 2039 STQ EBUFF #13 
7102 00 010 2040 TRA BUFST 

2041 * 
2353 11 O00 2042 OTHER LDA Orv1eP.CR 
6042 00 9010 2043 TMI BUFST 
3752 03 000 2044 ANA eFDVTP.DU 
1152 03 000 2045 “CMPA eDCR31*4096,DU 
6012 00 010 2046 TNZ NOTHR 
2353 11 O00 2047 LDA Orv1-P.CR 
3152 03 000 2048 CANA @FBT17,0U 
6002 00 010 2049 TZE — BUFST 
7102 00 010 2050 TRA STYP 

2051 * 
1152 03 G00 2052 NOTHR CMPA 2=DCS66*40964DU 
6012 00 010 2053 TNZ BUFST 
2353 11 O00 2054 LDA Ta1eP.CR 
3752 07 ©Q00 2055 ANA eFCSUBSDL 
1152 07 QO00 2056 CMPA eFBT23,0L 
6012 00 010 2057 TNZ BUFST 
2352 07 O00 2058 STYP LDA eFBT24,0L 


79172191080 PAGE 


F.CR IS AS PAT ONE 


SET ACCT PAT 


ZERO SEEK ADOR & POSITION 
IN CASE OF UNIT RECORD DEV. 


IS THIS MASS STORE DEV ? 
SEEK ADDR IN PMX IMAGE 
YES*»MASS STORE 


ISOLATE DEVICE TYPE 
IS THIS A TAPE DEVICE ? 


YES 
GET PRIMARY CHANNEL INDEX 


GET MTS 600/610 FLAG 
ALIGN & 
PUT IN RECORD 


MT FILE SERIALA 

LDQ 2077777707777 
ISOLATE FILE AND RECORDA 
POSITION IF MAC TAPE 


SCT 


DEVICE TYE 

IS DEVICE CARD READER 
NO 

YES 

Is IT €RvU05O1 

NO 

YES 


IS DEVICE SCC 

NO 

YESs GET SCT2 

GET SUB-TYPE 

IS IT LCC 

NO 

GET DEVICE SUBTYPE FLAG 


53 


Lcc01290 
10804390 
10804395 


. 10804400 


10804405 


10804410 
10804415 


L¢c0 1310 
L€¢01320 
25Fwl470 
L¢C01330 
2eSFWC490 
25FwCS00 
25FwO510 
25fWO0520 
25FWC530 


—25FWCS40 


25FWOS50 
25FW0560 
LCC01350 
LCC01360 
L¢C01370 


£€€01380 


LCC01390 
25FwC580 
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12-27-79 
002615 002716 
002616 002630 
002617 100006 
002620 002726 
002621 900002 
002622 900400 
002623 002630 
002624 377777 
002625 002727 
002626 200000 
002627 900000 
002630 002712 
002631 001703 
002632 300044 
002633 000055 
002634 006667 
002635 002704 
002636 002640 
002637 002712 
002640 100003 
002641 000000 
002642 000000 
002643 100010 
002644 000000 
002645 370000 
002646 001762 
002647 006063 
002650 002706 
002651 400000 
002652 002641 
002653 002642 
002654 477777 
002655 002660 


09.357 H6600J7.002 1/0 S UP ERV IS OR 


FORMAT ERROR ACCOUNTING RECORD 


2552 00 010 2059 ORSA EBUFF +4 
7102 00 010 2060 TRA BUFST 
2061 * 
002617 2062 MASST NULL 
2063 * LOXx1 Or 3eP.PAT 
2064 * ANX1 oF SCT140U 
2353 14 000 2065 LDA eWEICM44 oP. I0Q 
7552 00 010 2066 STA EBUFF +12 
2067 « 
2363 13 O00 2068 LDQ 203rP.PAT 
3162 03 O00 2069 CANQ oFMPMF,DU 
6002 00 010 2070 TZE BUFST 
2071 * 
3762 07 O00 2072 ANQ 20377777 »DL 
7562 00 010 2073 STQ EBUFF +13 
6362 00 Q00 2074 EAQ oFMEFF 
2563 13 9000 2075 ORSQ O+o3eP.PAT 
2076 * 
002630 . 2077 BUFST NULL 
6212 00 010 2078 EAX1 EBUFF 
7726 00 010 2079 Lows IHWS 
2080 INHIB OFF 
2261 17 O00 2081 LDX6 eKLPRGo7 oP. KL 
6724 04 2710 2082 LOD P2 »,BUFVEC,.S 
2083 * 
7050 00 O10 2084 TSX5 ACTFL 
2085 * 
2350 00 010 2086 LDA LENG 
6000 00 010 2087 TZE *x+2 
7550 00 010 2088 STA EBUFF 
7261 14 O00 2089 LXL6 »WEPIDZ4,P.108 
2210 03 O00 2090 RSTX1 LOX! x* 7 DU 
2200 03 O00 2091 RSTXO LDXO **e DU 
2361 14 O00 2092 LDQ eWEEP1,4,P. 108 
6230 02 000 2093 EAX3 04QU 
3630 03 O00 2094 ANX3 =0370C00 -dU 
4754 07 O00 2095 LDP P5421 SRoDL 
4724 07 O00 2096 LOP P26SD.RMSoDL 
4744 00 010 2097 LOP P4,STF2 
2098 * 
2099 * 
7101 00 O00 2100 RET TRA Or 6 PS 
2101: * 
2102 * 
2103 * 
002652 2104 BUFEX NULL 
7410 00 O10 2105 STX1 RSTX1 
7400 00 010 2106 STxO RSTXO 
7211 00 O00 2107 LXL1 ~T er eP 
6010 00 010 2108 TNZ +3 


791219 T0S0 PAGE 54 


L¢c01410 
Lcc01420 


SO IDENTIFY DEVICE 


GET CATALOG SCT OFFSET 


SET SEEK ADDR, 


FLAGS AND CATA SEEK ADDR. 
IS THIS PERM FILE ? 
NOs BUFFER IS SET 


ISOLATE CATALOG SEEK ADDR 
CATALOG SEEK ADDR 

SET ERR OCCURRED FLAG 

IN PAT FOR FILSYS. 


ADDR OF LR 


SET IHLR WSR 4-7 ITOSO4AAM 


SET KPX — «ANON1280 
SET ACCT DATA ON P2 
EL8. 

TAKE ACCT 

FLAG SET 

RESTOR EBUFF 

RESTOR X1=TCX 
RELOAD xO 
SET SRW1 

RESTORE MAJ. STATUS AND POWER BIT 
RELOAD RMS DESC 
RESTORE P4 AS A RETURN DESC 


RETURN FOR EXTEND STATUS 


ERROR ACCT FOR EXTEND STATUS 


STCRE x0. 
LOAD # OF WD OF EXTEND STATUS. 


1245T 02 


002656 
002657 
002660 
002661 
002662 
002663 


002664 


002665 
002666 
002667 
002670 
002671 
002672 
002673 
002674 
002675 
002676 
002677 


002700 
002701 
002702 
002703 


002704 
002705 
002706 


002707 
002710 


002711 
002712 
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FORMAT ERROR ACCOUNTING RECORD 


002641 2210 00 010 2109 ILwe LDX1 RSTX1 WRD CNT OF ZERO NOT LEG 


002424 7100 00 010 2110 TRA EX TST RETURN FOR NORMAL FROCCESSING 
000007 1C10 03 O00 2111 CMPX1 76DU 
002656 6030 00 010 2112 TRC IL WC H WROS MUST BE O<N<7 
002712 2350 00 010 2113 LDA EBUFF ORIGINAL LENGTH/TYPE 
002704 7550 00 010 2114 STA LENG SAVE 
477777 2231 00 O00 2115 LDX3 ~TooP4 LOAD EXTBUF ADDR 
002705 7444 00 O10 2116 SAR P4.STP1 STORE POINTER REG 
400000 5074 00 O00 2117 AWDX Ove P4 CLEAR ARG EL8. 
000000 6360 11 000 2118 EAQ 0-1 H OF WRDS OF EXTEND STATUS 
000017 0210 03 O00 2119 ADLX1 15,DU RECORD LENGTH 
002712 7410 00 O10 2120 STX1 EBUFF NEW LENGTH SET 
002732 6210 00 010 2121 EAX1 EBUFF +16 START OF EXTEND STATUS AREA 
400000 2351 13 O00 2122 LOOP LDA Or 3eP4 MOVE EXT STATUS 
000000 7550 11 000 2123. STA 0-1 TO BUFFER 
000001 0230 03 O00 2124 ADLX3 1/DU 
000001 0210 03 O00 2125 ADLX1 1/DU 
000001 1360 03 O00 2126 SBLQ 1/DU 
2127 * i 
002673 6010 00 O10 2128 TNZ LOOP IS ALL EXT STATUS MOVED ? 
002641 2210 00 010 2129 LOX14 RSTX1 YES . 
002705 7644 00 010 2130 LAR P4/STP1 RELOAD AR4 
002424 7100 00 O10 2131 TRA EXTST 
2132 * 
2133 * 
000000000000 000 2134 LENG OCT 0 
arepeperererereneianele 000 2135 STP1 OCcT 0 
o00000ccgcp00N 000 2136 STP2 OCT 0 SAVE AREA FOR RETURN POINTER REG 
2137 * ; 
000000011007 000 
, 002710 2138 EVEN 
000031750640 000 2139 BUFVEC VEC o ISRAEBUFFs 264 (RoW) 
002712001762 010 
000014000003 000 2140 EBUFF VFD 018/14,018/3 LENGTH/TYPE 
002713 2141 BSS. 25 LeR. DATA 
2142 * 


e ® 
6 e 
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® | ® 
FORMAT ERROR ACCOUNTING RECORD 
® 2144 * INSTRUMENTATION CODE - PUT TYPE 27 RECORD ON ACCTG FILE TEST7375 @ 
2145 * ENABLED BY PATCH ‘62 OCTAL O° TEST7380 
2146 * TEST7385 
Se 2147 * WORD+O 3,427 TEST7390 @ 
2148 * +1 PAT PTR» PROG # | TEST7395 
2149 x +2 SCT PTR» FILE CODE | TEST7400 
] 2150 * +3 SEEK ADDRESS / COMMAND | TEST7405 @ 
2151 * TEST7410 
002744 000000011007 000 | | 
@ 002745 014020024000 000 2152 XwSR OOcT 014020024000 WSR 4-7 VALUES TEST7415 @ 
002746 000003750640 000 2153 XVEC EVEC ISR XBUF 244 (ROW) TEST7420 
002747 002750001762 010 
® 002750 000003 000033 000 2154 XBuUF ZERO 3427 RCW TEST7425 @ 
002751 2155 BSS 3 DATA BLOCK _TEST7430 
2156 * | TEST7435 
@ C02754 100004 2201 14 O00 2157 XTST LOXxO »WESCT+4,P. 100 PAT PTR ~11FWO480 @ 
002755 037774 3600 03 000 2158 — ANXO aFPSCTsDU 11FWC490 
002756 700000 2341 10 000 2159 SZN 0-0-P.CR IS DEVICE MASS STORE 11FWOS500 
& 002757 003012 6050 00 010 2160 TPL TSTRT NO 11FW0510 r 
002760 100005 2251 14 O00 2161 LDXS5 oWEPEP,4 PL. 108 PAT PTR 11FWC520 
002761 003012 6000 00 010 2162 TZE TSTRT NULL 11FWC530 
e 2163 INHIB ON 11FWOS40 r 
002762 2164 eSHUT  .CRACFes PCR. 11FWCOS5O 
002765 002752 7402 00 010 2165 $TXO XBUF+2 SET SCT PTR 11FWO560 
@ 002766 002751 7452 00 010 2166 STX5 XBUFF1 & PAT PTR ~41FWCS70 & 
002767 100006 2353 14 000 2167 LDA .WEICMs4,P.10@ SEEK ADDRESS. 11FWC580 
002770 002753 7552 00 010 2168 STA XBUFF2 ~117FWC590 
e 602771 700003 2353 14 000 2169 LDA oWEPID,45P.CR PROG # ~11FWC600 ) 
| 002772 002751 7512 07 O10 2170 STCA XBUF+1,07 —11FWC610 
002773 002745 7526 00 010 2171 ~STws XWSR SAVE WSR 4-7 11FWC620 
& 002774 000002 7352 00 000 2172 ALS 2 KPID INEX 11FWC630 @ 
002775 006024 4706 C7 O00 2173 LOP POsSD.PICSDL 11FWC640 
002776 000001 7727 05 O00 2174 Lows 1/AL/F0 LOAD WSR 4-7 ITP.1980 
@ 002777 006204 4726 07 O00 2175 LDP AsPSH»sSD PSH» DL 11FW0660 & 
CO3000 200002 6707 00 000 2176 LDD P. PAT sPHsPATs oA. PSH 11FWO670 
003001 000000 2353 10 O00 2177 LDA O,0-P.PAT GET FILE CODE 11FWC680 
& 003002 002752 7512 03 010 2178 STCA XBUF+2403 11FWC690 & 
003003 200000 6707 00 O00 2179 LDD P.PATsPH.SSAs rhs PSE 11FW0700 
003004 200001 2353 00 000 2180 LDA @SACTssA.PSH ACTY # 11FWO710 
] 003005 900014 7352 00 000 2181 ALS 12 11FWC720 & 
CO3006 002752 7512 04 010 2182 STCA XBUF+2-04 11FWC730 
003007 002745 7726 00 010 2183 LDWS XWSR RELOAD WSR 4-7 11FWO740 
@ 003010 002746 6726 00 010 2184 LOD P2,XVEC | 11FWC750 @ 
003011 006672 7052 00 010 2185 TSX5 ACTFI WRITE ACCOUNTING RECORD 11FWC760 
2186 INHIB OFF | 11FWO770 
@ 2187 * TRA TSTRT TEST7585 » 
2188 * END OF INSTRUMENTATION CODE TEST7590 
® @ 
@ ® 
® @ 


Cr er ee ee re 
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2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 


EXIT 0 = STATUS RETURN ACTION 


+ + & + & & HE H HH HH HH HH eH eH Oe ll OU lO OH OHHH Uh hh hl hh UH Uhhh CUD 


THIS ROUTINE RETURNS STATUS TO THE PROCESS» UNLINKS THE I/0 
ENTRY» AND CHECKS FOR COURTESY CALL. 


IF A COURTESY CALL IS REQUESTED» THE APPROPRIATE BIT IS SET IN 
THE STATE WORD, THE I/0 ENTRY IS LINKED INTO THE COURTESY CALL QUEUE, 
AND THE "IN TRANSMISSION” COUNT IS DECREMENTED,. 


IF A COURTESY CALL IS NOT REQUESTEDs THE I/O ENTRY IS SET FREE, 
AND BOTH THE "LINKED™ AND “IN TRANSMISSION’ CCUNTS ARE DECREMENTED. 


ROADBLOCK, RELINGUISH, AND ALARM ARE BROKEN AS APPROPRIATE. IF 
THE STATE OF THE PROCESS HAS CHANGED» THE PROCESS IS ENABLED. THE 
"1/0 COMPLETE SINCE LAST LINK” BIT IS SET IN THE STATE WORD» AND THE 
ROUTINE RETURNS TO THE CALLER. 


THE STATUS RETURN ROUTINE IS ENTERED AT THREE POINTS - 
TSTRT ~ EXIT O FROM THE CHANNEL MODULE INTERRUPT HANDLER 


THE CKANNEL MODULE INTERRUPT HANDLER HAS DETERMINED THAT 
THE I/0 HAS COMPLETED SATISFACTORILY AND STATUS CAN BE 
RETURNED. AFTER LEAVING STATUS RETURN THE CHANNEL WILL 
BE FREE, AND THE NEXT ELIGIBLE I/0 ENTRY WILL BE 
STARTED. 


SRET1 ~ FROM IOS INTERRUPT HANDLER 
IOS HAS CETERMINED THAT A SPECIAL INTERRUPT STATUS OR A 
NON-READY STATUS HAS BEEN RECEIVED IN RESPONSE TO A T&D 
1/0 TC A PSIA CHANNEL. THE STATUS WILL BE RETURNED AND 
THE NEXT ELIGIBLE I/0 ENTRY WILL BE STARTED. 

STRET - FROM EXIT 1 FOR THE CHANNEL MODULE REQUEST ROUTINE 
A MASS STORAGE NON=DATA TRANSFER COMMAND HAS BEEN 
RECEIVED. THE COMMAND HAS BEEN SIMULATED AND AN 
APPROPRIATE STATUS WILL BE RETURNED. 

~ FROM EF#1C, GEPR STATUS RETURN 


RETURN STATUS FOR GEPR» DNETs INTER~SLAVE COMMUNICATION, 
AND ABORT 1/0 CEP#HS). SET UP COURTESY CALL FOR FSO9., 


~ FROM EP#24, SHARED ACCESS MPC LOCK BYTE REQUESTS 
A LOCK BYTE REQUEST HAS BEEN MADE TO A NON=SHARED SYSTEM 


OR DEVICE. A STATUS OF READY-INITIATE IS BEING 
RETURNED. 


é @ 
e e 
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e 7 ® 
EXIT O = STATUS RETURN ACTION 
& 2240 * INPUT PARAMETERS FOR STATUS RETURN ACTION & 
2241 * 
. 2242 * XC = TRANSFER ADDRESS 
& 2243 * X1 = TRUE CHANNEL INDEX @ 
2244 * X2 = LOGICAL PRIMARY CHANNEL INDEX 
2245 * X4 = 1/0 ENTRY ADDRESS 
& 2246 * X6 = KPX @ 
2247 * X7 = CPUNO 
2248 * 
& 2249 * ODR1 = P.10Q t 
2250 * ODR6 = P.SSA ( FOP OR USER ) 
2251 * ODR7 = P.CR 
& 2252 * & 
2253 * NOTE. 
2254 * 
& 2255 * OOR3 = PS.KL @ 
2256 * ODR2 = A.sPSH 
2257 * 
€ 2258 * ABOVE DESCRIPTOR AND ODRO IS DESTROYED r 
2259 * 
2260 * ALL GATES ARE OPEN 
é 2261 * ® 
2262 * & & eR kK ek 
| 2263 
a) 003012 2264 EVEN & 
0000C2 2265 AsPSH SET 2 USER'S PH. PSH DESCRIPTOR 
oco003 2266 PS.KL SET 3 KL SEGMENT DESCRIPTOR 
@ 2267 @ 
2268 
2269 FROM CHANNEL MODULE INTERRUPT HANDLER 
2270 * & & kkk 
° 2271 ® 
| | 003012 2272 TSTRT NULL 
& 003012 100010 2351 14 000 2273 LDA eWEEP1/4,P.100 RETRIVE STATUS @ 
003013 100012 2361 14 000 2274 LDQ eWEEP2044P,10Q 
2275 
@ 2276 INHIB ~~ ON @ 
003014 2277 2 SHUT ~CRQGTr+F.CR 
003017 O00000 6202 00 O00 2278 EAXO 0 10S06530 
® 003020 701200 7403 11 Q00 2279 STXO 2 CRIO1414P.CR SET CHANNEL FREE 10s06535 rd] 
003021 701401 2203 12 000 2280 LDXO0 eCRCT2e26P.CR TEST QUEUE COUNT 
003022 701402 1003 12 O90 2281 CMPXO oCRCT326P.CR ONE ENTRY 
& 003023 003033 6002 00 010 2282 TZE NOIO YES» DONT GO STIO @ 
2283 
CO3024 000666 6202 00 010 2284 EAXO GTCHN PREPARE RETURN FROM STRET Tose0é515 
& 003025 003434 7532 37 010 2285 SREG ALLREGs7* SAVE REGISTERS @ 
C03026 007700 2352 07 000 2286 LDA =0770CrDL SET DEVICE # 63 (COMAGIMAI) | 
003027 100000 2553 14 000 2287 ORSA eWEST 44, F.10Q DEVICE FREE 
@ 2288 @ 
2289 GO NEXT I/0 
® @ 
e @ 


& 


@ 
e 
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EXIT O = STATUS RETURN ACTION 
& C03030 007347 7032 00 O10 2290 TSX3 STIO 
2291 
003031 003434 0732 37 O10 2292 LREG ALLREGs7* RESTORE ALL REGISTERS 
& 003032 003037 7102 00 010 2293 TRA STRET +1 CREGISTERS ALREADY SAVED) 10806320 
2294 10806325 
2295 10806330 
r 003033 2296 NOIO eOPEN .CRGGT»sP.CR 10806335 
003035 000666 6202 00 O10 2297 EAXO GTCHN © 10806340 
2298 
@ 2299 k« kk & ke Ok 
2300 FROM EXIT 1 FOR THE CHANNEL MODULE REQUEST ROUTINE 
2301 EP#10, GEPR STATUS RETURN 
& 2302 EP#34, SHARED ACCESS MPC LOCK BYTE REQUESTS 
2303 *% * & & k k k 
2304 
@ 2305 INHIB ON 10806350 
003036 2306 STRET NULL 
2307 
6 003036 003434 7532 37 010 2308 SREG ALLREGs7* SAVE ALL REGISTER 
2309 
€03037 0906013 4716 07 O00 2310 LOP P.I10QsSD.10Q,DL GET DESCRIPTOR 
®@ CO3040 903434 2232 17 010 2311 LDX3 ALLREG»7 . LOCATE REGSTERS 10S0€365 
003041 001761 4716 07 O00 2312 LOP P.10Q,.CTYP/DL 
003042 006133 4736 07 000 2313 LOP PS.KLsZSD KL ADL GET KL SEGMENT DESCRIPTOR 
@ 003043 100003 7263 14 000 2314 LXL6 eWEPIDs4-P, 100 GET KPX FROM I/0 ENTRY 
003044 000000 6352 16 O00 2315 EAA 26 NOT EQUAL» DIFFERRAT WS 
C03045 000002 7352 00 O00 2316 ALS 2 
& CO3046 006024 4706 07 000 2317 LOP PO sSD.PIDsDL GET WORKIBG SPACE REGISTER 
003047 000007 7526 13 000 2318 STwWs 703 SAVE WSR 4-7 10806875 
003050 000001 7727 01 O00 2319 LOWS 1,AUseP0 GET WSR 4-7 | 
1 © 0030571 003071 7102 00 010 2320 BUGSR’ TRA NOTR1 (NCP IF 57=0) IOSC4AAM 
2321 
2322 
® 2323 | 
2324 * &* & & & & & RETURN STATUS TRACE * * * & & & & 10806725 
2325 
& 003952 2326 eTROPN NOTR1 GREG 
C03052 700044 7173 00 0o00 XED eCRIRV+42 ooP.CR 
003053 000016 7102 04 3071 TRA NOTR1 oS 
t C03054 700312 2203 17 O00 2327 LDOXO0 aCRTEPs7 oP. CR 
(03055 700003 4423 10 000 2328 SXL2 3r0-P.CR SET LOGICAL CHANNEL INDEX 10806375 
003056 700003 7443 10 O00 2329 STX4 3e0eP.CR SET WORD3 I/70 ENTRY ADDRESS 
© 003057 Q00000 6222 01 O00 2330 EAX2 0 AU 
‘003060 700000 7423 10 Q00 2331 STX2 O-0eP.CR SET WORDO RETURN ADDRESS (€ IC ) 
C03061 000004 2352 13 O00 2332 LDA 43. RETRIEVE AR 10s0é385 
& 003062 700001 7553 10 O00 2333 STA 1/0-P.CR SET WORD1 STATUS WCRO1 
003063 100003 7223 14 O00 2334 LXL2 eWEPIDs4 oP, 108 
003064 700002 7423 10 900 2335 STX2 2e0eP.CR SET WORD2 KPX FROM 1/0 ENTRY 
& 003065 000061 6222 00 O00 2336 EAX2 2~YSRET 
003066 700000 4423 10 000 2337 SXL2 Or»0/P.CR SET WORDO TRACE TYPE CODE ,YSTRT 
@. 


1245T 02 


12-27-79 
003067 000003 
003070 700052 
003071 100014 
003072 003151 
003073 006013 
003074 000014 
003075 000004 
003076 000004 
003077 000005 
003100 003151 
003104 700271 
003105 777777 
003106 003115 
003107 300044 
003110 003105 
003111 700100 
003112 003115 
003113 300000 
003114 700100 
003115 100014 
003116 003122 
003117 000177 
003120 000160 
003121 003137 
003122 100001 
003123 002000 


1/0 


S UPERVIS OR 


STATUS RETURN ACTION 


a TRPUT 


EAXO 
XED 


ASIS 
3 
eCRIRV+8BoeP.CR 


kt ke kk ke ke ee ®.6CUOT COP RR OAC E 


09.357 H6600J7.002 
EXIT 0 
2338 
003067 2339 
6202 00 000 
7173 00 000 
2340 
2 341 
2342 
2 343 
003071 2344 NOTR1 
7203 14 O00 2345 
6002 00 010 2346 
2347 x 
4706 07 O00 2348 
6707 14 000 2349 
2372 13 O00 2350 
7553 00 O00 2351 
7563 00 O00 2352 
2353 * 
2354 * 
2355 * 
2356 * 
2357 * 
2358 * 
2359 * 
2360 « 
2361 * 
2362 * 
2363 * 
7192 00 010 2364 INIT1 
2365 * 
003101 2366 
2223 00 O00 2367 
6222 12 000 2368 NXTPR 
6042 00 010 2369 
1063 12 000 2370 
6C12 00 010 2371 
1023 17 000 2372 
6002 00 O10 2373 
0543 12 000 2374 
0153 12 000 2375 
2376 * 
003115 2377 CACHOM 
7203 14 Q0O0 2378 
6002 00 010 2379 
3602 03 O00 2380 
6602 03 000 2381 
6012 00 010 2382 
2383 
2253 14 O00 2384 
3152 07 O00 2385 


NULL 
LXLO 
TZE 


LDP 
LOD 
LDAQ 
STA 
STQ 


eWEICES4 oP. 10Q 
CACHE 


POsSD.~IOQSDL 
POs WEICEs4 PO 
43 

eIWST1+/FO 

aI WST2eeP0 


STATUS WORDS STORED 
RESET PAT BUSY FLAG 


7912191080 PAGE 


PUT 


NO STATUS RETURN 
STATUS REQUESTED 
RETRIEVE STATUS WORDS 


STCRE STATUS WORD1 
WORD2 


MUST CHECK TO SEE IF THIS PROCESS IS 


TRA 
NOP 
2 SHUT 
LDOX2 
EAX2 
TMI 
CMPX6 
TNZ 
CMPX2 
TZE 
AOS 
cioc 


NULL 
LXLO 
TZE 
ANXO 
ERXO 
TNZ 


LDA 
CANA 


CACHE 


@CRDS Foo PCR 
eCRNPCorP.CR 
~1+2 

CACHON 
eKLPRGo2 o PL KL 
NX TPR 
eCRCMCo7 oP. CR 
CACHONM 
eKLCACer2 oPS.KL 
»CRCMCe2 PL CR 


eWEICBs4 oP. 108 
x+4 

20177 40U 
=0160.DU 

OC PU 


~WEPRV+4 oP. 10Q 
oF FODI2DL 


CURRENTLY IN EXECUTION IN ANOTHER PROCESSOR, 
IF SOs MUST CAUSE CACKE MEMORY OF THAT 
PROCESSOR TC BE CLEARED. 


UNIPROCESSOR CONFIG = TRA 
MULTIPROCESSOR CONFIG = NOP 
SHUT DISPATCHER GATE 

# OF PROCESSORS 

NEXT ONE 

NO MORE: 

IS THIS PROCESS EXECUTING THERE 
NO 

YES, IS IT US. 

YES 


CLEAR HIS CACHE 


TEST SHAERED WORKING SPACE 
TEST DESCRIPTOR PRESENT 

NOs DESCRIPTOR 

RETRIVE TYPE AND REG... CODE 

IS TYPE ZERO AND REG.7 

NO» SHAERED WORKING SPACE I1/0 


GET CONTROL BITS 
IS PRESENT THE FIRST DATA 


60 


IOSOQ4AAM 


10S0€395 


ITOSO4AAM 
IOSO4AAM 
IOSO4AAM 


ELS. 


EL8. 
EL8. 
EL8. 
EL8. 
EL8. 
EL8. 


a 


—1245T C2 


T2=27*79 
0037124 003157 
003125 100016 
003126 000177 
003127 000160 
003130 003137 
003131 001000 
003132 003157 
003133 100020 
003134 000177 
003135 000160 
003136 003157 
003137 700271 
003740 000001 
003141 003161 
003142 700100 
003143 003140 
003144 300000 
003145 700100 
003146 003140 
003147 700100 
003150 003140 
C03151 100005 
003152 900002 
003153 903163 
003157 900200 
003160 600117 
003163 006204 
003164 100005 
003165 003171 
003166 200002 
003167 100001 
003170 900000 
003171 040000 
003172 100001 
003173 003205 
003174 200034 
C03175 100007 
003176 777777 


09.357 


6002 00 010 
7203 14 9000 
3602 03 000 
6602 03 000 
6012 00 010 
3152 07 000 
6002 00 010 
7203 14 900 
3602 03 000 
6602 03 000 
6002 00 010 


003137 
2223 00 9000 
1222 03 000 
6042 00 010 
2343 12 000 
6046 00 010 
0543 12 000 
1023 17 0900 
6002 00 010 
0153 12 000 
7102 00 010 


7203 14 000 
3002 03 900 
6012 00 010 
003154 
2352 07 O00C 
2553 00 9000 


4726 07 9000 
2223 14 000 
6002 CO 010 
6707 00 000 


3352 07 O00 
3553 12 000 


003171 
2352 07 000 
3153 14 000 
6002 00 010 


6707 00 O00 


2223 14 000 
2352 03 000 


2 386 
2387 
2 388 
2389 
2390 
2391 
2392 
2593 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 


2402 


2403 
2404 
2405 
2406 
2407 


2408 


2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 


H6600J37.002 


EXIT 0 


OC PU 


CACHE 


CACHOK 


CACHY 
CACHX 


1/0 


S UPERVIS OR 


STATUS RETURN ACTION 


TZE 
LXLO 
ANXO 
ERXO 
TNZ 
CANA 
TZE 
LXLO 
ANXO 
ERXO 
TZE 


NULL 
LOX2 
SBLX2 
TMI 
SZN 
TMOZ 
AOS 


CMPX2 


TZE 
cioc 
TRA 


LXLO 
CANXO 
TNZ 
LDA 
ORSA 
2 OPEN 
LOP 
LDX2 
TZE 
LDD 


“LCA 


ANSA 
RETURN 
NULL 
LDA 
CANA 
TZE 
LDD 


LDX2 
LDA 


CACHOK 
eWEDRI+4 oP. 108 
=0177 DU 
=0160.0U 

OCcCPU 

oF FDD2,0L 
CACHOK 
e@WEDRFo4 oP. 10Q 
=0177.,0U 
=0160.DU 
CACHOK 


«CRNPCorF.CR 
1,D0U 

CACHY 
»CRCMCo2eP.CR 
OCPU+1 
eKLCACer2 o PS.KL 
eCRCMCe7 oP. CR 
OC PUt1 
oCRCMC22 7eP. CR 
OCPU+1 


»~WEPEPs4 PL 108 
~FBT34,0U 

CACHX 
aCROSPssF.CR 
eRCCACADL 
eSRES Toe F.SSA 
eCRODSPoeP.CR 
A,PSHsSD.PSH~» DOL 
eWEPEFs4 oP. 108 
NOPPT 
POsPH.sPATss A. PSH 


eFBSY F417,0L 
Or 2ePC 


DCW FOR ‘NODCW* 
oF FOCWADL 
»WEPRV.4 oP. 108 
NOPFX 


POsPH.~DCWerA. PSH 


aWEQOFFs4 oP, 108 
-1,DU 


7912191080 PAGE 


NO» TEST END 


RETRIVE TYPE AND REG. CODE 

IS TYPE ZERO AND REG.7 

NO» SHAERED WORKING SPACE 1/0 
IS PRESENT THE SECOND DATA 
NOs TEST END 


RETRIVE TYPE AND REG. CODE 
IS TYPE ZERO AND REG.7 
TEST END 


GET CPU NUMBER 


ALL CPU DONE 
IS PROCESSOR ACTIVE 
NO 


1S: tS 

YESs DONT CONNECT 

SEND FLAG TO CLEAR CACHE 
NEXT CPU 


GET COMMAND TYPE 

IS CMD WRITE 

YES,» DON'T CLEAR. CACHE 
WATCH OUT FOR DISPATCHER 
SET CLEAR CACHE FLAG 


OPEN GATE 

GET PUSH DESCRIPTOR 
GET PAT POINTER OFFSET 
NO PAT POINTER 


PAT DESCRIPTOR TO ODRO 
T77777b677777 
RESET FLAGs NO FILE REQUEST ACTIVE 


SEE IF *NODCW* FLAG ON 


NO» NORMAL DCW 
DCW IS DCW SEGMENT 


DCW-DESCRIPTOR 
GET DCW ADDRESS 
RETURN DCW FLAG UPPER BITS-ON 


61 


IOSO4AAM 
11FWC840 
11FWC850 


-EL8. 


11FWC880 


IOSO4AAM 
IOSO4AAM 
EL8&. 

IOSO4AAM 


IOSO4AAM 


IOSQ4AAM 


10SO4AAM 
1OSO4AAM 


29FWCO60 


1245T 02 


12-27-79 
003177 0900000 
003200 100001 
€03201 001000 
003202 003205 
003203 100007 
003204 000000 
003205 000001 
CO3211 100000 
003212 000077 
003213 000001 
003214 003224 
C03215 003222 
CO3216 400000 
003217 000001 
003220 000001 
003221 013201 
003222 000000 
003223 003233 
C03224 100004 
003225 017774 
003226 003233 
003227 000001 
003230 600160 
003231 000001 
003232 600113 
003233 100022 
003234 003306 
003240 000005 
003241 100000 


09.357 


H6600/7.002 
EXIT O 
7553 12 000 2436 
7223 14 000 2437 
3022 03 O00 2438 
6002 00 010 2439 
7223 14 Q00 2440 
7553 12 O00 2441 
2442 * 
003205 2443 NOPFX 
2222 13 O00 2444 
003206 2445 
2353 14 O00 2446 
3752 07 O00 2447 
1152 07 O00 2448 
6002 00 O10 2449 
7412 00 010 2450 
2352 07 O00 2451 
2212 03 O00 2452 
2362 07 O00 2453 
2454 
7002 00 010 2455 
2456 
2457 * 
2612 03 O00 2458 SAVX1 
7102 00 010 2459 
2460 
2461 
2462 * 
2463 * 
2464 x 
003224 2465 SGPCM 
2223 14 000 2466 
3622 03 Q00 2467 
6012 00 010 2468 
3352 03 O00 2469 
0553 00 000 2470 
3352 07 O00 2471 
0553 00 9000 2472 
2473 
2474 
2475 x 
2476 * 
. 2477 x 
003233 2478 LNKCC 
7203 14 Q00 2479 
6002 00 010 2480 
2481 
003235 2482 
2362 07 O00 2483 
2563 14 O00 2484 . 
2485 * 


1/0 


S UPERVIS OR 


STATUS RETURN ACTION 


STA 
LXLe2 
CANX2 
TZE 
LXL2 
STA 


NULL 
LDX2 
« SHUT 
LDA 
ANA 
CMPA 
TZE 
STX1 
LDA 
LOXx1 
LDQ 


TSXxO 


ORX1 
TRA 


On2ePC 
eWEPRVed oP. 108 
eFFDD2,0U 

NOP FX 
eWEOFFs4 oP. 100 
Or2eP0 


173 
»~CRQGTseF.CR 
eWEST 44eF.10Q 
@FIOSTSZOL 
1/0L 

SGPCM 

SAVX1 

oF STOPSDL 
1/DU 

14DL 


UL NK 


ke DU 
LNKCC 
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SET 

TEST SECOND DCW EXIST 

IS EXIST 

NONE» DATA IS FMS*S CC ADDRESSsMAY BE 
GET SECOND DCW ADDRESS 

RETURN DCW 


NO» ‘NODCW* 
RESTORE LCX 10806410 
GET I/0 ENTRY STATUS 

IS GEPR» REMOTEs INTER-COM 

STATUS IS BUILDING 

DONT UNLINK 

SAVE X1 

RESET ALL BUT STOP BIT 

AMOUNT TO DECREMENT IN XMISSION COUNT 

SET BUILDING STATUS FOR NOW 


UNLINK I/Os DECREMENT LINKED COUNT 
AND IN TRANSMISSION COUNT 


RESTORE X1 WITH SPEC. COMMAND FLAG 
GO CHECK FOR COURTESY CALL 


GEPR.s REMOTEs OR INTER-SLAVE COMM. FILE I/O» ALREADY UNLINKED 


NULL 
LDX2 
ANX2 
T™NZ 
LCA 
ASA 
LCA 
ASA 


CHECK COURTESY CALL REQUEST 


NULL 
LXLO 
TZE 


e@ SHUT 


LDQ 
ORSQ 


»WESCT+4-P, 100 


oFSCT1s40U 
LNKCC 

1,DU 
#SRQCTssP.SSA 
17 0L 

eSINQRss PSSA 


eWEIOEs4 -P. 108 
NOCCA 


eKLSCCoePSAKL 
5@DL 
eWEST +40 F.1 09 


IS INTERCOM FILE 
NO», DONT DECRMT. QCT FOR GPER OR REMT 
DECREMENT UPPER FOR INTER~COM 


DECREMENT INTER-COM. FILE COUNT 


TEST COURTESY CALL REQUESTED 
NO COURTESY CALL REQUESTED 


SHUT. CCQ 


SET I/0 ENTRY STATE TO CC WAITING 


1245T 02 


12-27-79 
003242 000001 
003243 600160 
003244 9000000 
C03245 300050 
003246 003252 
003247 100000 
003250 100001 
003251 003254 
003252 300050 
003253 100001 
003254 300050 
003255 100000 
003256 000001 
CQ3257 000220 
003260 100004 
003261 003303 
003262 100000 
C03263 100001 
003264 003303 
003265 000004 
003266 600027 
003276 600117 
003277 600017 
003300 400000 
003301 003363 
003302 9003400 
C03303 000001 
003304 000400 
003305 003266 


09.357 


2352 03 000 
0553 00 000 
2202 03 9000 
7223 00 000 
6002 00 9010 
7443 12 0900 
7423 14 0600 
7102 00 010 
003252 


7443 00 000 
7403 14 000 


003254 
4443 00 000 
7403 14 O00 
2362 03 900 
2352 07 000 
3153 14 000 
6012 00 010 
2352 07 O00 
3153 14 900 
6C12 00 010 
2352 03 9000 


003266 
0563 00 000 


O032E7 


2553 00 000 
2353 00 000 
3152 07 000 
6012 00 010 
7102 00 O10 


2762 07 oO0C 


2352 03 000 
7102 00 010 


003306 


H6600J7.002 


EXIT C 


2486 * 
2487 * 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 


2496 NOCCQ 


2497 x 
2498 
2499 
2500 * 
2501 * 
2502 * 


2503 CNTCC 


2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 


25715 CCCNT 


2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 * 


2527 SYOTCC 


2528 
2529 
2530 
2531 
2532 
2535 


+ + & 


* 


2534 NOCCA 


2535 * 


1/0 


S UP ERVIS$ OR 


STATUS RETURN ACTION 


LDA 
ASA 
LDXO 
LXL2 
TZE 


STX4 | 


STX2 
TRA 
NULL 


STX4 
STXO 


7912191080 PAGE 


COURTESY CALL GATE AND I/0 QUEUE GATE SHUT 


1/D0U 
@SRQC Tse P.SSA 
0. DU 
eKLSCCorFS.KL 
NOCCQ 
eWESTs2eP.10Q 
eWEPRVs4 oP. 108 
CNTCC 


eKLSC Cos PS.KL 
»WEPRV24-P.10Q 


INCREMENT QUEUE COUNT 
FOR LINKED ENTRY 
CC ENTRY QUEUING 


NO ENTRY IN QUEUE 
SET QUEUE CHAINNIG 
COUTESY CALL GATE SHUT 


STORE NEW FIRST ENTRY 
NO PREVIOUS ENTRY 


SET .SRQST AND .SCCAL FOR THIS PROCESS 


NULL 
SXL4 
STXO 
LDQ 
LDA 
CANA 
TNZ 
LDA 
CANA 
TNZ 
LDA 


NULL 
ASQ 


2 OPEN 
«OPEN 
e SHUT 
ORSA 
LDA 
CANA 
TNZ 
TRA 


ORG 
LDA 
TRA 


eKLSC Cos FSLKL 
eWEST 44 F108 
1/DU 

eFSYOT+. FNABT »DL 
eWESCT+4 oP. 100 
SYOTCC 

oF FTYPs0L 
eWEPRV54,P.108 
SYOTCC 

»RCC.DU 


@SCCALso FSSA 


eKLSCCoerPS.KL 
eCRQG Tso F.CR 
eCRDSFeoF.CR 
*SRQS Tse PSSA 
eSTATEseF.SSA 
eTRELCAOL 
RELCB 

ENABL 


1/D0L 
eRSYCCsDL 
CCCNT 


STORE NEW LAST ENTRY 
NO NEXT ENTRY 
TEST COURTESY CALL TYPE 


IS SYSOUT I/C ENTRY 
YES~s 


IS SYSTEM 1/0 ENTRY 
YES 
STATE CC WAITING 


COUNT TOTAL CC WAITING 


OPEN CC GATE 

OPEN 1/0 QUEUE GATE 
SHUT DISPATCHER GATE 
SET STATE OF CC 


IS RELINQUISH SET 
YES, BREAK IT 
NO» ENABLE PROCESS 


SYSTEM LEVEL CC» COUNT IT SEPARATELY 


SET SY¥YSOUT CC WING 


NO COURTESY CALL REQUESTED - RELEASE I/0 ENTRY AND 
REDUCE COUNT 


NULL 


63 


10sdgé00s 


ANON1520 
ANON1530 
ANON1540 


~ANON1S50 


10806015 
T0s0é020 


~10seé02s 


10806030 


1245T O02 12-27-79 


003306 
003307 
003310 


003311 
003312 
003313 
003314 
003315 
003316 
003317 
003320 


003321 
003322 


003323 
003324 


C03332 


003333 
003334 
003335 

003336 
003337 
003340 
003341 


100004 
100000 
003323 


100005 
004000 
003323 
002000 
003322 
006013 
000014 
000002 


003323 


012644 


600160 
003342 


600017 


400000 
003363 
000200 
003400 
000400 
600117 
003421 


09,357 


2203 14 000 
3002 03 000 
6012 00 010 


7203 14 000 
3002 03 9000 
6012 00 010 
3002 03 900 
6002 00 010 
4706 07 000 
6707 14 0900 
4443 00 000 


7102 00 010 


7002 00 9010 


003323 
2343 00 9000 
6002 00 010 


003325 


003325 
003327 
2353 00 000 


003333 
3152 07 000 
6012 00 010 
3152 07 000 
6012 00 010 
2352 07 O00 
2553 00 000 
7102 00 010 


003342 


003342 


H6600J7.002 


EXIT 0 


* 
* 


YULNK 


1/0 


STATUS RETURN ACTION 


TEST GEPR SPECIAL INTERFACE 


LOXxO 
CANXO 
TNZ 


LXLO 
CANXO 
TNZ 
CANXO 
TZE 
LDP 
LDD 
SXL4 


TRA 
NULL. 
2 ULINK 
TSXO 


NULL 


~ SZN 


TLE 


CHECK PROCESS STATE FOR RELINQUISH OR ALARM 


NULL 


2 OPEN 
«SHUT 


LDA 


DISPATCHER GATE SHUT 


NULL 
CANA 
TNZ 
CANA 
TNZ 
LDA 
ORSA 
TRA 


S UP ERVIS OR 


WESC Ts4 oP. 10Q 


NULNK 


@WEPEPs4 oP, 10Q 


FREI S/D0U 
NULNK 


»FSGPRsDU 


YULNK 


POsSD.~I0GsDL 
PO,.WEICBs4.P0 
eIWDATss FO 


NULNK 


ULINK 


eSRQC Tse PSSA 


SRBLK 


eCRQG Toe F.CR 
eCRODSPorP.CR 
aSTATEss F.SSA 


oTRELCADL 
RELCB 
eo TALRMSOL 
ENABL 
oRIOTMsDL 


@SRQS Tos P.SSA 


SOPOS 


7912191080 


TEST 


IS SET ‘DONT UN=LINK® 
YESs DONT UN<LINK 


IS GEPR SPECIAL COMMAND 

ID GEPR REISSUE I/0 

YES» THIES ENTRY ID UNLINKED BY GEPR 
IS GEPR SPECIAL I/0 

NO» UN“LINK ENTRY 

GEPR ISSUE I/0 IS NON READY 

THEN RETURN I/0 ENTRY OFFSET 

AND NOT UN=LINK I/0 ENTRY 

FOR RECOVERY 


NOT UN<-LINK 


UNLINK ENTRY 


I/O QUEUE COUNT ZERO 
ZERO» CHECK ROADBLOCK 


GET STATE WORD 


IS RELINQUISH SET 
YESse BREAK RELINQUISH 


IS ALARM SET 


YES» BREAK ALARM 


NEITHER» OPEN DISP GATE AND 


ACTIVE ENTRY COUNT WENT TO ZERO 
CHECK FOR ROADBLOCK TO BE BROKEN 


NULL 


2OPEN 


»~CRQGTs/F.CR 


OPEN I/0 QUEUE GATE 


PAGE 


RETURN 


64. 


10$01280 
10801290 


10806570 
10806575 


@ 
sd | 
1245T C2 12-27-79 09.357 H6600J7.002 1/O SUPERVISOR 7912191080 PAGE 65 
| ° EXIT O = STATUS RETURN ACTION 
: @ 003344 2585 ~SHUT .CRDSPs-FP.CR 10801820 
003347 600117 2353 00 000 2586 LDA «SRGSTseF.SSA GET REQUEST STATE 
003350 010000 3152 03 000 2587 CANA »RGEPR,DU IS GEPR REQUESTED 
@ 003351 003332 6012 00 010 2588 TNZ SRLC2 YES, CAN NOT BREAK ROADBLOK 
003352 600017 2353 00 000 2589 LDA eSTATEs + PSSA GET STATE 
003353 010000 3152 03 000 2590 CANA «TGEPReDU IS GEPR IN CONTROL 
e 003354 003333 6012 00 010 2591 TN2 SRLC1 YES, CAN NOT BREAK ROADBLOK 
003355 200000 3152 07 000 2592 CANA «TROBKSDL IS ROADBLOCK SET 
003356 003333 6002 00 010 2593 TZE SRLC1 NO» CHECK FOR RELINQUISH 
® 2594 * 
2595 * ROADBLOCK WAS SET, BREAK IT 
2596 * 
& CO3357 200000 6752 07 000 2597 ERA «TROBKsDL TURN OFF ROADBLOCK BIT ANON1570 
003360 600017 7553 00 O00 2598 STA oSTATEss FSSA IN STATE WORD ANON1580 
003361 000057 2352 07 000 2599 LDA oYRODEZDL SET ROADBLOCK BROKEN TRACE CODE 
$ 003362 003366 7102 00 010 2600 TRA RBRLT 
| 2601 * 
2602 * RELINQUISH WAS SET» BREAK IT 
: @ 2603 * 
003363 2604 RELCB NULL 
2605 DISPATCHER GATE SHUT 
Ss 2606 
| 003363 400000 6752 C7 O00 2607 ERA »TRELCADL TURN OFF RELINQUISH BIT ANON1600 
003364 600017 7553 00 000 2608 STA oSTATEss F.SSA IN STATE WORD ANON1610 
iz) 003365 000056 2352 07 000 2609 LDA eYRLCBSDL SET RELINQUISH BROKEN TRACE. CODE 
2610 * 
2611 * BUILD ROADBLOCK CR RELINQUISH BROKEN TRACE 
@ 2612 * 
003366 2613 RBRLT NULL 
2614 DISPATCHAR GATE SHUT 
a 2615 
2616 
: 2617 * * * * ROADBLOCK / RELINQUISH TRACE * * * * ® & 10806735 
a: @ 2618 
2619 -YRtLCB =~ RELIN@G@UISH BROKEN 
| 2620 | 
: @ 2621 -YRODB =~ ROADBLOCK BROKEN 
2622 
: 2623 eABCVE CODE IS SETED IN A REGISTER 
' ® 2624 
003366 2625 ~TROPN ENABL »GREG 
003366 700044 7173 00 000 XED oCRTRV4+2e6P.CR 
: @ -003367 000011 7102 04 3400 TRA ENABL »$ 
003370 700312 2203 17 000 2626 LDxO ~CRTEPs7,P.CR 
003371 700000 7553 10 900 2627 STA O-0-P.CR SET TRACE TYPE CODE 
® 003372 600017 2353 00 O00 2628 LDA eSTATEs eo F.SSA 
003373 700002 7553 10 000 2629 STA 2e0-P.CR SET .STATE 
003374 600117 2353 00 000 2630 LDA oSRQS Toe F.SSA 
e 003375 700003 7553 10 000 2631 STA 320-P.CR SET .SRQST 
2632 
e 


12457 02 


12-27-79 
003376 000002 
003377 700052 
003400 003434 
003401 000400 
003402 600117 
003403 900000 
003404 000002 
003405 006133 
003406 000044 
003407 9000002 
003410 006024 
C03411 000001 
003412 900000 
003413 000003 
003414 600012 
003415 100007 
C03416 006133 
003417 006013 
003420 001761 
003423 003434 
003424 000007 
003425 000000 
003426 300044 
003427 9000000 
003430 9000000 
003431 9000000 


09.357 


003376 


6202 
7173 


003400 


2232 
2352 
2553 
4412 
7442 
4706 
2353 
7352 
4706 
Lied 


4716 
6 306 
4507 
7103 


4736 
4716 
4716 


003421 
003421 


2202 
7726 
0732 
2263 
7102 


003430 


00 
00 


17 
10 
10 
17 
10 


000000 
000000 


H6600J7.002 


000 
000 


010 
000 
000 
000 
000 
000 
000 
000 
000 
000 


000 
000 
000 
000 


000 
00C 
000 


010 
000 
000 
000 
000 


000 
000 


2633 


2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2 643 
2644 
2645 
2 646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 


1/0 


SUPERVISOR 


EXIT O = STATUS RETURN ACTION 


7912191080 PAGE 


e TRPUT TODPNC SET CPUNOs KPXs» AND TOD 
EAXO 2 
XED eCRTIRVF8soP.CR 
kk ke ke ke ke eK ee OUT OR ACE D 
* 
* PROCESS STATE HAS CHANGEDs, ENABLE PROCESS 
* : 
ENABL NULL 
LOX3 ALLREG»s7 LOCATE REGISTERS 
LDA eRIOTMZOL SET 1/0 COMPLETE SINCE LAST LINK 
CRSA »SRQS Toe FaSSA IN PROCESS STATE 
$Xu1 0,3 PASS X1 
STX4 203 & X4 
LOP PO.SD.KL DL 
LDA eKLPRE,7 »PO GET KPX 
ALS 2 *4 
LOP PO,SD.PICADL 
LOWS 1,/AU,FO RESTORE WSR 4-7 
ENAB2 LDP PI» x* eDL eMDISP SEGID 
EPPR PO «3, IC SET RETURN 
STP PO s.SSAeIDeP.SSA IN STACK 
TRA 7 eo Pl C.MDISP,7 ENABLE) 
* 
LOP P.KLoSD.KLs DL RELOAD P.KL 
LOP P.10Q,SD.I0Q, DL RE=LOAD P.IO0@Q 
LOP P.10Qs.CTYPsDL 
* 
* PROCESS WHOSE STATE CHANGED HAS BEEN ENABLED 
* RETURN TO CALLER 
* 
SOPDS NULL 
«OPEN »CRDSPosF.CR OPEN DISPATCHER GATE 
LOXO ALLREC.7 LOCATE REGISTERS 
LOWS 720 RESTORE WSR 4-7 
LREG 00 RESTORE REGISTERS 
LDX6 eKLPRGo7 oP. KL RESTORE KPX 
TRA 00 RETURN TO CALLER 
* 
* DATA AREA 


* 

QSAVE NULL 
ZERO 
ZERO 


Q-REG. SAVE AREA 
FOR CPUNO-0 
FOR CPUNO~1 


66 


10806545 


10806420 
10806425 


IOSO4AAM 
IOSO4AAM 
10SO4AAM 
IOSO4AAM 
IOSO4AAM 


10804800 
10S04805 
10$048170 


108046815 


10804820 
10804825 


10806435 
T0S06440 
10806445 
10806450 
IOSO4AAM 


—1245T C2 12-27-79 


003432 
003433 


003434 
003435 
0034 36 
003437 


000000 
000000 


014170 
014200 
074210 
014220 


09.357 H6600J7.002 1/0 S UP ERV IS OR 7912191080 


EXIT Q = STATUS RETURN ACTION 


000000 000 2681 ZERO FOR CPUNO-2 

000000 00C 2682 ZERO FOR CPUNO-3 
003434 2683 ALLREG NULL 

0000 00 O10 2684 ARG POREG 

0000 00 010 2685 ARG POREG+8 

0000 00 010 2686 ARG POREG+16 

0000 00 010 2687 ARG POREG+24 


PAGE 


67 


10800130 
10800140 
10800150 


124517 02 12-27-79 
003440 100000 
003441 003451 
003442 003774 
003443 701200 
003447 007674 
003450 000666 
003451 701200 
003452 701200 
003453 701401 
003454 000666 
003455 002156 
003456 002156 
003457 000666 
003463 007347 
003464 000666 


09.357 


003440 


3012 03 000 
6002 00 010 
3612 03 000 
003443 
2243 11 000 
003444 
7032 00 9010 
7102 00 010 


003451 
2243 11 900 
6443 11 000 
2253 12 000 
6002 00 010 
0342 00 010 
7552 90 010 
6012 00 010 

003460 
7032 00 010 


7102 00 010 


H6600J 


7.002 


1/0 


S UP ERV IS OR 


7912191080 PAGE 


RELEASE CHANNEL AND START 1/0 ON NEXT ELIGIBLE ENTRY 


+ ¢ ©+ + + + & e+ + HF HH 


RLCH 


SPCMD 


REGISTERS CONVENTION 


X1= 
X2= 
X4= 
X5= 
X6= 
X7= 


NULL 
INHIB 
CANX1 
TZE 
ANX14 
NULL 
LDX4 
e SHUT 
TSX3 
TRA 


NULL 
LOX4 
ERSX4 
LDXS 
TZE 

LDAC 
STA 

TNZ 

e SHUT 
TSX3 


TCX 
LPCX 


I/O ENTRY OFFSET REL. TO P.IOS 


KPX CF I/0 ENTRY 


PROCESSOR # 


ON 

oF ONTU,DU 
TRLC1 

oF CHNXsDL 


eCRIO1414P.CR 
»CRQGTs+sP.CR 
STSPC 

GTCHN 


»CRIO1s14P.CR 
»CRIO1+1-P.CR 
eCRCT 202 oP, CR 
GTCHN 

FLTIT 

FLTIT 

GTCHN 
eCROQG Toe PF. CR 
STIO 


*,CRQGT IS OPEN AFTER STIO 


* 


* 


TRA 


INHIB 


GTCHN 


OFF 


IS SPEC CMD NEXT 
NO/RELEASE CHAN. 
YES FIX X71 AND ISSUE SPECIAL CMD 


GET REAL I/0 ENTRY OFFSET FOR PUSE,.. 


SEND SPECIAL CMD 


RELEASE CHANNEL 

ARE THERE ANY I/0 ENTRIES? 
NO SKIP STIO 

IS FAULT CHANNEL ACTIVE 
RESTORE STATUS 

YESs NO STIO 


START 1/0 ON ELIGIBLE ENTRY 
IN 1/0 STREAM 


LOOK FOR MORE INTERRUPT 


I 


68 


10803320 


ANONC730 
ANONC740 
ANONO750 


@ ® 
@ ® 
| 1245T 02 12-27-79 09,357 H6600J7.002 1/O SUPERVISOR 7912191080 PAGE 69 
2 @ @ 
EXIT1 = GEPR ACTION (CTGEFR) 
1 @ 2730 * @ 
i 2731 * CHAN MOD EP1 KAS DETERMINED THAT STATUS REQUIRES GEPR 
2732 * RECOVERY ACTION (GEPR OVERRIDE WAS NOT REQUESTED) 
& 2733 * @ 
| 2734 * REGISTERS CONVENTION 
2735 * X1 = TCX 
5s @ 2736 * X2 = LCPX @ 
| 2737 * X4 = 1/0 ENTRY OFFSET 
2738 * X6 = KPX 
7 ©@ 2739 * X7 = PROCESSOR#A @ 
| 2740 * 
| 2741 * OOR1 =P.10Q@ (TYPE=0) 
s @ 2742 * ODR2 =P.RMS @ 
| 2743 * ODR6  =P.SSA | 
2744 x ODR7 =P.CR 
7 @ 2745 * © 
| 2747 * 
le 2748 * e 
003465 2749 TGEPR NULL 
003465 100000 2361 14 9000 2750 Loa »WEST»4,F,10Q LOAD 1/0 ENTRY STATUS 
' @ 003466 000050 3760 07 O00 2751 ANQ =050,0L SAVE TAPE MSG AND EXCHG. INF. eS 
| (03467 000004 2760 07 O90 2752 ORQ 4eDL INSERT GEPR BIT 
003470 2753 LOADA NULL 
1 @ 003470 2754 «SHUT .CRGPGroP.CR @ 
003473 2755 oSHUT = .CROGTs»sF.CR 
| 2756 INHIB ON 
1@ 2757 * & 
' 003476 003604 7412 00 010 2758 STX1 TEMP X1 WAS DESTROYED BY LINK 
003477 000001 2212 03 O00 2759 LDX1 1, DU AMOUNT TC DECREMENT IN XMIT COUNT 
10 003500 000000 6352 16 000 2760 EAA 076 | SET KPX IN A @ 
003501 000002 7352 00 O00 2761 ALS 2 
i 003502 006024 4706 07 O00 2762 LoP P.PIDs/SD.PID, DL 
1 @ 003503 000001 7727 01 000 2763 LOWS 1/AU,F.PID SET LOWER OF WSR & 
003504 100005 2353 14 000 2764 LDA ~WEPEPs4,P.10@ CHECK CMD TYPE FOR CACHE CLEAR 
003505 000002 3152 07 O00 2765 CANA «FBT34,DL IS CMD WRITE EL8. | 
1 @¢ CO3506 000003 6012 04 O00 2766 TNZ 3,1C YES, NO CCAC EL8. 2 
003507 000200 2352 07 O00 2767 LDA »RCCACSDL SET CACHE CLEAR FLAG 
003510 600117 2553 00 O00 2768 ORSA oSRQSTss PSSA SET IT 
5 ® 003511 740000 2352 07 O00 2769 LDA =0740000.DL RESET SPEC + INTRS. FLAG e 
003512 013201 7002 00 010 2770 TSXO UL NK UNLINK I/0 ENTRY,/DECREMENT LINKED 
2771 * COUNT AND IN XMIT COUNT 
s @ . 2772 * & 
| 003513 003604 2412 00 010 2773 ORSX1 TEMP | TURN ON SPECIAL CMD FLAG 
9 003514 020000 2352 07 O00 2774 LDA »FSHRDsSDL IS THIS SHARED DEVICE ? 
@ 003515 701400 3153 12 000 2775 CANA oCRCT1425P.CR ®@ 
| 003516 003523 6012 00 010 2776 TNZ GOPQG YES, DON'T STOP IT 
| 003517 100004 2213 14 000 2777 LDX1 »WESCT»4 oP. 10Q —_ 
7 @ 003520 017774 3612 03 O00 2778 ANX1 »FSCT1/0U @ 
003521 900001 2352 07 9000 2779 LDA oFSTCHsDL 
@ @ 
e @ 


12457 C2 


12-27-79 
003522 700000 
003523 003604 
003524 003774 
003525 003604 
003526 050000 
003527 600017 
003530 003544 
003531 040000 
003532 600017 
003533 003540 
003534 100001 
003535 100000 
003536 003552 
003537 003554 
003540 100001 
003541 100000 
003542 003547 
003543 003554 
003544 100001 
003545 100000 
003546 003552 
003547 040000 
003550 600117 
003551 003554 
003552 010000 
003553 600117 
003563 000400 
003564 600117 
003565 400000 
003566 600017 


09.357 H6600J57.002 
EXIT1 = 
2553 11 O00 2780 
2781 * 
003523 2782 GOPQG 
2212 00 010 2783 
3612 03 O00 2784 
2785 * 
2786 * 
2787 x 
2788 * 
2789 x 
: 2790 * 
4422 00 010 2791 
2352 03 O00 2792 
3153 00 O00 2793 
6002 00 010 2794 
2352 03 Q00 2795 
3153 00 000 2796 
6002 00 010 2797 
2353 14 O00 2798 
3152 07 O00 2799 
6002 00 010 2800 
7102 00 010 2801 
2802 * 
003540 2803 NTSYS 
2353 14 O00 2804 
3152 07 O00 2805 
6012 00 O01C 2806 
7102 00 010 2807 
003544 2808 NTRECR 
2353 14 000 2809 
3152 07 O00 2810 
6002 00 010 2811 
2352 03 000 2812 SYSERR 
2553 00 O00 2813 
7102 00 010 2814 
2815 * 
003552 2816 NOSYS 
2352 03 O00 2817 
2553 00 000 2818 
2819 * 
2820 * 
003554 2821 GPRIO 
003554 2822 
003556 2823 
2824 x 
003560 2825 
2352 07 O00 2826 
2553 00 000 2827 
2352 07 O00 2828 
3153 00 000 2829 


1/0 


S UP ERVIS OR 


GEPR ACTION CTGEPR) 


ORSA 


NULL 
LOXx1 
ANX1 
LOX3 
LDA 
STA 
LDA 
STA 


SXL2 
LDA 
CANA 
TZE 
LDA 
CANA 


TZE 


LDA 
CANA 
TZE 
TRA 


NULL 
LDA 
CANA 
TNZ 
TRA 
NULL 
LDA 
CANA 
TZE 
LDA 
ORSA 
TRA 


NULL 


LDA 
ORSA 


NULL 


«2 OPEN 


«OPEN 


2 SHUT 
LDA 
ORSA 
LDA 
CANA 


Ov1P.CR 


TEMP 

eo FCHNXs,DU 
~CRMB3414P.CR 
O+3P.RMS 
»WEEP 144 -P. 10Q 
1e3eP.RMS 
eWEEP244 oP. 108 


TEMP 


e TGPRS+. TGEPR »DU 


~STATEss FSSA 
NTRECR 
eTGPRS/DU 
@STATEss PSSA 
NTSYS 
eWEPRV24 oP 108 
aFFTYF,DL 
NOSYS 

GPRIO 


eWEPRV24 oP. 108 
oF FTYPSDL 
SYSERR 

GPRIO 


eWEPRVs4 oP. 100 
eFFTYP,OL 
NOSYS 
eRGPRSZDU 
eSRQS Tse FSSA 
GPRIO 


«SRQS Tor FSSA 


~CRQGToeP.CR 
~CRGPGseF.CR 


eCRODSPosP.CR 
eRIOTMZDL 
»SRQS Tes FSSA 
»TRELCeDL 
eSTATEss PSSA 


7912191080 PAGE 70 


SET STOP BIT IN DEV. SCT 


RELOAD TCX IN X1 
TURN OFF SPECIAL CMD FLAG 
GET STATUS RETURN POINTER IN X3 


STORE SW 1 IN .WEEPT OF I/0 ENTRY 
ALREADY SET BY IH 
STORE SW 2 IN .WEEP2 OF I/0 ENTRY 


DESTROY BY DISP 
IN SPECIAL GEPR OR GENERAL GEPR 


EITHER 
IN SPECIAL GEPR CONTROL 
NO 


YES 
WAS IT SYSTEM 1/0 


SYSTEM 1/0 
NO SYSTEM I/0 


SET IT 


NO» SET GEPR NEEDED BIT IN .SRQST 


SET I/0 TERMINATED BIT 


IS RELINQUISH BIT ON ? 


ANON17640 
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EXIT1 = GEPR ACTION CTGEFPR) 


003567 003571 6002 00 010 2830 TZE +2 NO 
C03570 600017 6553 00 O00 2831 ERSA »STATEso F.SSA RESET IT 
003571 001703 7726 00 010 2832 LOWS IHWS SET IHLR WSR 4-7 IOSO4AAM 
003572 2 833 2o CALL eMDISFs7 PUT PROCESS IN QUEUE 
INHIB SAVEsON 
003572 000003 6306 04 3575 EPPRO *+345 
003573 700002 7103 00 000 TRA eCRCALse PCR 
003574 9000057 000007 000 ZERO »MDISF.7 
INHIB RESTORE 
2834 * 
2835 * 
003575 2 836 2 OPEN eCRDSFoasF.CR 
2837 * 
003577 006013 4716 07 O00 2838 LOP P1sSD.IOQe0L RELOAD I/0 SEG.DESC 
003600 001761 4716 07 O00 2839 LOP PI »aeC TYP »DL 
2840 *- 
003601 003604 2212 00 010 2841 LDXx1 TEMP RELOAD TCX IN X1 AND LPCX INX2 
C03602 003604 7222 00 010 2842 LXL2 TEMP 
003603 003440 7102 00 O10 2843 TRA TRLCH 
. 2844 * 
003604 2845 TEMP BSS 1 


7 @ ® 
: © ® 
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| & 
EXIT2 = GESPEC ACTION (TESPC) 
iz 2847 * & 
2848 * SI HAS OCCURRED ON GESPEC@ALLOWED DEVICE 
| 2849 * THIS WILL DETERMINE IF THERE IS AN I/O ENTRY WHICH 
s © 2850 * SHOULD BE STARTED @ 
| 2851 * 
2852 * REGISTERS CONVENTION 
s © 2853 » @ 
2854 x X1 = TCX 
2855 * X2 = LPCX 
2 © 2856 * X7 = PROCESSOR# e@ 
| 2857 * 
| 2858 * ODR1 =P.10Q (TYPE=0) 
s © 2859 x ODR3 = & 
| 2860 * ODR6 =P.SSA 
| 2861 * ODR7 =P.CR 
| 2862 * 
| ° 2863 * e 
| 2864 x 
’@ 003605 2865 TGSPC NULL t 
2 866 INHIB ON 
| 003605 2867 2 SHUT eCRGGTseF.CR SHUT I/0 QUEUE GATE 

e 2868 * | @ 
| 003610 701400 2233 12 000 2869 LDX3 oCRCT 142 5P.CR 
‘ 003611 000200 3032 03 O00 2870 CANX3 =0200,dU IS A GESPECED ENTRY LINKED ? 
1@ 003612 003624 6002 00 O01C 2871 TZE GPCSI | NO-SET SI FLAG a 
| 003613 701401 2243 12 000 2872 LDX4 oCRCT2425P.CR YES,GET I/0 ENTRY ADDR 
: 003614 003624 6002 00 010 2873 TZE GPCSI NOTHING LINKED NOW/REMEMBER IT 
iz 003615 020000 2352 07 O00 2874 LDA oF SPECSDL GESPECED BIT S 
| 003616 430001 3362 07 O00 2875 LCQ =0430C01.DL 
003617 2876 GSRCH NULL 
a0 003617 000300 $002 00 000 2877 RPL O,TZE @ 
1 003620 100000 2113 14 O00 2878 CMK 0+4,P.104 EXAMINE I/0 QUEUE FOR MATCH 
003621 003631 6072 00 010 2879 TTF GSPNT FOUND GESPEC=-LINKED ENTRY 
iz 003622 100000 2203 14 O00 2880 LOXO 04e/P.106 r 
| 003623 003617 6012 00 010 2881 TNZ GSRCH TALLY EXHAUSTED 
2882 * 
iz) 003624 2883 GPCSI NULL GESPECED ENTRY HAS NOT LINKED @ 
2884 * 
{ —©003624 «8400000 2352 C7 O00 2885 LDA oF SPRMoDL REMEMBERED SPEC INT BIT 
1¢6 003625 701200 2553 11 000 2886 ORSA ~CRI0141+P.CR SET SI FLAG IN TRUE CHANNEL ENTRY @ 
F 2887 x 
| 003626 2888 OPQGT NULL 
zs @ 0036 26 2889 @OPEN eCRAG Tse P.CR e@ 
, 2890 * 
2 2891 INHIB OFF 
1 @ | , | 2892 * | @ 

003630 900666 7100 00 010 2893 TRA GTCHN LOOK FOR MORE INTERRUPT 

| 2894 * 

& | 2895 * a & 
| 003631 2896 GSPNT NULL X4=1/0 ENTRY OFFSET WHICH IS GESPECED 

@ @ 
1@ @ 


1245T C2 


Ve=erer9 
003631 020000 
003632 100000 
003633 701401 
003634 020000 
003635 003001 
003636 000300 
003637 100000 
003640 003645 
003641 100000 
003642 003636 
003643 000200 
003644 701400 
003645 400001 
003646 701200 
003647 777777 
003650 701200 
003651 003626 
003652 200000 
003653 100004 
003654 003674 
003655 9000002 
003656 701400 
003657 003626 
003660 000001 
003661 701400 
003662 003674 
003663 000001 
003664 100011 
C03665 003671 
003666 100011 
003667 701400 
003670 003674 
003671 006000 
003672 100005 
003673 003626 
003674 007707 


09.357 


2352 07 000 
6553 14 000 
2233 12 000 
2352 07 O00 
3362 07 O00 


5002 00 000 
2113 13 O00 
6072 00 010 
2203 13 000 
6012 00 010 
2352 03 000 
6553 12 000 


003645 
3352 07 O00 
3553 11 000 
2352 03 9000 
3153 11 Q0C 
6012 00 910 
2352 03 000 
3153 14 000 
6012 00 010 
2352 07 000 
3153 12 000 
6C12 00 010 
2352 07 000 
$153 12 000 
6002 00 010 
2232 03 000 
3033 14 000 
6002 00 010 
6433 14 000 
6553 12 000 
7102 00 010 


003671 
2352 07 900 
3153 14 000 
6002 00 010 


003674 
7032 00 010 


2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 


H6600J7.002 


EXIT2 


* 


GSMOR 


* 
* 


1/0 


S UP ERVIS OR 


GESPEC ACTION (TCSPC) 


INHIB 
LDA 
ERSA 
LDX3 
LDA 
LCQ 
NULL 
RPL 
CMK 
TTF 
LDXO 
TNZ 
LDA 
ERSA 


ON 

eoFSPECsDL 
04-P.104 
eCRCT 202 oP. CR 
oF SPECsDL 
=03001,DL 


O-TZE 
0+3-P.100 
MRSM 

O04 3-P.106 
GSMOR 

oF SPLK,DU 
eCRCT142eP.CR 
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RESET GESPEC FLAG 
LOOK FOR MORE FROM START OF QUEUE 


=0777777747777 

ARE THERE ANY GESPECS LINKED ? 
YES DONT FLAG IN SCT 

TALLY EXAUSTEDANO MORE 


SPECIAL LINKED FLAG 
RESET GESPEC=-LINKED FLAG IN SCT 


*I/0 ENTRY WHICH WAS GESPECED CAN BE STARTED IMMEDIATELY 
@CRQGT IS STILL SHUT FOR STGPC (STIO) 


* 
* 


MRSM 


NULL 
LCA 
ANSA 
LDA 
CANA 
TNZ 
LDA 
CANA 
TNZ 
LDA 
CANA 
TNZ 
LDA 
CANA 
TZE 
LOX3 
CANX3 
TZE 
ERSX3 
ERSA 
TRA 


NULL 
LDA 
CANA 
TZE 


NULL 
TSX3 


oF SPRM417 ZDL 
~CRIO17/1eP.CR 
~1,DU 

eCRIO1s1 »P.CR 
OPQGT 

eF TAD sDU 
oWESCT#44P.100 
MRSM3 

oF TORSSZDL 
eCRCT 142 PCR 
OPQGT 
eFSTCHsDL 
eCRCT 1462 oP. CR 
MRSM3 , 
1/00 
eWEFCMs4.P.10Q 
MRSM4 
eWEFCM +4 oP. 108 
eCRCT 102 oP. CR 
MRSM3 


oF REI St+. FSGPR,DL 
eWEPEPs4 oP. 10Q 
OPQGT 


STGPC 


RESET THE REMEMBERED SPEC FLAG. 
IN CASE PRINTER RUN AWAY 


CHANNEL IS BUSY 


IS IT T&D ? 
YES/START THIS ENTRY 


IS THIS CHAN RESERVED TO T& D 
YES» DON*T START IT 


CHAN STOP ? 
NO 


DID THIS I/0 ENTRY STOP THE CHANN 
NO 

CLEAR BIT THAT STOPPED CHAN 

TURN OFF IT 

GO START THIS ENTRY 


IS IT SPECIAL GEPR OR GEPR REISSU 
NO 


eCRQGT IS OPEN WHEN RETURN IS MAD 
X5 & X6 WERE DESTORYED 


73 
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EXIT2 = GESPEC ACTION (TESPC) 


2947 * 
2948 INHIB OFF 
003675 000666 7100 00 010 2949 TRA GTCHN LOOK FOR MORE INTERRUPT 
2950 * 
2951 * 


@®eee?ee#eeee#ee#¢eeee6ee6e0ee?0ee?0ee0¢0 80 @ tc 
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EXIT4 = TEST FOR SPECIAL COMMAND ~~ FREE CHANNEL 

2953 * 

2954 * REGISTERS CONVENTION 

2955 * 

2956 * X1 = TCX 

2957 * X2 = tLPCX 

2958 * X4 = I/0 ENTRY OFFSET WHICH JUST TERMINATED 

2959 * X7 = PROCESSOR # 

2960 * 

2961 * ODR1 =P.1I0Q (TYPE=0) 

2962 * ODORS = 

2963 * ODR6 =P.SSA 

2964 * ODR7 =P.CR 

2965 * 

2966 * GATE IS OPEN 

2967 * 

003676 2968 SSPCM NULL 

CO03676 000001 2350 07 Q00 2969 LDA eFSCMS,DL 
003677 100004 3151 14 000 2970 CANA eWESCT#4-P. 100 IS SPECIAL CMD BIT ON ? 
C03700 003451 6000 00 010 2971 TZE TRLC1 NO» DON'T BOTHER TO RELEASE IT 
C03701 100004 6551 14 O00 2972 ERSA eWESCT#4-P.1090 - TURN IT CFF 
003702 003443 7100 00 010 2973 TRA ~~ SPCMD RELEASE CHANNEL 10801330 

2974 * 
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EXITS = MT SI #60 START I/0 


2976 * 
2977 * REGISTERS CONVENTION 
2978 x 
2979 * X2 = LPCX 
2980 * X7 = PROCESSOR# 
2981 * 
\. 2982 * ODR1 =PLIOQ (CTYPE=0) 
2983 * ODR3 = 
2984 * CDR6 =P.SSA 
2985 * ODOR? =P.CR 
2986 * 
2987 * 
2988 INHIB ON 
003703 2989 MTSI NULL 
003703 2990 « SHUT @CRAG Tor P.CR 
2991 * 
003706 007347 7032 00 010 2992 TSx3 STIO ATTEMPT TO START I/0 
003707 000666 7102 00 010 2993 TRA GTCHN LOOK FOR MORE INTERRUPT 
2994 x 
2995 INHIB OFF 
2996 * 
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EXIT7 = REISSUE CONSOLE READ 

2998 * 
2999 x REGISTERS CONVENTION 
3000 « 
3001 * X1 = TCX 
3002 * X2 = LPCX 
3003 * X4 = I/O ENTRY OFFSET 
3004 * X6 = KPX 
3005 * X7 = PROCESSOR # 
3006 * 
3007 * 

003710 3008 TREAD NULL 
3009 x 
3010 * Q-REG. HAS PMX IMAGE 
3011 * 
3012 * 
3013 INHIB ON ELB&. 

003710 3014 e SHUT eCRQGTseP.CR 
3015 * 

003713 007665 7032 00 010 3016 —TSXx3 TYPER STIO 
003714 000666 7102 00 010 3017 TRA GTCHN 

3018 * 
3019 * 


1245T C2 12-27-79 09.357 H6600J7.002 1/0 §S UP ERVIS OR 7912191080 PAGE 78 


EXIT8 = ERROR THRESHOLD 


3021 * 

3022 * CHAN MOD EP1 HAS DETERMINED THAT ERROR THRESHOLD HAS BEEN 

3023 * EXCEEDED ON THE DEVICE 

3024 * THRESHOLD STATUS IS SET IN w2WEST OF I/O ENTRY 

3025 * 1/0 ENTRY DOESN*T REQUIRE CEPR ACTION OTHER THAN THRESHOLD MSG 

3026 * 

3027 * REGISTERS CONVENTION 

3028 x 

3029 * Ko ee 

3030 x X2 = LPCX 

3031 * X4 = I/O ENTRY OFFSET 

3032 * X6 = KPX OF I/0 ENTRY 

3033 * X7 = PROCESSOR# 

3034 * 

3035 * ODR1 =P.,10Q (TYPE 0) 

3036 * ODR3 = 

3037 * ODR6 =P.SSA FOR POP 

3038 « ODR7 =P.CR 

3039 x 

3040 * 

003715 3041 TERRT NULL 

003715 100000 2363 14 Q00 3042 LDQ eWEST +46 F100 GET I/0 STATUS 
003716 000050 3762 07 O00 3043 ANQ@ oF MTDM+, FEXRQ,ZDL SAVE TAPE MSG AND EXCHG INF. 
(03717 003470 7102 00 010 3044 TRA LOADA . OFF TO GEPR EXIT 

3045 * 

3046 * 

003720 3047 MISEND NULL 


> 


1245T 02 


12-27-79 

003720 600005 
003721 904000 
003722 003775 
003723 200000 
003724 006204 
003725 200002 
003726 300001 
003727 200000 
003730 037777 
003731 037777 
003732 000002 
003733 000003 
003734 200000 
003735 003774 
003736 700000 
003737 003774 
003740 300002 
003741 003747 
003742 777777 
003743 300006 
003744 011206 
003745 300000 
003746 011206 
003747 012426 
003750 300002 
003751 300000 
003752 012477 
003753 000000 
003754 003772 
003755 001761 
003756 100000 
003757 000100 
003769 300000 
003761 000004 
003762 002030 
003763 100012 
003764 100001 
003765 012432 
003766 100012 


09.357 


000010 
000002 


2555 00 
3152 03 
6002 00 
6337 00 
4726 07 
6727 QO 
2203 00 
2233 10 
3632 03 
1032 03 
6012 04 
6232 10 
2203 13 
3602 03 
7223 10 
3622 03 
2363 00 
6252 00 
4112 03 
7203 00 
6042 00 
4112 C3 
7102 00 


7102 00 
7563 00 
7403 00 
7002 00 
6242 14 
6002 00 
4716 07 
6307 14 
1007 CO 
00017 O00 
0001 00 
2352 07 
3753 14 
2993 16 
6362 00 
2353 14 


000 
000 


000 


H6600J7.002 


3049 
3050 
~3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 


+ + ee eH 


»FEXTM 


P.PAT 
EXTMEM 


1/0 


X6= KPX 
X7= CPUN 
P2= PTR 
P6= P.SS 
P7= P.CR 


BOOL 
SET 


LDA 
CANA 


TZE 


EPPR 
LDP 
LDD 
LDXO0 
LOX3 
ANX3 
CMPX3 
TNZ 
EAX3 
LOxO0 
ANXQ 
LXL2 
ANX2 
LDQ 
EAXS 
LDE | 
LXLO 
TMI 
LODE 
TRA 


TRA 
STQ 
STXO 
TSXO 
EAX4 
TZE 
LDP 
EPPR 
MLR 
ADSC9 
ADSC9 
LDA 
ANA 
ORSA 
EAQ 
LDA 


S UP ERV IS OR 


EP6 = EXTENDED MEMORY LINK/LINKF 


0 
TO SHADOW I/0 ENTRY 
A 


10 


P2 
aSATT Rew FSSA 
eAEXTMs DL 
NEXTM 

P3204 »P2 
P.PATsSD.PSHsDL 
P.PAT sPH.PATs eP. PAT 
Too PS 
O0,0P.PAT 
eFPTOFSDU 

oF ADS» DU 

2eIC 

~OFFS,0 
073eP.PAT 

oF CHNXsDU 
0-0-P.CR 

ea FCHNXZDLU 
Caer P3 

EXT2 

~1 DU 

6a0P3 

MSCSK 
=0300000,buU 
MSCSK 


EP39N+1 

200 P3 

Or eP3 

QUEUE 

0-4 

EXT4 
P.10Q,.CTYPsDL 
PO e04eP.10Q 
C1) 4€1) 
00764,P23 
eWESCTs0 464-P0 


7912191080 


C2WESCT ~ wWEEND) 


PAGE 


BIT 32 IS EXTENDED MEMORY FLAG 


PAT DESCRIPTOR REGISTER 
GET ATTRIBUTE WORD 


IS EXTM ALLOWED 
NO» ABORT PROCESS. 


YESs MOVE P2 TO P3 


GET PAT DESCRIIPTOR 


GET FILE CODE PTR 
FILE CODE WORD 
PAT BODY PTR 

IS IT SPECIAL 

NO 

YES, ADJUST IT 
GET SCT PTR 


SCT PTR 


GET SEEK ARGUMENT 
SEEK RETURN 

SKWPT FLAG 
LINK/RANDOM FLAG 
EP39 SEEK CALC 
MSKWPT FLAG 

EP40 SEEK CALC 


BAD SEEK ADDRESS 
SAVE S.A. 

UPDATE SCT PTR 
GET AN I/O ENTRY 
DID WE GET ONE 
NO» WAIT 

YESs SET T=0 


MOVE SHADOW ENTRY 
FROM USER 
TO I/0 ENTRY 


oF EXTM+. FEXTC+.FFOO14DL EXTM FLAGS 


»WEEP 264 -P.10Q 
eWEPRVs4 oP. 10Q 
EP39E +1 

»WEEP2r4 oP. 10Q 


SET LINK RETURN 


79 


10804600 
-10804610 


10804615 
10804620 
10804625 
10804630 
10804635 
10804640 
10804645 
10S0171300 
10$01310 
10801320 
10801330 
10$01340 
10$01350 
10801360 
10801370 
10$01380 
10$01390 


- 10807400 


10807410 
10801420 
10801430 


10801440 


10801450 
10S01460 
10$01470 
10s01480 
EL8. . 

10801490 


EL8. 

10801520 
10801530 
10801540 
10801550 
10801560 
10$01570 


10801580 


10801590 
10S01600 
10801610 
10801620 
10801630 
14FW1480 
ANON2110 
10$01650 
10801660 
10$01670 


1245T 02 


C03767 
003770 
003771 


003772 
003773 


003774 


003775 
003776 


Ter27e79 09.357 


000001 3752 07 O00 
004024 6002 00 010 
004022 7102 00 910 


003772 
003772 


003772 
005704713400 000 
0000006061 22 000 
003752 7102 00 010 


000065 2362 07 O00 
005403 7102 00 010 


H6600J7.002 


EP6 


3099 
3100 
3101 
3102 * 


3103 EXT4 


3104 
3105 * 


3106 NEXTM 


3107 
3108 * 


1/0 


ANA 
TZE 
TRA 


2 ARELC 
2 CALLX 
INHIB 
ICLIMB 
VFD 
VFD 
INHIB 
TRA 


LCQ 
TRA 


S UP ERV IS OR 7912191080 PAGE 
EXTENDED MEMORY LINK/LINKF 

1,0L FIFO/LIFO FLAG 

LINK FIFO 

LINKF LIFO 


WAIT FOR AN I/0 ENTRY 
eMDISP +4 oN 
SAVEsON 
SD.SVXee eMDISP*6444,EAX0 
18 /2MDISP%6444,09/71361/101/001/006/M, 
VIODeD IDG B/0 1 /Not/eO0e2/0e2/0012/SD.SVX 
RESTORE 
EXT3 TRY AGAIN 


eACO6520L INVALID EXTM CALL 
INABT ABORT PROCESS 


80 


10801680 
10$01690 
10801700 
10S$01710 
10801720 


10801730 


EL8. 


IOSO4AAM 
10804785 
10804790 


© 
@ 
1245T 02 12-27-79 09.357 H6600J7.002 1/0 SUPERVISOR 79121910580 PAGE 81 
® 
C2 EP28= LINK, EP2= LINKFs EP3= LINKR» EP29= LINKS. | 
3110 @ 
3111 *LINK LINK I/0 ENTRY AT END OF I/0 QUEUE, INCREASE REQUEST CCUNT 
3112 * 
3113 *LINKF LINK I/0 ENTRY AT BEGINNING OF I/0 QUEUE» INCREASE REQUEST COUNT @ 
3114 * 
3115 *ALL ENTRIES AFTER I/O ENTRY IS LINKED» START I/0 IF POSSIBLE. | 
3116 * @ 
3117 *LINKS SET BIT O OF I/C ENTRY WORD 24 AND .SNTRY AFTER LINKF TO 
3118 * PREVENT PUSH=DOWN. SPECIAL LINK, 
3119 * e 
3120 *INPUT : 
3121 * 
3122 * X4= ADDRESS OF 1/0 ENTRY & 
3123 * X6= KPX 
3124 * X7= CFUNO 
3125 * ODR1 = P.10Q@ 1/0 ENTRY DESCRIPTOR @ 
3126 * ODR2 = P,PAT PAT SEGMENT DESCRIPTOR 
3127 * ODR6 = P.SSA 7 ; 
3128 * ODR? = P.CR @ 
3129 * 
3130 *OUTPUT RETURN TO CALLER, I/O ENTRY HAS BEEN LINKED, 
3131 * MAY HAVE BEEN STARTED. e 
3132 * LINK AND LINKF ENTRIES WILL ZERO STATUS RETURN WORD 1 
3133 * WHEN I/0 ENTRY IS LINKED. 
3134 * 
3135 * e 
3136 
ocooce 3137 P.PAT SET p2 PAT SEGMENT DESCRIPTOR @ 
3138 
3139 
3140 @ 
3141 L Ink $ EX TERNAL ENTRY RDSP2510 
| 3142 RDSP2520 
003777 400000 2352 03 000 3143 EP29 LDA oF SLNKsDU RDSP2530 & 
004000 100004 2553 14 000 3144 ORSA eWESCTs4 oP. 10Q SET SYSTEM I/0 BIT ROSP2540 
3145 * TRA EP28 ROSP2550 
3146 RDSP2560 & 
3147 RODSP2570 
3148 L INK F EX TERNAL ENTRY RDSP2580 
3149 RDSP2590 © 
004001 000000 4112 03 O00 3150 EP28 LODE 0, DU LIFO FLAG RDSP2600 
004002 9004004 7102 00 010 3151 TRA EP3+1 RDSP 2610 
3152 | RDSP2620 @ 
3153 RDSP 2630 
3154 LINK EXTERNAL FLAG ROSP2640 
3155 RDOSP2650 & 
0040C3 3156 EP2 NULL RDSP2660 
004003 200000 4112 03 O00 3157 EP3 LDE 64*1024,0uU LIFO FLAG RDSP2670 
004004 004015 6362 00 010 3158 EAQ LNKRET SET RETURN RDSP2680 € 
004005 000000 6242 14 000 3159 EAX4 0-4 IS X4 KOSHER —TOSO4AS5R 
@ 
© 


@®eeeeee?eee¢eeee®2s@¢ 
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C2 EP28= LINK» EP2= LINKFs EP3= LINKRse EP29= LINKS 


004006 004256 6002 00 010 3160 TZE ZOPX4 NOs TILT IOSQ4ASR 
004007 014047 2352 00 010 3161 LDA 20310000 240002 RDSP 2690 
004010 100011 1153 14 9000 3162 CMPA »WEFCM,4,P.109 IS COMMAND WDIC RDSP2700 
004011 004025 6002 00 010 3163 TZE LINK+1 YESs LINK IT RDSP2710 
004012 000001 2352 07 O00 3164 LDA oFBT3540L NO RDSP2720 
004013 100005 2553 14 O00 3165 ORSA oWEPEP,4,P,10Q SET CCAC FLAG — RDSP2730 
004014 004025 7102 00 010 3166 TRA LINK+1 . RDSP2740 
3167 
004015 37168 LNKRET NULL RETURN FROM LINK ROUTINE 
004015 3169 2 EXIT 
INHIB SAVEsON 
004015 000002 6306 04 4017 EPPRO *+2 4h 
004016 700006 7103 00 000 TRA oCREXTseP.CR 
004017 9000000 900000 000 ZERO RG» 
INHIB RESTORE 
3170 
3171 
3172 
3173 
3174 
004020 400000 2352 03 O00 3175 LINKS LDA oFSLNKsDU 
004021 100004 2553 14 O00 3176 ORSA eWESCTs4,P, 108 SET BIT #0 1/0 ENTRY WORD #2 
3177 * 
004022 000000 4112 03 O00 3178 LINKF LODE 0, DU SET LIFO FLAG 10805375 
004023 004025 7102 00 010 3179 TRA LINK+1 10$05380 
| 3180 10805385 
004024 200000 4112 03 O00 3181 LINK LDE 64*1024,4D0U SET FIFO FLAG 10805390 
004025 600221 4503 00 O00 3182 STZ oa SVFL Tse FSSA CLEAR FAULT FLAG 10801040 
. 3183 * ; 
3184 * TEST FOR FILSYS FOR PROTECTED FILES 
: 3785 * 
CO04026 700726 2343 00 000 3186 SZN oCRFSXeaeP.CR IS FSEX ACTIVE —ELB8. 
004027 004132 6002 00 0710 3187 TZE NF SEX NO ELS. 
004030 100004 2353 14 O00 3188 LDA oWESCT»4-P.100 TEST DEVICE TYPE, IS DISC 
004031 017774 3752 03 O00 3189 ANA eFSCT140U SCT ADDRESS 
004032 700000 2343 01 000 3190 SZN O-AUsP.CR 
004033 004132 6052 00 010 3191 TPL NFSEX. NON DISC DEVICE 
004034 100005 2203 14 000 3192 LDXO oWEPEFPs4 oP, 108 TEST PAT » IS PROTECTED 
004035 004132 6002 00 010 3193 TZE NF SEX NO PAT REQUEST 
004036 200000 2353 10 O00 3194 LDA 0-0-P.4PAT GET PAT BODY PTR 10804425 
004037 037777 3752 03 O00 3195 ANA o»FPTOFS/DU UNMASK IT 10804430 
004040 037777 1152 03 O00 3196 CMPA - oFADJ »DU IS BODY ADJACENT 10804435 
C04041 O00002 6012 04 000 3197 TNZ 2eIC NO 10804440 
004042 000003 6352 10 O00 3198 ~~ EAA ~OFFS 40 YESs SET PAT BODY FTR 10S04445 
C04043 200002 2343 01 000 3199 SZN 2rAUr P.PAT IS FILE PROTECTED T0S04450 
004044 004132 6052 00 010 3200 TPL NF SEX NOT PROTECTED 
. 3201 * FILE IS PROTECTED . 
004045 600012 7563 56 000 3202 $TQ @SSAs IDs FASSA SAVE LINKAGE XXXxX3200 
004046 © 3203 2 CALL oMFSEX~s1 . CALL FMS 


INHIB SAVEsCN 


1245T 02 


004046 
004047 
004050 


004051 
004052 
004053 
004054 
004055 


004056 
004057 
004060 
004061 
004062 
004063 
004064 


004065 
004066 
004067 
C04070 
0040771 
004072 
004073 
004074 
004075 
004076 
004077 


004100 
004101 
004102 
004103 
004104 


004105 
004106 
004107 
004110 
C04111 
004112 


004113 
004114 


12-27-79 


09.357 


000003 6306 04 4051 
700002 7103 00 9000 
000201 000001 000 


004362 7102 00 010 
004056 7102 00 010 
006145 4766 07 000 
600012 2363 54 000 
000000 7102 02 000 
004056 


006204 4706 07 000 
000002 6727 00 000 
006145 4766 07 000 
006013 4716 07 9000 
001761 4716 07 000 
600012 2363 54 000 
004132 7102 00 010 


001764 4706 07 000 
001761 4706 O07 9000 
100001 7203 14 9000 
400000 3002 03 000 
004100 6072 00 010 
000010 7203 CQ 000 
000160 3602 03 9000 
900140 1002 03 000 
004515 6C22 00 O10 
000047 2362 C7 000 
005403 7102 00 010 


000004 2203 00 000 


004131 7402 00 010 


100001 7253 14 000 

006174 4726 07 000 

004126 6306 00 010 
004105 


004105 
000001713400 000 
400400401772 000 
000002 2312 00 000 
000003 3752 07 000 
000000 6272 05 O00 


777400 3002 03 O00 
004122 6012 00 010 
100014 4503 14 000 


3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 


3239 


H6600J57.002 


1/0 


C2 EP28= LINK, 


USRET 


FNRML 
* 


* 


EPPRO 
TRA 
ZERO 
INHIB 
TRA 
TRA 
LDP 
LDQ 
TRA 
NULL 


LOP 
LOD 
LOP 
LDP 
LDP 
LDQ 
TRA 


S UP ERV IS OR 
EP2= LINKFs EP3= LIANKRs» EP29= LINKS 


*+ 355 
»~CRCAL se P.CR 
eMFSEX~e1 
RESTORE 
FMSRET 

FNRML 

P.SSAsSD.SSAve DL RESTORE SSA DESCR 
~SSAs DI «eo FASSA RESTORE LINKAGE 
0,QU RETURN 


RETURN STATUS 


PO-SD.PSH»DL 
P.PAT sPH.PAT»s » PO 
P.SSAASD.SSAs DL 
P.10Q,SD.I0Q- DL 
P.TOQs.CTYPsDL 
»~SSAs DI FSSA 

NF SEX 


NORMAL RETURN 
RE-GET P.PAT MAY BE DESTROYED 
RELOAD SSA DESCRIPTOR 


RE~GET P.I10Q MAY BE DESTROYED 


* BUFFER MANAGER PROTECTED FILE 


* 
FSBFM 


MME 


LDP 
LOP 
LXLO 
CANXO 
TNZ 
LXLO 
ANXO 


_CMPXO 


TNC 


- LDQ 


TRA 


LDXO 
STXO 
LXLS5 
LDP 
EPPR 
eXCALL 
INHIB 
ICLIMB 
VFD 
VFD 
RSW 
ANA 
EAX7 
INHIB 
CANXO 
TN2 
STZ 


POe.SSRoCL 


PO,.CTYP,DL T=0 

oWEPRV.4 oP, 108 

oF FIORSDU TEST MME/PMME 

MME GEINOS 

eWISRooPC CALLIO, GET ISR DESCR 
=0160.DU WSR# 

6*16, BU Is IT 6/7 

NOBM NOs DO THE I/0 

eACO4 7oDL K1 — INVALID 1/0 REQUEST 
INABT ABORT CALLER 
eWICIs+ePC GET IC OF MME 


PFV+43 TO VECTOR 
eWEPRVs4-P.100 RESTORE CONTROL BITS. 
P2eSD.MME,SDL 

PO,PFY 

oDRtP 22 +-GEINOSsPFERR 

SAVEsON 

eDRtP 22 sGEINOSs CEAXO s+ SLAVE) 
18/GEINOSs09/71301/141/001/06/M, 

V/V 09D 12—~> 1680 oT aNoll ae Oe2/0e2/0012/.0R4+P2 
2 

3/0L 

Ov AL 

RESTORE 

MAJ eS T#DU 

PFERR 


eWEICEs446P.10Q NORMAL RETURN» I/0 DONE 


791219 1080 PAGE. 
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10S0C330 
10Ss0C340 
XXXX3220 
10$00370 
10$00380 


10800180 


XXXX3240 
29FWO430 
29FWO440 
29FW0450 
29FWO460 
IOSO4AAM 
TOSO4AAM 
29FWCS0C 
29FWO510 
EL?. 

IOSO4AAM 
29FWCS40 
29FWO550 
EL&. 


€L8. 


29FWO580 
29FWC590 
IOSO4AAM 
29FW0610 
TOSO4AAD 
29FWC620 
29FWC630 
29FWC640 


29FWO6SO 


1245T 02 


09.357 


6202 00 010 
7532 37 010 
2202 17 010 
7526 10 000 
7102 00 010 


2352 03 000 
2362 07 000 
6202 00 010 
7102 00 010 


000000177600 000 
000000001774 010 
000004710640 000 


12-27-79 
004115 004701 
004116 003434 
004117 003434 
004120 000007 
004121 003233 
004122 404100 
004123 000000 
004124 004701 
004125 003036 
004126 
004127 
004130 
004131 
004132 004356 
004133 100004 
004134 200000 
004135 004153 
004136 100011 
004137 003774 
004140 004153 
004141 701203 
004142 003774 
004143 701400 
004144 900002 
004145 004153 
004146 100004 
004147 000002 
004150 004373 
004151 774000 
004152 100011 
004153 100014 
004154 004160 
004155 006013 
004156 000014 
004157 900004 
004160 100005 
004161 004164 
C04162 013324 
004163 004367 
C04164 100004 


000000001774 000 


004132 
7532 37 010 
2203 14 000 
3002 03 000 
6012 00 010 
2203 14 900 
3602 03 000 
6002 00 010 
7203 10. 000 
3602 03 000 
7203 10 000 
3002 03 000 
6002 00. 010 
7203 14 000 
3002 03 000 
6012 00 010 
2202 03 000 
3403 14 000 

004153 

004153 
2343 14 000 
6002 00 010 
4706 07 000 
6707 14 000 
4503 00 000 

004160 
2213 14 000 
6002 00 010 
7002 00 010 
7102 00 010 

004164 
2213 14 000 


3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 


3253 


3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 

3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 

3282 
3283 
3284 
3285 
3286 
3287 


H6600J7.002 


C2 E€P28= LINKs EP2= 


1/0 


INHIB 
EAXO 


S UP ERV IS. OR 


ON 

IRETN 
ALLREG,7* 
ALLREG»7 
70 

LNKCC 


79121910S0 PAGE 


LINKFse EP3= LINKR» EP29= LINKS 


SAVE WSR 4-7 
PAY CC IF ANY & RETRUN 


* ERROR RETURN FROM BUFFER MANACER 


PFERR 


PFY 


NFSE X 


IOLNK 
LIMLK 


LRQCT 


RETYN 


LDA 
LDQ 
EAXO 
TRA 


CVEC 


VEC 


NULL 
SREG 
LDXO 
CANXO 
TNZ 
LDXO 
ANXO 
TZE 
LXLO 
ANXO 
LXLO 
CANXO 
TZE 
LXLO 
CANXO 
TNZ 
LDOXO 
ANSXO 
NULL 
NULL 
SZN 
TZE 
LDP 
LDD 
STZ 
NULL 


LOX 


TZE 
TSXO 
TRA 
NULL 
LDX1 


=0404100,0U 
0, 0L 
IRETN 
STRET 


eDRt+P.USER 


aDR#P,USERZ0250R 


REGST»7* 
aWESCT+4 oP 108 
eFTADZDU 

IOLNK 
eWEFCM 44 oP. 108 
eo FCHNXsDU 
IOLNK 
@CRIO4»O-P.CR 
oF CHNXsDU 
»CRCT120P.CR 
aFTORSDL 
IOLNK 
»WESCT+#4 oP. 10Q 
oFPRSL-DL 

ABRT 
=0774C00,DU 
eWEFCMs4,P,100 


WEICBs4 oP. 108 
LRACT 
PO/SD.IOGS,DL 
POs .WEICB+4-P0 
eIWST14P0 


eWEPEFs4 oP. 10Q 
*+3 

TYNAM 

CNSCT 


aWESC Toh oPo T0Q 


NO PROTECTION SPACE 


RETURN STATUS» PAY CC & RETURN 


USER SEGMENT 


MME CALL SEQUENCE 


SAVE ALL REGISTERS 


IS THIS A T&D I/0 ENTRY 
LINK THIS I/0 


PRESELECTED CHANJINDEX FROM I/0 ENTRY 
NO INDEX PRESENT -— LINK THIS I/0 


LOGICAL CHAN. INDEX OF THIS TRUE CHAN 


IS THIS CHAN. RESERVED FOR. T&D 
NOs LINK THIS 1/0 


IS ENTRY MARKED FOR PRESELECTED CHAN, 
YES, ABORT THIS USER 


CLEAR OUT PRESELECTED INDEX AND FLAG 


COMMAND BLK.D DESCRIPTOR 
NO STATUS RETURN *GEINOS® 


GET DESC. FOR STATUS 
ZERO STATUS TO INDICATE ACCEPTANCE 


I/O ENTRY PAT POINTER 

NO PATs SYSTEM REQUEST 
CHECK FOR SYSTEM CONSOLE 
CONSOLE SCT 


(1,0) USE ENTRY SCT 


84 


29FWC660 
29FWO670 
29Fw0680 
EL8. 

EL8.. 

29FW0690 
29Fw0700 
29FW0710 
29FwC720 
29FWO730 
29FWO740 
29FWC750 
29FWO760 


29FW0770 


29FW0790 . 


1245T 02 


12-27-79 
004165 017774 
004166 013354 
004167 004374 
004170 010000 
004171 004174 
004172 9000000 
004173 004201 
004174 000000 
004175 000022 
004176 701402 
004177 000026 
004200 007700 
004204 000001 
004205 000003 
004206 000401 
004207 600117 
004210 004355 
004211 000001 
004212 600160 
C04213 701400 
004214 003774 
004215 000100 
004216 701400 
004217 004243 
004220 000001 
004221 004234 
004222 701400 
004223 770000 
004224 300000 
004225 004243 
004226 310000 - 
004227 004234 
004230 006144 
004231 000000 
004232 014050 
004233 004243 
004234 000300 
004235 701400 
701400 


004236 


09.3557 


3612 03 O00 


004234 
2362 03 000 
2563 12 000 
6553 12 000 


3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
S305 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
5314 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
5325 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3332 
3334 
535) 
3336 
3337 
3338 
3339 


H6600J37.002 


* 


LRQCT1 


CTYPE 


* 


CNSL 


1/0 S UP ERVIS OR 7912191080 PAGE 85 


C2 EP28= LINK», EP2= LINKFs EP3= LINKRs EP29= LINKS 


ANX1 oF SCT1eD0U 
TSXO ILPCX CALCULATE LOG. PRIW.CH. INDEX (X2) 
AR WILL CONTAIN SCT ENTRY 
RETURN O» ABORT INVALID SCT 
TRA ABEXT RELEASE ENTRY AND POP STAK 
CANA oFMLTDADL IS IT MULTI-DEVICE 
TNZ LRQCT1 YES 
LDA O-,DU NOs SET ZERO LOG. DEVICE INDEX 
TRA LTYPE 
EAA 0-1 
ARL 18 CALCULATE LOG. DEV. INDEX 
SBLA @CRCT3,26P.CR DEVICE SCT - BEG OF CH SCTS 
ALS 22 
ANA =07700DU 
« SHUT eCRQAGTosP.CR EL&. 
CMPX6 e PNPOPSDU | 10806585. 
TZE 3e1C€ DON'T ENABLE .PNPOP EL8. 
LCQ eRIOTNM41-DL MASK = 777777777377 
ANSQ ~SRQS Tse F.SSA CLEAR "1/0 COMPLETED SINCE LAST .LINK 
STA LOGDV LOGICAL DEVICE INDEX 
LDA 1,DU INCREASE REQUEST CCUNT 
ASA ~SRQCTseF.SSA 
LXL1 @CRCT142 6P.CR - TRUE CHANNEL INDEX FOR PRIMARY CH. 
ANX1 eFCHNXsDL 
LDA eFSPROQ,DU IS GESPEC REQUEST OUTSTANDING 
CANA eCRCT 142 0P.CR 
TZE LQUEU NOsLINK 1/0 


GESPEC REQUEST OUTSTANDING ON CHANNEL 


CMPX6 »PNPOP,SDL IS THIS .PNPOP 


TZE CNSL , YES 

LDQ eCRCT 142 4P.CR GET FIRST WORD OF SCT 
ANQ eFDVTPsDYU ISOLATE DEVICE TYPE 
CMPQ ~DCONS*4C696,DU IS THIS CONSOLE 

TZE LQUEU YES 

CMPQ @DSCO1*409640U IS THIS SCC 

TNZ CNSL | NO 

LDP PO »SD.SNE6DL 

LDQ 26eP0 GET SNUMB 

CMPQ =HVIDEQ? VIDEO 

TN2 LQUEU NO 

NULL 

LDQ oFSPRG+, FSPLK »DU SET REQUESTED AND LINKED 
ORSQ eCRCT 142 oP. CR IN SCT 

ERSA @CRCT142eP.CR TURN OFF REQUESTED 


1245T C2 


he=27e79 
004237 020000 
004240 100000 
004241 400001 
004242 100004 
004243 000000 
004244 701401 
004245 004257 
004246 004200 
004247 200000 
004250 004262 
004251 701401 
004252 100001 
004253 100000 
004254 100001 
004255 004270 
004257 701401 
004260 100001 
004261 004266 
004262 701402 
004263 004256 
004264 100000 
004265 100001 
004266 100000 
004267 701402 
004270 013262 
004271 100004 
004272 004275 
004273 000001 
004274 600017 
004275 100000 


09.357 


2352 07 000 
2553 14 000 
3202 03 000 
3403 14 000 


004243 
2202 03 000 
2233 12 000 
6002 00 010 


6342 07 000 
4152 03 000 
6142 00 010 


7443 12 000 
7443 13 000 
7433 14 000 
7403 14 000 
7102 00 010 


004256 


7443 12 000 
7403 14 000 
7102 00 010 


2233 12 000 
6002 00 010 
7443 13 000 
7433 14 000 
7403 14 000 
7443 12 900 


0172 00 010 
2343 14 000 
6052 00 010 
2352 07 900 
2553 00 9000 
7203 14 000 


H6600J7.002 1/0 


3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
ee Be 
3354 
3399 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
S35 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 


C2 EP28= LINK,» 


x 
LDA 
ORSA 
LCXxO 
ANSXO 


LQUEU NULL 
LOXxO 
LOX3 
TZE 


S UP ERVIS OR 7912191080 PAGE 86 


EP2= LINKFs EP3= LINKR» EP29= LINKS 


eFSPECSDL SET I1/0 ENTRY TC GESPECED 

oWEST 44 P.10Q 

oF SLNK+1 4DU 

@oWESCT#4 oP. 108 INSURE NO GESPEC SPECIAL LINK 
LINK 1/0 ENTRY TO CHANNEL QUEUE 

0, 0U 

eCRCT2e2eP.CR 

LNEW NO ENTRIES IN I/0 QUEUE 


* I/0 QUEUE HAS AT LEAST ONE MEMBER 


LOI 
ADE 
TEO 


2O04200eDL MASK OVERFLOW 10805415 
64*10245 DU TEST LIFO/FIFO FLAG 10805420 
LFIFO FIFO 10805425 


*LINK I/O ENTRY AT BEGINNING OF QUEUE - LIFO 


— S$TX4 
STX4 
STXx3 
STXO 
TRA 


ZOPX4 ZOP 


NEW FIRST ENTRY POINTER 
STCRE BACKWARD POINTER IN SECOND ENTR 


eCRCT2e2eP.CR 
a»WEPRVs3 oP. 108 


oWEST+4eF.108 STCRE FORWARE POINTER IN FIRST ENTRY 
eWEPRVs4 -P.10Q STORE BACKWARD POINTER IN FIRST ENTRY 
LOK 
IOSO4AS5R 
4 1/0 QUE POINTER IS ZERO IOSO4ASR 


*LINK I/O ENTRY INTO EMPTY QUEUE 


LNEW STX4 
STXxO 
TRA 


oCRCT2e2oP.CR FORWARD POINTER TO ONLY ENTRY 
eWEPRV>4 oP. 108 NEW ENTRY BACKWARD POINTER SET TO ZER 
LZFP SET FORWARD POINTER ZERO TOO 


*LINK I/0 ENTRY AT END OF QUEUE —- FIFO 


LFIFO tLDdXx3 
TZE 
STX4 
$TX3 

LZFP STXO 
STX4 

* 

*1/0 ENTRY IS 

* 

LOK NOP 
SZN 
TPL 
LDA 
ORSA 
LXLO 


eCRCT342eP.CR 
ZOPX4 
eWEST 30 F.10Q 
»WEPRV44 oP. 10Q 
eWEST 446 F.10Q 
eCRCT3e20P.CR 


CURRENT LAST ENTRY 

ZERO» PACK IT IN 

STORE FORWARD PTR, IN NEXT TO LAST EN 
STORE BACKWARD PTR. IN LAST ENTRY 
STORE FORWARD POINTER IN LAST ENTRY 
INSERT NEW LAST POINTER 


IOSO4ASR 


PHYSICALLY LINKED INTO I/0 QUEUE 


CHECK (7TSX3 IF 5720) IOSQ4GAAM 
e@WESCT44-P.10Q 

«+3 IS BIT 35 SET 

eTLNKSsDL YESs SET BIT O .STATE 


eSTATEsseP.SSA 
WEST 44eF.108 


a 


1245T 02 


12-27-79 


004276 630000 
004277 004355 
004300 000002 
004301 100000 
004302 004000 
004303 100005 
004304 004314 
004305 100004 
004306 017774 
004307 010000 
004310 700000 
004311 004314 
C04312 000002 
004313 700000 
004314 020000 
004315 100000 
004316 004332 
C04317 400000 
004320 701200 
004321 004351 
004322 701200 
004323 100000 
004324 000200 
004325 701400 
CO04326 701200 
004327 004351 
004330 007707 
004331 004344 
004332 000400 


09.357 


3553 


004314 


2502 
3153 
6002 


2362 
3163 
6002 


6563 
6553 


2362. 


6563 


2233 
6012 
7032 
7102 


004332 
2352 


03 


000 
000 
010 


000 
000 
010 


000 
000 
000 
000 


000 
070 
010 
010 


000 


H6600J7.002 


C2 EP28= LIN 


ANXOQ 
ORXO 
ORXO 
SXLO 
LDA 
CANA 
TZE 
LOX3 
ANX3 
LDA 
CANA 
TZE 
LCA 
ANSA 
NOSCT NULL 
*1/0 ENTRY 


1/0 


S UP ERV IS OR 


7912191080 PAGE 87 


Ke EP2= LINKF, EP3= LINKR» EP29= LINKS 


=0630000.,b0uU 
LOGDV 

2eDU 
WEST +44 F108 
eFREISADL 
eWEPEPs4 oP. 108 
NOSCT 
»WESCT4 oP, 108 
oF SCT1,0U 

eo FMLTDSDL 
0-3eP.CR 

NOSCT 

oF STCHF1 ADL 
O0-3.P.CR 


IS LINKED 


RESET ALL BUT STOP» SK.sSTes TRANS» GE 
INSERT LOGICAL DEVICE NO. 
LINKED I/0 ENTRY STATUS 


IS THIS GEPR REISSUE 
NO 
SCT 


IS THIS A MULTIPLE DEVICE CHAN, 
NO» DONT TURN OFF CHAN, STOP BIT 
LDA =0777777777776 

RESET DEVICE SCT STOP BIT 


*I/0 ENTRY STATUS SET» DEVICE NUMBER INSERTED. 


* 

* 

* REGISTERS 
*- X1= 
* X22 
* X3= 
* X4= 
* X6= 
* X7= 
* 2CRQ 


LDA 
CANA 
TZE 


» 


THIS 


LDQ 
CANQ 
TZE 


ERSQ 
ERSA 
LDQ 

ERSQ 


LDX3 
TNZ 
TSX3 
TRA 
LSTIO NULL 
LDA 


WHEN CALLING STIO OR STGPC FROM LINK 
TRUE CHANNEL INDEX, WILL BE DESTROYED 
LOGICAL PRIMARY CHANNEL INDEX 


TRANSFER REGISTER 


I/O ENTRY 

PNe MAY BE DESTROYED 

PROC NO 

GT IS SHUT 
eFSPECSDL 
eWEST o44F.I1 08 
LSTIO 

IS GESPECED ENTRY» 

eoFSPRIMZDOL 
eCRIO1#1 oP. CR 
LOPEN 


~CRIO141-P,CR 
@WEST o4eP.10Q 
oFSPLKsDU 

~CRCT 142 6P.CR 


oCRIO1s1 oP. CR 
LOPEN 
STGFC 
LTHRU 


oF SPOKsDU 


IS THIS GESPECED 1/0 
NOs» GO TRY TO START IT 
CAN IT BE STARTED NOW 


IS THERE A REMEMBERED SPECIAL INT ON 
THIS CHANNEL 

NOs» RETURN TO USER» 1/0 CANT BE START 
YES» RESET AND START I/0 


YES, RESET REMEMBERED BIT 
RESET GESPECED ENTRY 
RESET GESPEC LINKED 

IN CHANNEL SCT 

IS CHANNEL BUSY 10806685 
YESs LEAVE LINKED 

START 1/0 


IS THIS CHANNEL GESPECABLE 


12457 02 


09.357 


3153 12 000 
6002 00 010 
3352 07 000 
2363 12 000 
3762 03 000 
1162 03 O00 
6002 00 010 
3553 11 000 


004343 
7032 00 010 


004344 


4706 07 000 
2202 17 010 
4472 10 000 
0732 10 000 
7102 02 000 


004351. 
7102 00 010 


000000000000 000 
000000000000 000 


12-27-79 
004333 701400 
004334 004343 
004335 400001 
004336 701400 
004337 770000 
004340 310000 
004341 004343 
004342 701200 
004343 007347 
004344 006133 
004345 004356 
004346 000003 
004347 000000 
004350 900000 
004353 004344 
004354 
004355 
004356 014130 
004357 014140 
004360 014150 
004361 014160 
004362 006145 
004363 600012 
004364 004356 
004365 003036 
004366 004345 
004367 760003 
004370 100004 
004371 100004 
004372 004164 


000000 010 
000000 010 
000000 010 
000000 010 


4766 0? 000 
2363 54 000 
7532 37 010 
7002 00 010 
7102 00 010 


004367 
2202 03 000 
3403 14 000 
2413 14 000 
7102 00 010 


H6600J7.002 


C2 EP28= LINK» 


* 


LGIOM 


1/0 


CANA 
TZE 
LCA 
LDQ 
ANQ 
CMPQ 
TZE 
ANSA 


NULL 
TSX3 


SUPERVISOR 
EP2= LINKF, EP3= 


eCRCT1e26P.CR 


LGIOM 


oF SPRM#1 oDL 
eCRCT 142 4P.CR 
oF OVTFP.DU 
oDSCC1*4C96,DU 


z+2 


eCRIO1417eP.CR 


STIO 


79172191080 PAGE 


LINKRs» EP29= LINKS 


NO 
YES FORGET ANY REMEMBERED 
TEST DEVICE TYPE 


IS CONSOLE 


YESs SAVE OCCERED FLAG 
SPECIAL INTERRUPTS 


NO, CAN ANY I/0 BE STARTED 


*RETURN FROM STIOs RESTCRE REGISTERS AND RETURN TO LINK CALLER 


*,CRQGT HAS BEEN OPENED IN STIO 


LTHRU 


REG2 


FMSRET 


NULL 


LOP 
LOXO 
SXL7 
LREG 
TRA 


INHIB ON 
2 OPEN 
TRA 


OCT 
oct 


ZERO 
ZERO 
ZERO 
ZERO 


LDP 
LDQ 
SREG 
TSxO 
TRA 


EXCHANGE COSOLE SCT POINTER 


NULL 
LOx0 
ANSXO 
ORSX1 
TRA 


PO -SD.KL »DL 
REGST +7 


30 
0-0 
0,QU 


oCRGG Tse F.CR 


LTHRU 


0 
0 


REGS 
REGS+8 


REGS+16 
REGS+24 


Pe SSA eSD.5SSAe DL 
eSSAse DI so F.SSA 
REGST 47* 


STRET 
REG2 


=0760003..D0U 

eWESCT»4 oP. 100 
eWESCT+4 »PL. 108 
RETYN 


GATE IS OPEN 


LOCATE REGISTERS 
SAVE PROC # 
RESTORE REGISTERS 
RETURN 


LINK LAST (ZERO) OR FIRST (NON-ZERO) 


REGISTER STORAGE PCINTERS 


GET LKG 
SAVE REGISTERS 
RETURN STATUS 


= —,FSCTI~1 
SAVE SPECIAL BITS 
AND SET NEW SCT ADDRESS 


&8 


10805260 


10805265 
10805270 
10805275 


10$05290 
10805295 
10S$05300 
10805305 
XXXX3270 
XXXX3280 
XXXX3290 
XXXX3300 


10800300 


10S0C310 
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C2 EP28= LINKse EP2= LINKFse EP3= LIANKRs» EP29= LINKS 


004373 


004374 
004375 


004376 


004377 


004400 


004401 
004402 
004403 
004404 
004405 


000164 


100005 
004400 
100001 
200000 


013400 


004356 
000005 
900003 
000000 
005403 


2362 07 000 


004374 
2233 14 900 
6002 00 010 
3352 07 O00 
3553 13 000 


7002 090 010 


2202 17 010 
7562 10 900 
4472 10 000 
0732 10 9000 
7102 00 010 


3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 


- 3500 


3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3509 


REG3 


oAC164-0L 


eWEPEPS4 PL. I0Q 
*+3 
270100001 .DL 

Oe 3eP.PAT 


UNWIRE 


REGST»7 
5,0 
320 

0-0 
INABT 
OFF 


PRESELECT CHANNEL INACTIVE 


_NO PAT REQUEST 


LDA =0777777677777 
RELEASE PAT IF BUSY 


CALL UN-WIRE SUBROUTINE 


SET REASON CODE 
SAVE PROC # 


ITP.1720 
EL8. 
ITP. 1740 


10805435 
ITP. 1830 


10805440 


10805445 


& 


1245T 02 12-27-79 09.357 


004406 


004407 
004410 
004411 


H6600J37.002 


0044C6 


012477 7000 Q0 


010 


004407 


000002 6306 04 
700006 7103 00 
010200 oo0000 


4611 
000 
000 


3511 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 


3525 


3526 
3527 
3528 
See 
3530 
3351 
3532 
3533 
3534 
3535 


3536 


C2. EP4 


* 7m + © # & # HH F HF Hh eH HH HF eH H 


* 


1/0 S U PERV IS OR 7912191080 


QUEUE CREQUEST TC ASSIGN I/0 ENTRY SPACE) 


INPUT FOR EP4 ROUTINE 
ODR6= P.SSA 


ODR7= P.CR 

X6= KPX 

X7= CPUNO 
FUNCTION 


ASSIGN ONE “BUILDING” I/0 ENTRY 
ZERO USER FILLED AREA 


OUTPUT | 
IF X420, NO ENTRY SPACE AVAILABLE 


IF X&4 NOT =O, =OFFSET TO ASSIGNED ENTRY 


aCRQGT IS NOT SHUT IN QUEUE 
NULL 

CALL GQUELE SUBROUTINE 
TSXO QUEUE 

RETURN TC CALLER 
2EXIT Oe (X4e4P1) 
INHIB SAVEsON 
EPPROQ k+2 9S 
TRA @CREXTos F.CR 


ZERO RGD 
INHIB RESTORE 


RETURN REGISTERS 


PAGE 


90 


l@eeeee8eee8eeee080e0e08 0@8 6 6 6 Oe 


1245T C2 


004412 
004413 


004414 
004415 
004416 
004417 


12~ 27-79 


09.357 


000002 
004412 
004412 


004412 


005704713400 
000000606122 


005426 
600221 
400001 
005422. 


004414 


6304 O00 
4505 00 9000 
2211 13 
6000 00 


H6600J 


3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3350 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 


3559 


3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
5309 


3576 
3577 
3578 
3579 
3580 
3581 


72002 
kee EPS 


* INOS 


+ * te e+ + ee Fe FH HH HH eH ee HF eH He ee ee 


P.PAT 
FBUSY 


INOS 


1/0 


INOS 


S UP ERVIS OR 7912191080 PAGE 
(REQUEST FCR I/0 VIA MME GEINOS) 


ENTERED VIA A MME GEINOS . 


SELECT SEQUENCE FOR INOS CAN BE OF TWO FORMS 


OR 


I/0 COMMAND 


ZERO FILE POINTERs DCW POINTER 

ZERO STATUS RETURN POINTER» CCURTESY CALL ADDRESS 
1/0 COMMAND 1 

ZERO FILE POINTER, OCW POINTER 1 

1/0 CCMMAND 2 

ZERO FILE PTR OR NULL» DCW POINTER 2 

ZERO STATUS RETURN POINTER, COURTESY CALL ADDRESS. 


THE S-WORD SELECT SEQUENCE IS IDENTIFIED BY 


A UNIT RECORD TRANSFER ICOM COMMAND WITH A RECORD COUNT 


OF (0238. 


ALL PCINTERS IN THE SELECT SEQUENCE ARE 
OFFSETS TO THE PROCESS LAL 


REGISTERS FOR A MME GEINOS CALL ARE SAVED 
AND RESTORED. 


INOS USES THE FCLLOWING .STEMP CELLS 


eSTEMP ot 1et2 043 


THE MME PROCESSOR SET THE FOLLOWING 
REGISTERS WHEN TRANSFERRING CONTROL TO INOS 


SET 
e@ARELC 
2 CALLX 
INHIB 
ICLIMB 
VFD 
VFD 
INHIB 


NULL 
EPPR 
STP 
LDX1 
TZE 


X6= KPX 

X7= CPUNO 

ODR4= P.USER 

X5 = ADDRESS OF MME+1 OF P.USER SEGMENT 
2 


aMDISPo4 oN 

SAVE*sON . 

SD. SVXee aMDISP*H6444eEAX0 

TBI SMDISPH6444,09/71301/101/001/006/Me 
1/09/04 8/0 61 /aNo1/e.002/002/0012/5SD04SVX 
RESTORE 


PO,FLTIO 

POs .SVFLTseP.SSA SET VICARIOUS FLAG 
1e3eP.2USER GET FILE POINTER 
INAI5 NULL» I5 ABORT 


91 


10801835 


10801840 


10801845 


10$01855 
10801860 
10801865 
10801870 


1245T 02 


12=27+79 
004420 600207 
004421 400000 
004422 600205 
004423 600210 
004424 400000 
004425 013100 
004426 005420 
004427 200000 
004430 100000 
004431 004412 
004432 600204 
004433 000000 
004434 037777 
004435 200000 
004436 005420 
004437 017774 
004440 600205 
004441 012477. 
004442 000000 
004443 004412 
004444 001761 
004445 100024 
004446 600204 
004447 100005 
004450 100004 
004451 600205 
004452 100024 
004453 400000 
004454 001764 
004455 001761 
004456 000004 
004457 000200. 
004460 004462 
004461 200000 
004462 600210 
004463 600000 
004464 004471 
004465 004470 
004466 020000 


09.357 


4431 


2351 
4411 
7551 
2750 
7010 
7100 


2351 
3150 
6C10 
7421 
6220 
3620 
2211 
6000 
3610 
4421 


004441 


7000 


1040 
6000 


4714 
0545 
2201 
7401 
74141 
7201 
4401 
2350 
4704 
4704 
2361 
3160 
6010 
2750 
7201 
3600 
6000 
6040 
2750 


00 


03 
00 


H6600J7.002 


010 


000 
010 


000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
010 
000 
000 
000 
010 
010 
000 


3582 
3583 
3584 
3585 
3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
S597 
3598 
3599 
3600 


3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3 621 
3622 
3 623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 


#KKEPS 


K3A 


t+ ee He 


1/0 S UP ERV IS OR 79127191080 PAGE 

INOS (CREQUEST FCR I/0 VIA MME GEINOS) . 

SXL3 «STEMP+3 5eP.SSA SAVE CALL IC 

LDA Ov 1-P.USER GET FILE CODE WORD 

SXL1 eSTEMP41 o oP. SSA SAVE FILE POINTER 

STA eo STEMP44 soo PJ SSA & FILE CODE 

ORA «FBTOeDU SET MME GEINOS FLAAG 

TSX1 FNDFC GET PAT POINTER 

TRA INAI3 NOT PRESENTs ABORT 13 

LDA Or2eP.PAT GET PAT POINTER WORD 

CANA eFBSYFsDL IS FILE BUSY 

TNZ FBUSY YESs WAIT 

STX2 eSTEMPoe PSSA FILE CODE OFFSET 

EAX2 0» AU PAT OFFSET 

~ANX2 eFPTOFsDU GET PAT BODY OFFSET 

LOXx1 Ove2eP.PAT SCT ADDRESS 

TZE INAI3 PRIMARY FILE WAS RELEASED » ABORT 13 
ANX1 oF SCT140L AND OUT PAT FLAG 

SXL2 @STEMP41 »eP.SSA SAVE PAT OFFSET 

# QUEUE 

TSxO QUEUE 

X&4 CONTAINS ENTRY ADDRESS 

CMPX4 0,DU 

WOE FBUSY WAIT FOR ENTRY 

X1 = SCT ADDRESS. . P.CR 

X3 = SELECT SEQUENCE ADDRES P.USER 
 X4 = IT/0 ENTRY ADDRESS P.I0Q 

START FILLING I/0 ENTRY 

LOP P~10Qs.,CTYPSDL CHANGE TYPE TO ZERC 

STD PwUSERs.WEENDs4eP.I10Q SAVE USER DESCRIPTOR 
LOXO oSTEMPosPF.SSA RESTORE PAT POINTER OFFSET 
STXO oWEPEFs4 oP. I0Q PAT POINTER 

STX1 eWESCT44eP.109 SCT ADDRESS 

LXLO oS TEMP+4+1 » oP. SSA SAVE PAT BODY OFFSET 

SXLO eWEENDs4,P. 108 IN ENTRY 

LDA oF FIORSDL SET .wzWEPRV LCWER FLAG BITS 
LOP POs.SSRe OL CALL FROM GEINOS 

LOP POv.CTYPsDL CHANGE TYPE TO ZERO 

LDQ eWICI oo PC 

CANQ =0200.DL 

TN2Z +2 

ORA oF FMOD-DL MASTER MODE 

LXtLo eo STEMP+4 ooP.SSA GET RELQG/ROAD FLAGS 

ANXO =0600C00~,DuU ISOLATE THEM 

TZE SETFBT NULL 

TMI SETFBT=-1 ROADBLOCK 

ORA eFFRLCSDL RELINQUISH 


92 


10801875 


TOSO4AAM 
10801885 
10801890 
10801895 
10$01900 
10801905 


10801915 
10806900 


10801945 


10801955 


10801965 
10801970 


10801980 


~10801985 


10801990 
10801995 
10s02000 


1245T C2 12-27-79 09.357 H6600J7.002 1/0 S UP ERVIS OR 79121910S0 PAGE 93 


**xEPS INOS CREQUEST FOR I/0 VIA MME GEINOS) 


004467 004471 7100 00 010 3631 TRA SETFBT 10S02005 
004470 010000 2750 07 O00 3632 ORA oFFROCSDL 10Ss02010 
004471 3633 SETFBT NULL 
004471 100001 7551 14 O00 3634 STA eWEPRVs4 oP. 108 SET FLAG BIT 
3635 * 
004472 013354 7000 00 010 3636 TSXO ILPCX CALCULATE INDEX 
004473 005373 7100 00 010 3637 TRA INABQ ABORT INVALID SCT 
3638 * 
004474 400000 2351 13 O00 3639 LDA O03P.USER CHECK CHANNEL COMMAND 
004475 100006 7551 14 O00 3640 STA eWEICM 44 oP. 100 SAVE IT EL8. 
004476 770000 3750 07 O00 3641 ANA .FCCMDs/DL 
-004477 200000 1150 07 O00 3642 CMPA 20200000 .DL IS PROCESS LOAD COMMAND 
004500 005372 6000 00 010 3643 TZE INAK8 ABORT K8 
: | 3644 * 
004501 400002 2351 13 O00 3645 LDA 2r35eP.USER SECOND COMMAND 
004502 100011 7551 14 O00 3646 STA oWEFCMs4 oP. 108 MAY NOT BE 1/0 COMMAND 
004503 100016 0545 14 000 3647 STD PLUSER».WEDRI #4-P,I10Q SET DATA REGION DESC. 
004504 100025 4431 14 000 3648 | SXL3 eWEENCH+1 44,P. 100 SAVE CALLING SEQUENCE ADDRESS 
004505 000001 6250 00 000 3649 EAXS 1 SET FLAG PHYSICAL COMMAND REQUEST 
3650 * 
3651 * REGISTERS AT CALL TO CHANNEL MODULE 
3652 * X1 = SCT ADORESS ODR7 = P.CR 
3653 * X2 = LOGICAL PRIMARY CHANNEL INDEX 
3654 * X3 = SELECT SEQUENCE ADDRESS (NOT USE) ODR4 = P.USER 
3655 * X4 = I/0 ENTRY ADDRESS ODR1 = P.10Q 
3656 * X5 = COMMAND FLAG 
3657 * POSITIVE = PHYSICAL 
3658 * NEGATIVE =- LOGICALL 
3659 * X6 = KPX 
3660 * X7 = CPUNO 
3661 x ODR2 = P.PAT 
3662 * OOR3 = COMD.BLK 
3663 * ODRS = P,105S 
3664 * ODR6 = P.SSA 
3665 * 
3666 * a»WEEND BOUND/ PAT OFFSET 
3667 * »WEEND4+1 ADJUST IC/CALLING ADDRESS 
3668 * 
3669 
3670 
: 004506 3671 EP2CAL NULL 
CQ04506 100024 7201 14 O00 3672 LXLO »WEEND 44 -P.108 GET PAT OFFSET EL8., 
004507 004515 6000 00 010 3673 TZE NOB NO PAT EL8. 
004510 006204 4704 07 O00 3674 LDP PO.sSD.PSHsDL EL8. 
004511 o00002 6725 00 O00 3675 LDOD P.PATsPH.PATs PC €L8.. 
004512 200000 2351 10 O00 3676 LDA Oe0eP.PAT GET PAT OFFSET EL8. 
004513 000001 3150 03 O00 3677 CANA oFPBFM,DU IS BUFFER MANAGER IN CONTROL EL8. 
004514 004065 6010 00 010 3678 TNZ FSBFM YES» GO TO IT EL8. 
004515 3679 NOBM NULL EL8. 
3680 


12457 02 
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keekEPS INOS CREQUEST FCR I/0 VIA MME GEINOS) 
3681 * * * * *& * CHANNEL MODULE EP2 TRACE * & & & & & 10806745 
3682 INHIB ON 
004515 3683 @TROPN TCOFF,GREG TRACE OFF 
004515 700044 7173 00 O00 XED eCRTIRVt2eeP.CR 
004516 000026 7102 04 4544 TRA TCOFF 4% 
004517 700312 2203 17 O00 3684 LDXO »CRTEPs7 oP. CR 
004520 006131 4756 07 O00 3685 LOP P. 10S /SD.DDDs,0L 
004521 701403 2363 12 000 3686 LDQ oCRCT 452 oP. CR 
004522 500000 2363 02 000 3687 LDQ O-,QU,F.ICS GET CALLEE MODULE # 
004523 000017 7722 00 O00 3688 QRL 15 AND SET IN ENTRY 
004524 000046 2762 07 000 3689 ORQ ~YEPO2,DL 10802020 
004525 700000 7563 10 900 3690 STQ Or0P.CR 
004526 700000 7443 10 O00 3691 STX4 O-O0eP.CR 
004527 700001 7423 10 000 3692 STX2 1/0eP.CR 
004530 100006 2353 14 000 3693 LDA »WEICMs4 oP. 10Q 
004531 014051 1152 00 010 3694 CMPA =0340000C00002 IS THIS A SEEK 10806755 
004532 o00002 6C12 04 O00 3695 TNZ 2e1C NO 10SC6é760 
004533 100011 2353 14 Q00 3696 LDA oWEFCMs4 oP. 108 YES» GET READ/WRITE 10806765 
004534 9000000 6252 15 000 3697 EAXS 25 TEST COMMAND TYPE 
004535 004537 6052 00 010 3698 TPL *+2 PHYSICAL COMMAND 
004536 300000 2353 00 O00 3699 LOA oe IWCMCs/P.10CB LOGICALs GET LOGICAL COMMAND 
004537 700003 7553 19 O00 3700 STA 30-P.CR 
004540 600042 2353 00 O80 3701 LDA o~SECNTssF.SSA 
004541 700002 7553 10 000 3702 STA 200eP.CR 
: 004542 3703 e@TRPUT PNO 
004542 000000 6202 00 O00 EAXO 0 
004543 700052 7173 00 000 XED eCRIRV48 ooP. CR 
3704 INHIB OFF 
3705 * &* ke ke ek ke eK eK eK UOT RACE EN D 
3706 
ocoocs 3707 P.I0S~ SET 5 ~MIOS SEGMENT DESCRIPTOR 
o000c3 3708 P.I0CB SET 3 COMMAND BLOCK DESC. FOR CALLIO 
3709 
| 004544 3710 TCOFF NULL 
004544 701400 2341 12 O00 3711 ~~ $2N o»CRCT 142 oP. CR TEST MASS STORE CALL&S80 
004545 010732 6040 00 010 3712 TMI MSCIO YES» USE COMMON REQUEST LOGIC CALL&585 
004546 006131 4704 07 O0C 3713 LOP POsSD.DDD-DL 
004547 701403 2351 12 O00 3714 LDA oCRCT4e2 oP. CR GET CHANNEL MODULE NUMBER 
004550 000000 4705 01 O00 3715 LDP PO,0,AUs FO GET FIRST ENTRY DATA 
004551 000000 $074 00 000 3716 AWDX O» PO EL8. 
004552 O00002 6354 04 4554 3717 EPPR P.lOS ok+2e$ RETURN IC P.I1OS 
3718 
004553 000002 7101 00 000 3719 TRA 2eeFP0 GO,» CHANNEL MODULE EP2 
3720 
3721 
004554 004565 7100 00 010 3722 TRA INRML EXIT O= NORMAL 3-WORD SELECT SEQUENCE 
004555 004762 7100 00 O10 3723 TRA INDTR 1= DS/DR NON DATA TRANSFER 
C04556 005073 7100 00 010 3724 TRA IRESS 2= REQUEST OR RESET STATUS 
004557 005134 7100 00 010 3725 TRA NODAT =3 SINGLE CHAR. » NO DCW 
004560 005140 7100 00 010 3726 TRA ITYTWw 4= TWO TYPEWRITER COMMAND 
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**¥*EPS INOS (CREQUEST FCR I/0 VIA MME GEINOS) 


004561 010732 7100 00 010 3727 TRA MSCIO 5= MASSSTORE COMMON REQUEST 10803330 
004562 005372 7100 00 010 3728 TRA INAK8 6= ILLEGAL COMMAND 

004563 005462 7100 00 O10 3729 TRA PERMS 7= PERMISSION NOT GRANTED 

004564 005372 7100 00 010 3730 TRA INAK8 8= ILLEGAL COMMAND ITP.176C 
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12-27-79 
004565 002000 
004566 100001 
004567 000000 
004570 005271 
004571 000000 
004572 000022 
004573 100005 
004574 900003 
004575 100003 
004576 100016 
004577 005414 
004600 000004 
004601. 100016 
004602 9005271 
004603 100025 

004604 100001 
004605 400000 
004606 004614 
004607 001774 
004610 400001 
004611 013155 
004612 100007 


09.357 


004565 


2350 
2551 


1160 
6000 
6350 
7710 
2551 
6350 
2551 
7201 
6000 


7720. 


3761 
6000 
7231 
7201 
3000 
6000 


4704 
7211 


7020 


7411 


000 


H6600J 


3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 
3752 
3753 
3754 
3755 
3756 
S757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 


72002 1/0 


EXIT-O FROM EP#H2 
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NORMAL 3-WORD SELECT SEQUENCE 


* 
* REGISTERS 
* X1 = SCT ADDRESS COR7 =— P.CR 
* X2 = LCX 
* X3 = SELECT SEQUENCE ADDRESS (CGEINOS) ODRS = P,USER 
* X4 = I/O ENTRY ADDRESS ODR1 —- P.IO0Q 
* X6 = KPX 
* X7 = CPUNO 
* Q = COMMAND 
* 1» READ COMMAND 
* 20 WRITE COMMAND 
* Os» ELSE 
* ODR2 = P.PAT 
* ODR3 = CCMMAND BLOCK 
* ODOR5 = P.IOS 
* ODR6 = P.SSA 
* 
* «WEENC BOUND/PAT OFFSET 
* eWEENDF+1 ADJUST IC/CALLING ADDRESS 
* © 
INRML NULL 
LDA oF FDDI,0L FIRST DATA REGION PRESENT 
ORSA »~WEPRVs4 oP. I0Q SET FLAG IN ENTRY 
* ; 
CMPQ Os DL CHECK COMMAND TYPE 
TZE NSECU NOTs READ/WRITE 
EAA QU SET COMMAND TYPE 
ARL 18 
ORSA «WEPEPs4.P.108 FOR CACHE CLEAR CONTROL 
EAA CHN3 SET CHANNEL PROGRAM # 
ORSA eWEPIDs4 oP. I0Q 
LXLO eWEDRI44-P. 108 IS PRESENT DESCRIPTOR 
TZE NDATS NO DESCRIPTOR», ABORT 
QRL 4 READ OR WRITE 
ANQ »aWEDRI44 oP. 108 CHECK DESCRIPTOR*S PERMISSION 
TZE NSECU INVALID RDSP2380 
LXL3 »WEEND+41 44-P,10Q RESTORE XR3 10806610 
LXLO oWEPRV+4 oP. 10Q TEST CALLER 
CANXO .FFIORs DL 
TZE SRPCK CALLIO 
NOs» CHECK AND SET ANY DATA 
LDP PO-.DR4e6 DL COPY DATA SEGMENT DESC. TO PO 
LXL1 173eP.USER GET DCW POINTER 
TSX2 DCWCK VALIDATE DCW POINTER 
X1 DCW POINTER 
A OCW 
STX1 eWEOFFs4 oP. 100 SET DCW POINTER 
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12=27=79 
004613 100012 
004614 100006 
004615 014046 
004616 100006 
004617 100011 
004620 100001 
004621 400000 
004622 004667 
004623 000003 
004624 100025 
004625 400002 
004626 004653 
004627 100014 
004630 777774 
004631. 000020 
004632 100015 
004633 100015 
004634 004200 
004635 400001 
004636 400000 
004637 004653 
004640 777777 
004641 004653 
C04642 000007 
004643 Qg000n0e 
004644 000007 
004645 004752 
004646 077777 
004647 100005 
004650 004752 
004651 000022 
004652 100004 
004653 400002 
004654 004662 
004655 400000 
004656 004742 
004657 000000 
004660 400013 
004661 013307 


09.357 


7551 14 000 


004614 
2351 14 000 
3750 00 010 
7551 14 O00 
7551 14 000 
7201 14 900 
3000 03 000 
6000 00 010 
6210 00 000 
7411 14 O00 


004625 
2211 13 000 
6000 00 010 
0545 14 000 
6350 11 000 
7710 00 000 
0351 14 000 
7551 14 000 
6340 07 000 
2361 11 O00 
3351 11 O00 
6€44 00 010 
3150 03 O00 
6010 00 010 
1150 07 000 
6020 04 000 
2350 07 000 
2360 05 010 
3760 07 0600 
2561 14 900 
2350 05 010 
7710 00 O00 

004652 
2551 14 000 


004653 
7211 13 000 
6000 00 010 
2361 11 000 
7050 00 010 
6360 11 O00 
2760 07 O00 


004661 
7050 00 010 
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SRPCK 


SRPC2 


K2A 


1/0 


EXIT-O FROM EP#2 


STA 


NULL 
LDA 
ANA 
STA 
STA 
LXLO 
CANXO 
TZE 
EAX1 
STX1 


NULL 
LDXx1 
TZE 
STD 
EAA 
ARL 
ADLA 
STA 
LDI 
LDQ 
LCA 
TMOZ 
CANA 
TNZ 
CMPA 
TAC 
LDA 
LDQ 
ANQ 
ORSQ 
LDA 
ARL 
NULL 
ORSA 


NULL 
LXL1 
TLE 
LDQ 
TSX5 
EAQ 
ORQ 


NULL 
TSX5 


S UP ERV IS OR 


79121910580 PAGE 


NORMAL 3-WORD SELECT SEQUENCE 


aWEFDC.4 oP. 108 


a@WEICM44 oP. 10Q 
=0770C00770077 
eWEICMs4 oP. 10Q 
eWEFCM44 oP. 10Q 
»WEPRVs4 oP. TORQ 
oF FIORS DU 

CLINK 

3 

eWEEND+41 »4eP.108 


2e3eP.USER 
CCACK 


P.USER». WEI CB o4-P.10Q 
a) IwST11 


16 

eWEICE+1 44,P.10@Q 
»WEICE+1,4,P, 100 
=0420C,DL 
1otlePUSER 
Ov1sP.USER 

CCACK 

-1,DU 

CCACK 

To DL 

2/IC 

7eDL 

GPOPT AL 
=O777774D0L 
eWEPEPs4 oP. 108 
GPOPT »AL 

18 


oWESCT#4,P.100 


Qe 34P.US ER 
IONTR 
O-1-P.USER 
CKCCM 

0-1 
=0400013,D0tL 


BLDCC 


SET OCW 


SET COMMAND 


TO FIRST COMMAND 
TO SECOND COMMAND 
IS CALLER CALLIO 


YESs LINK 


3-WORD CALL SEQUENCE 


GET STATUS RETURN POINTER 
NO STATUS RETURN 
SET STATUS RETURN DESC. 
BUILD COMMAND BLOCK DESC. SAME AS. 
CALLIO » BASE ADDRESS RE~ADDRESSING 
ADJUST BASE 
& PUT IT AWAY 
MASK OVERFLOW 
VALIDATE SRP 
GET STATUS WORD 
NO OVERRIDE 


TEST GEPR OVERRIDE 


NO OVERRIDE 

YES» IS IT TABULAR 
YES» USE TABLE 
NOs FORCE SPECIAL CODE 
GET OVERRIDE BITS 

SET GEPR OPTION FLAG 


POSITION GEPR OVERRIDE IF ANY 


SET GEPR OPTION FLAG 


CCA OFFSET 

NO COURTESY CALL ADDRESS 
VALIDATE CC ADDRESS 
CHECK CC ENTRY 


BUILD CC ENTRY DESCRIPTOR 


97 


108041785 
10804190 


10802035 
10802040 
10Ss02045 
10802050 
IOSO4AAM 


10802060 


10802065 


10802070 


10S$02075 


10802080 


10802085 
10802090 


10802105 


10SO4AAM 
IOSO4AAM 
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EXIT-Q FROM EP#H2 NORMAL 3-WORD SELECT SEQUENCE 


3832 « 
3833 INHIB ON 10$06804 

004662 3834 IONTR NULL 10$01060 
004662 3835 NLINK NULL GEINOS o« ALWAYS .LINK 

(0046662 100025 2213 14 000 3836 LDXx1 »WEEND+1 445P.410@ GET ADJUST IC 

004663 100001 7253 14 000 3837 LXL5 aWEPRV>4 oP. 10Q RETRIVE CONTROL BITS. 

004664 004701 6362 00 010 3838 EAQ IRETN 10$04200 

004665 004024 7102 00 010 3839 TRA LINK 10804205 

3840 * | | 10$04210 

004666 100001 7203 14 O00 3841 SLINK LXLO o»WEPRVs4 oP. 10Q RETRIEVE CONTROL BITS 10804215 
004667 3842 CLINK NULL FROM CALLIO 

004667 200000 3002 03 000 3843 CANXO JFFMODADU IS MASTER 

004670 004662 6012 00 010 3844 TNZ NL INK NO» SLAVE CALL 

004671 300001 2353 00 O00 3845 LDA e~IWCBTs/P.10CB LINK OPTION REQUESTED 

004672 140000 3152 07 000 3846 CANA oT FLKF+. IFLKS»DL 

004673 004662 6002 00 010 3847 TZE NL INK NO,» REQUEST TO .LINK 

C04674 000000 6252 10 000 3848 EAXS 0,0 SAVE CONTROL BITS 10804230 

004675 004701 6362 00 010 3849 EAQ IRETN SET RETURN 10804235 

004676 100000 3152 07 000 3850 CANA wIFLKFSDL IS LINKF 

004677 004020 6002 00 010 3851 TZE LINKS NO 10804245 

004700 004022 7102 00 010 3852 TRA LINKF LINK FIRST (10804250 
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004701 
004701 006133 4756 07 000 
004702 500052 6757 00 000 
004703 400000 3052 03 400 
004704 004721 6002 00 010 
004705 001764 4706 07 O00 
004706 001761 4706 07 9000 
004707 000004 0213 00 000 
004710 000004 7413 00 000 
004711 030000 3052 03 on0 
004712 004733 6012 00 010 
004713 000004 7203 00 00 
004714 000200 3002 03 000 
004715 000002 6002 04 000 
004716 000053 4473 00 000 
004717 
004717 000000713400 000 
004720 000000010000 000 
004721 030000 3052 03 000 
004722 004015 6002 00 010 
004723 010000 3052 03 000 
004724 004730 6012 00 010 
004725 
004725 
004725 
004725 005704713400 000 
004726 000000606122 000 
004727 004015 7102 00 010 
004730 
004730 
004730 
004730 005702713400 000 
004731 000000606122 000 
006732 004015 7102 00 010 
004733 000000 4706 07 000 
004734 600043 2353 00 o00 
004735 010000 2752 07 000 
004736 600012 7553 56 000 


3854 
3855 
3856 
3857 
3858 
3859 
3 860 
3 861 
3862 
3863 
3 864 
3 865 
3 866 
3867 
3868 
3 869 
3870 
3 871 
3872 
3.873 


3874 
3875 
3876 
3877 
3878 
3879 
3880 


3881 
3882 
3883 


3884 
3885 
3886 
3887 
3888 
3889 
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IRETN 


RETP2 


CRODY 


CROD 


1/0 


NULL 
INHIB 
LOP 
LDD 
CANXS5 
TZE 


LOP 
LOP 
ADLX1 
STX1 
CANXS 
TNZ 
LXLO 
CANXO 
TZE 
SXL7 
OCLIMB 
VFD 
VFD 


CANXS 
TZE 


_CANX5 


TNZ 

a ARELC 
» CALLX 
INHIB 
ICLIMB 
VFD 
VFD 
INHIB 
TRA 


#AROAD 
2 CALLX 
INHIB 
ICLIMB 
VFD 
VFD 
INHIB 
TRA 


LOP 
LDA 
CRA 
STA 


S UP ERV IS OR 79121910S0 PAGE 


COMMON EXIT FROM REQUEST HANDLER 


RETURN FROM REQUEST HANDLER 
ON 
P.SSLoSD.KLeDL 
P.SSLoaeKLSLVeeP.SSL RESTORE P.SSt FOR SLAVE 
oFFIOR,S,DU VIA CALLIOs 
ICALL YESs VIA PMME CALLIO 
NOs VIA GEINCS MUST BE ADJUST IC 
GET SAFE STORE DESC. 
CHANGE TYPE TO 03 


POveSSRe DL 
PO-.CTYPsDL 


eWICI oo PC ADJUST RETURN IC 
eWICI oe PC 

oF FROD4. FFRLC o DU YESs IS RELC/ROAD SET 
CROD YES 

eWICI ooPC 

eFBT28e0U WAS MME IN SLAVE 

2e1C YES 

eWREGS+3 4eP0 NOs UPDATE XR?7 


NO» RETURN 
18/€06C€9/713-1/1-1/C-1/026/0 
1/09/04 8/0 01 /No 1/0 62/002/1412/0 


oF FROD+. FFRLC DU IS RELC/ROAD SET 
LNKRET NOs EXIT 


oF FRODSDLU IS IT ROADBLOCK 
CRODY YES 

NOs RELINQUISH 
«MDISF.4 oN 
SAVEsCON 
SD.SVXee eMDISP*6444,EAX0 
1B/aMOISP*6444,09/71361/101/001/006/M~. 
1/09/04 8/0 oT SaNo 1.002100 2/0012/8SD4SVX 
RESTORE 
LNKRET EXIT 


ROADBLOCK 
«MDISPs2 oN 
SAVEsON 
SDeSVXeeeMDISP*644+2,EAX0 
TBS AMDISP*6442409/71361/101/001/006/M. 
1109/07 B/D oT LNo Ve Oe 2/ Co 2/0012/8S04SVX 
RESTORE 
LNKRET EXIT 


POs ** 6 DL GET .MDISP SEGMENT 
eSELVLsesP.SSA ESTABLISH DDS 


»SSAsIDsP.SSA MAKE STACK ENTRY 


99 


10804040 


10804050 
10804055 
11FWC98O0 


11FWC990 


11FW1000 
117FW1010 
10804060 


10S$04065 
10804070 
EL8. 

10804085 
10804090 
10804095 
10804100 


EL8. 


10804110 


10804115 


—EL8. 


10804125 


10804130. 


10804135 
10804140 


10804145 
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004737 
004740 
004741 


004742 
004743 
004744 
004745 
004746 
004747 
004750 
004751 


004752 
004753 
004754 
004755 
004756 
004757 
004760 
004761 


010000 3052 
000002 6013 
000004 7103 


000001 1062 
000000 6012 
100001 7203 
200000 3002 
000000 6012 
000004 2352 
100004 2553 
000000 7102 


000000 00000 
002000000000 
00000000C100 
000000000200 
000000000300 
002000000400 
oo0o000000cs oc 
000000001700 


7? 


03 
00 
00 


004742 


03 
15 
14 
03 
15 
07 
14 
15 


0 
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COMMON EXIT FROM REQUEST HANDLER 


000 3890 CANXS oF FRODs DU IS IT GEROAD 
oo0c 32891 TN2Z 202P0 YESs GOTO .~MDISP.2 
000 3892 TRA 4a0P0 NOs» GOTO .~MDISP 44 
3893 * 
3894 * SUBROUTINE IF PROCESS IS POPM » CC PAY IN MASTER 
3895 * 
3896 CKCCM NULL 
000 3897 CMPX6 2 PNPOPsDU IS POPM 
000 3898 TNZ 0-5 NO» NORMAL 
000 3899 LXLO »WEPRV64 oP. 108 
000 3900 CANXO oF FMODSDL IS MASTER REQUEST 
000 3901 TNZ 05 NO SLAVE» NORMAL 
000 3902 LDA oF CCMM SDL 
000 3903 ORSA eWESCT+4 oP. 108 SET CC FLAGs CC PAY IN MASTER 
000 3904 TRA 0-5 RE TURN 
3905 * 
3906 * 
3907 * DATA AREA 
3908 * 
000 3909 GPOPT ZERO NO OVERRIDE 
000 3910 VFD 9/2.027/000 -1 ALL 
000 3911 VFD 9/0/027/100 -2 ALERT 
000 3912 VFD 9/0-027/ 200 ~3 USE OPTION 
000 3913 VFD 9/0027/ 200 | ~4 MT NOISE 
000 3914 VFD 9/22027/ 400 ~5 ALL 
N00 3915 VFD 9/0,027/500 ~6 CODE ALERT 
000 3916 VFOD 9/02027/1700 ~16 GEOT SPECIAL 
3917 * 


10804150 
10S04155 
1080416C 


10$02125 
10802130 
10802135 
10802140 
10S02145 
-10802150 
10s02155 
10802160 
10802165 


@ 
@ 
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BU 
EXIT=1 FROM EP#2 DS/DR NON DATA TRANSTER 
& 3919 * 
3920 * REGISTERS 
3921 * X3 = SELECT SEQUENCE ADORESS (GEINOS) ODR4 =~ P.USER 
@ 3922 * X4 = 1/0 ENTRY ADDRESS ODR1 =~ P.I0Q 
3923 x X6 = KPX 
3924 * X7 = CPUNO 
@ 3925 x ODR2 = P.PAT 
3926 * ODR3 = CCMMAND BLOCK P.IOCB 
3927 * ODRS = P.IOS 
| 3928 * ODR6 = P.SSA 
3929 * ODR7 = P.CR 
| 3930 * 
& 3931 * »WEEND BOUND/PAT OFFSET 
3932 x eWEEND+1 ADJUST IC/CALLING ADDRESS 
| 3933 * 
@ 3934 * Q RELATIVE FLAG 
| 3935 * 
| 3936 * 
& 3937 *. 
3938 * 
004762 3939 INDTR NULL | 
@ 004762 100024 7233 14 O00 3940 LXL3 »WEENDs4 oP. 10Q PAT OFFSET 
: 004763 100005 2213 14 000 3941 LDXx1 aWEPEPsS4,P.10Q PAT POINTER CFFSET 
004764 740000 2202 03 O00 3942 LOXO =0740000.-duU 
1 @ 004765 200000 3003 11 000 3943 CANXO Ov1-P.PAT IS NULL FILE 
| 004766 005004 6002 00 010 3944 TZE NULLS YES» NULL 
004767 100004 2213 14 000 3945 LDX1 oWESCT44 P1080 
@ 004770 017774 3612 03 O00 3946 ANX1 eFSCT1,DU SCT ADDRESS 
| 004771 013354 7002 00 010 3947 TSXO ILPCX CALCULATE LOGICAL CHANNEL. INDEX 
| | 3948 IN X2 
1 @ 004772 005373 7102 00 010 3949 TRA INABQ INVALID SCT » ABORT 
004773 001000 2352 03 O00 3950 LDA eo FMRNDsDL 
| 004774 200002 3153 13 O00 3951 CANA 23 eP.PAT IS RANDOM FILE 
1 @ 004775 005013 6002 00 010 3952 TZE INDOK NO,» LINKED FILE 
| 004776 000000 1162 03 000 3953 CMPQ O,DU FSR/BSR REQUEST 
| 004777 005002 6012 00 010 3954 TNZ +3 YES» INVALID 
1 @ 005000 400000 2352 03 000 3955 LDA =0400C00.DuU RANDOM FILE REWIND IS NO~OPERATION 
) 005001 005023 7102 00 010 3956 TRA ISTAT ALWAYS READY STATUS RETURN 
3957 x 
1 @ CO5002 000045 2362 07 O0C 3958 LDQ eACO45,DL K6 ~ INVALID COMMAND FOR FILE EL8. 
| 005003 005373 7102 00 010 3959 TRA INABQ ABORT K6 
| 3960 * | 
1 @ 005004 3961 NULLS NULL NULL FILE SPACING OR STATUS REQS. 
| 005004 000100 2352 07 O00 3962 LDA 64 DL 1 MILLI SEC CONNECT CONSTANT 
2 005005 200001 0553 13 O00 3963 ASA 163eP.PAT ADD TO I/O TIME 
: @ 005006 3964 NULS1 NULL 
005006 400000 2352 03 O00 3965 LDA =0400000,du SET CHANNEL READY STATUS 
| COS007 000001 1162 07 000 3966 CMPQ 1/DL TEST DIRECTION 
® 005010 005023 6022 00 010 3967 TNC ISTAT BACK OR STATUS REQUEST READY 
:_ 005011 170000 2752 03 O00 3968 ORA =0170C00,dU FORWARD INSERT LOGICAL EOF 
Bo 
] 


@9eeeee%e%#ee?sree#e2e@eeee#2ee8e 06080 0@8 @ @ @ 


—1245T O02 


12-27-79 
005012 005023 
005013 000000 
005014 005060 
005015 777000 
005016 777777 
005017 011206 
005020 000002 
005021 777774 
005022 400200 
005023 100013 
c05024 000000 
005025 100025 
005026 100025 
co0s027 100001 
005030 400000 
005031 005051 
005032 400002 
005033 005042 
005034 400000 
005035 400001 
005036 777774 
005037 000020 
005040 100014 
c05041 100015 
005042 400002 
005043 005051 
c05044 400000 
005045 004742 
005046 000000 
005047 400013 
005050 013307 
005051 100013 
005052 on0000 
005053 100001 
005054 000003 

005055 100025 
005056 004701 


09,357 


7102 00 


005023 


7553 14 
2232 03 
7433 14 
7233 14 


010 


005027 


7203 14 
3002 03 
6002 00 
2213 13 
6002 00 
2353 11 
2363 11 
6352 11 
7712 OO 
0547 14 
0553 14 


005042. 


1215 243 
6002 00 
2203 11 
7052 00 
6362 11 
2762 07 


7052 00 


2353 14 
2362 03 
7253 14 


een e 05 


0213 14. 


6202 00 


010 


3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 


3991 
3992 


3994 
3995 


3997 
3998 
3999 
4000 


4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 


H6600J7.902 


INDOK 


ISTAT 


K2B 


ISTt11 


1/0 


EXIT-1 FROM EP#2 


TRA 
NULL 
CMPQ 
TNZ 
LDQ 
LODE 
TSX5 
TRA 
TRA 
LDA 


NULL 


STA 


LDX3 
STX3 
LXL3 


NULL 
LXLO 
CANXO 
TZE 
LDXx1 
TZE 
LDA 
LDQ 
EAA 
ARL 


 S$Tod 


ASA 
NULL 
LXL1 
TZE 
LOxO0 
TSX5 
EAQ 
ORQ 


TSX5 


NULL 
LDA 
LDQ 
LXLS 


LDX1 
ADLX1 
EAXO 


S UP ERVIS OR 


7912191080 PAGE 102 


DS/DR NON DATA TRANSTER 


ISTAT 


O07 DU 
IBSFS 
=0777000 DU 
-1,DU 
MS CSK 
2elC 
~-4,I1C 
=0400200.DU 


eWEIOS44-P.10Q 
O,DU 
eaWEENCH+144,P., 100 
eWEEND+1 44,P, I0Q 


eWEPRV24 oP. 108 
eFFIORs DU 
Ist 
2e3eP.USER 
ISti2. 
Ov1eP.USER 
TelsoP.USER 
~.ITWST11 

16 


223 e0P.USER 
Ist 
Or1eP.USER 
CKCCM 

a 
70400013 DL 


BLDCC 


eWEIOS +4 oP, I0Q 
Or DU 
»WEPRVs4 oP. 100 


32DU 
»@WEENC4+1 444P.10Q 
IRETN 


RETURN STATUS 


BACKSPACE IMPOSSIBLE 


SKWPT FLAG EL8. 
CALC SEEK ADDR EL8. 
ERROR RETURN» DONE EL8. 
MORE YET EL8. 


COMPLETE.» STATUS BEGINNING 


SAVE STATUS 


ZERO IC&I ADJUSTMENT IN UPPER 
SELECT SEQUENCE ADDRESS. 


IS CALL FROM CALLIO 
YES» STATUS RETURN 


NO STATUS RETURN 
VALIDATE SRP 1osQ2175 
IOSO4AAM 


BUILD COMMAND BLOCK DESCRIPTOR 


P. USERs« WEI CB o4s P. I0Q 


SET STATUS RETURN POINTER 


NO COURTESY CALL 

VALIDATE CCA 

CHECK, CC MODE 

VALID CCA, BUILD ENTRY DESC. FOR CC 


IOSQC4AAM 


BUILD CC ENTRY DESCRIPTOR 


STATUS RETURN WORD 1 
WORD 2 
RETRIVE CONTROL BITS 


ADD 3 TO ICI 


SET STRET EXIT XXXX3160 


1245T C2 


Ve=27=79 
005057 003036 
COS5S060 777777 
005061 011206 
005062 005065 
005063 400000 
005064 005023 
005065 200000 
005066 905022 
005067 100000 
005070 005341 
005071 570000 
005072 005023 


09.357 


7102 00 010 


005060 
4110 03 000 
7050 00 010 
7100 00 010 
2350 03 000 
7100 00 010 


005065 
3160 03 000 
6010 00 010 
3160 03 000 
6000 00 9010 
2350 03 000 
7100 00 9010 


4019 
4020 
4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
4033 
4034 
4035 
4036 


H6600J7.002 


IBSFS 


IRCNT 


1/0 


EXIT-1 FROM EPA2 


TRA 
INHIB 


NULL 
LDE 
TSX5 
TRA 
LOA 
TRA 


NULL 
CANQ 
TNZ 
CANQ 
TZE 
LDA 
TRA 


S UP ERVIS OR 


79121910S0 PAGE 


DS/DR NON DATA TRANSTER 


STRET 
OFF 


-~14D0U 
MSCSK 
IRCNT 
=0400CC0.,DU 
IS TAT 


=0200000 dU 
ISTAT~1 
=0100000,D0u 
DSDRE 
=0570000, bu 
ISTAT 


RETURN STATUS 


BSR/FSR»e Q REG. CONTAINS COUNT 
SKWPT FLAG 

SEEK ADDRESS CALC 

SPACE NOT COMPLETE 


CHANNEL READY 


BACK TOO FAR 


ENO OF FILEs LOGICAL E0F 


103 


XXXX3170 
XXXX3180 


EL8. 


EL8. 


EL8. 


EL8. 


1245T O02 


12-27-79 
005073 100006 
005074 014046 
CQ05075 100006 
005076 100011 
005077 000002 
C05100 100003 
005101 100001 
005102 400000 
005103 005114 
C05104 400002 
005105 005114 
C05106 400000 
005107 400001 
005110 100014 
005111 777774 
005112 000020 
005113 100015 
005114 000003 
005115 100025 
005116 100012 
005117 100005 
005120 005126 
005121 740000 
005122 200000 
005123 005126 
005124 000000 
005125 005006 


09.357 


005073 


2351 14 000 
3750 00 010 
7551 14 O00 
7551 14 990 


6350 00 9000 
2551 14 000 
7201 14 0900 
3000 03 000 
6000 00 010 
2211 13 000 
6000 00 010 
2351 11 000 
2361 11 O00 
0545 14 000 
6350 11 000 
7710 00 000 
0551 14 000 


005114 
2210 03 0900 
7411 14 000 


4501 14 000 
2211 14 000 
6000 00 010 
2200 03 000 
3001 11 900 
6010 00 010 
6360 00 O00 
7100 00 010 


005126 


4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 


4049 


4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 


4079 


4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 


H6600J7.002 


EXIT=2 FROM EP#2 


+ *& & + & & & eH eH eH eH eH He FH 


IRESS 


Kec 


IRES2 


IRES3 


1/0 


S UP ERV IS OR 791219T0S0 


REQUEST/RESET STATUS 


REGISTERS 
X3 = SELECT SEQUENCE ADDRESS (GEINOS) ODR4 
X4 = I/0 ENTRY ADDRESS ODR1 
X6& = KPX 
X7 = CPUNO 
ODR2 = P.PAT 
ODR3 = P.IOCB COMPAND BLOCK 
ODR6 = P.SSA 
ODR? = P,CR 
eWEEND BOUND/PAT OFFSET 
eWEEND+17 ADJUST IC/CALLING ADDRESS 
NULL 
LDA eWEICMs4 oP. 10Q 1/0 COMMAND 
ANA =0770000770077 
STA eNEICMs4 oP. 100 PMX 
STA »WEFCMs4,P. 108 SMX 
EAA CHN2 SET CHANNEL PROGRAN # 
ORSA »WEPID44,.P.108@ 
LXLO eWEPRVs4 oP. 100 IS CALLIO, 
CANXO oF FIORSZDU 
TZE IRES2 YES 
LDX1 2e3eP.USER NOs SRP 
TZE IRES2 NULL 
LDA O-1-P.USER VALIDATE SRP 
LDQ 1eieoP.USER 
STD P,USERs»»WEICB e4eP.100 
EAA ~,.IWST1.41 SET STATUS RETURN POINTER 
ARL 16 CHANGE BASE 
ASA eWEICE+1 46 P., 100 SET NEW DESC. IMAGE 
NULL 
LDOX1 34DU 
STX1 aWEEND+4+144,P.100 3 WORD SELECT SEQUENCE 
STZ oWEFDC+4 oP. 100 INSURE NO DCW FOR NEXT CO 
LOX eWEPEP,s4 PL 10Q GET PAT POINTER OFFSET 
TZE IRES3 NO PAT REQUEST 
LDdXx0 =0740C00 dU TEST FOR NULL FILE 
CANXO Ov1-P.PAT Is IT 
TNZ IRES3 NOT NULL CONTINUE 
EAQ 0 SET FOR READY STATUS 
TRA NULS1 RETURN STATUS 
NULL 


PAGE 


MMAND 


104 


10807145 
10807150 
IOSO4AAM 


1245T 02 


12-27-79 
005126 002000 
C05127 100004 
005130 100001 
005131 400000 
005132 004667 
005133 004653 


09.357 


2350 
2551 
7201 
3000 
6000 
7100 


000 
000 
000 
000 
070 
010 


H6600J7.002 1/0 


4088 
4089 
4090 
4091 
4092 
4093 


EXIT=2 FROM EP#2 


LDA 
ORSA 
LXLO 
CANXO 
TZE 
TRA 


S UP ERV IS 0 
REQUEST/RESET 


eFGPOVZDL 
eWESCT#45P.100 
oWEPRVs4 oP. I0Q 
oF FIOR*S DU 
CLINK 

CCACK 


R 7912191080 PAGE 
STATUS 

GEPR OVERRIDE OPTION 

CALL FROM CALLIO 


YESs LINK 
NO» TEST COURTESY CALL 


105 


—1245T C2 12-27-79 


005134 


005135 
005136 
005137 


100025 


000004 
100003 
004614 


09.357 


005134 
7231 14 


6350 00 
2551 14 
7100 00 


H6600J7.002 


000 


000 
000 
010 


4095 
4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 


EXIT~3 FROM EP2 


* + be & 


NODAT 


1/0 


NULL 
LXL3 


EAA 
ORSA 
TRA 


SUPERVISOR 791219T0S0 


NIN CATA TRANSFER OR SINGLE CHARACTER 


»WEEND+1 44-P.100 RESTORE CALL SEQ ADDRESS 


CHN4 SET CHANNEL PROGRAN #4 
eWEPIDse4 »-P.I0Q 
SRPCK GO TO NORMAL PROCESS 


PAGE 


106 


10806620 


1245T (2 


12-27-79 
005140 002000 
005141 100001 
005142 100001 
005143 400000 
005144 005146 
005145 100020 
005146 900000 
005147 000000 
005150 100016 
005151 005414 
005152 900004 
005153 100016 
005154 005271 
c05155 100020 
005156 005414 
005157 000004 
005160 100020 
005161 005271 
005162 100001 
005163 400000 
005164 004667 
005165 400001 
005166 001774 
005167 013155 
005170 100007 
005171 100012 


09.357 


005140 


2350 
255 1 
7201 
3000 


6000 | 


0545 


6350 
6 360 
7201 
6000 
7720 
3761 
6000 
7201 
6000 
7710 
3:75:4 
6000 
7201 
3000 
6000 
7211 
4704 


7020 
7411 
7551 


07 


H6600J7.002 1/0 


4108 
4109 
4110 
4111 
4112 
4113 
4114 
4115 
4116 
4117 
4118 
4119 
4120 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4148 
4149 
4150 
4151 
4152 


4153 | 


4154 
4155 
4156 
4157 


EXIT~4 FROM EPH2 


S$ UP ERV IS OR 


7912191080 PAGE 107 


TWO TYPEWRITER COMMANDS 


* 
* REGISTERS 
* X3 = SELECT SEQUENCE ADDRESS (GEINOS) ODR4 =~ P.USER 
* X4 = I1/0 ENTRY ADDRESS ODR1 =- P.10Q 
* X6 = KPX 
* X7 = CPUNO 
* ODR2 = P,PAT 
* OOR3 = P.IOCB COMMAND BLOCK 
* ODORS = P.IOS 
* ODR6 = P.SSA 
* ODR7 = P.CR 
* 
* eWEEND BOUND/ PAT OFFSET 
* »WEENO+1 ADJUST IC/CALLING ADDRESS 
* 
* IF FROM CALLIOs QU/QL = 18ST CMD FLAG/2ND CMD FLAG 
* te READ COMMAND 
* 2e WRITE COMMAND 
* O, ELSE 
* 
ITYTW NULL 
LDA oF FDD1,0L 
ORSA aWEPRVs4 oP. 10Q TWO DATA REGION PRESENT 
LXLO eWEPRV+4 oP. 10Q IS CALLIO'S 
CANXO eFFIORSDY 
TZE x+2 YES 
STD P,USERs. WEDRFE »4eP.10Q NOs SET DATA REGION DESCRIPTOR 
* 
EAA QL CHECK DESCRIFTOR*'S PERMISSION 
EAQ 2QU CLEAER SECOND COMMAND FLAG 
LXLO eWEDRI44 oP 100 TEST DESCRIPTOR 
TZE NDATS NOT PRESENT,» ABORT 
QRL 4 
ANQ @WEDRI44 oP. 10Q FIRST DATA REGION 
TZE NSECU NO DATA REGION 1 €EL8. 
LXLO »WEDRF +4 eP.100 TEST DESCRIPTOR 
TZE NDATS NOT PRESENT» ABORT 
ARL 4 
ANA eWEDRFs44.P,108 SECOND DATA REGION 
TZE NSECU NO DATA REGION 2 EL8. 
LXLO a@WEPRV24 oP. 108 TEST CALLER» IS CALLIO 
CANXO oF FIOR*SDU 
TZE CLINK YES=s 
LXL1 1/3eP.USER NO GEINOS 
LDP PO0e.2DR4,0L GET DCW FOR 1ST COMMAND 
TSX2 DCWCK VALIDATE DCW POINTER | 
STX1 »WEOFFs4 oP. 10Q SET DCW ADDRESS TO FFOFF 
STA eWEFDC44 oP. 108 SET OCW 


1245T 02 12-27-79 09.357 H6600J7.002 1/0 SUPERVISOR 7912191080 PAGE 108 


EXI1T-4 FROM EP#2 TWO TYPEWRITER COMMANDS 


4158 « 
005172 4159 FIVEW NULL ALL FIVE WORDS SS 

005172 000002 0230 03 000 4160 ADLX3 2eDU NEXT COMMAND 
005173 400001 7211 13 O00 4161 LXL1 1e3eP.USER GET DCW FOR SECOND COMMAND 
005174 001774 4704 07 O00 4162 LDP POs .DR44DL 

4163 
005175 013155 7020 00 O10 4164 TSX2 DCWCK VALIDATE DCW POINTER 
005176 100007 4411 14 000 4165 SXL1 eWEOFFs4eP,10Q SET DCW ADDRESS TO .FIOFF 
005177 005336 7100 00 010 4166 TRA FIVEW? 10804265 


1245T 02 


12-27-79 
005200 002000 
005201 100001 
co05202 100005 
005203 000001 
(05204 100003 
005205 100001 
005206 400000 
005207 005273 
005210 000000 
005211 300001 
005212 002000 
C05213 005222 
005214 100001 
005215 200000 
005216 005222 
CQ05217 300004 
005220 100013 
005221 005262 
005222 200000 
005223 000004 
005224 300006 
005225 100013 
005226 005262 
005227 006013 


09.357 


005200 


2352 07 O00 
2553 14 000 
2563 14 000 
2352 03 000 
2553 14 000 
7203 14 900 
3002 03 00 
6012 00 010 


6232 06 000 
2353 00 000 
3152 07 000 
6002 00 010 
2363 14 O00 
3162 07 000 
6012 00 9010 
2363 00 9000 
7563 14 000 
7102 00 010 


005222 
3152 03 O00 


H6600J 


4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4181 
4182 


72002 


EXIT-5 FROM EP#2 


+ + + + * He He He He FH HF HH HF HF HF H H HF 


IDSDR 


DSDR2 


1/0 


S UP ERV IS OR 


7912191 CS0 PAGE 


TWO DS/DR DATA TRANSFER COMMANDS. 


REGISTERS 
X3 = SELECT SEQUENCE ADDRESS (GEINOS) ODR4 - P.USER 
X4 = 1/0 ENTRY ADDRESS ODR1 ~ P.10@ 
X6 = KPX 
X7 = CPUNO 
QL = COMMAND FLAG 
12 READ COMMAND 
27 WRITE COMMAND 
Cs» ELSE 
ODR2 = P,PAT 
ODR3 = P.IOCB COMMAND BLOCK 
ODRS = P,IOS 
ODR6 = P.SSA 
ODR? = P.CR 
2»WEEND BOUND/PAT OFFSET 
eWEEND+1 ADJUST IC/CALLING ADDRESS 
NULL 
INHIB ON 
LDA eFFDD1/DL FIRST DATA REGION PRESENT 
ORSA eWEPRVs4 oP. 108 SET IN ENTRY 
ORSQ ~WEPEP,4sP.10Q SET COMMAND TYPE FOR CACHE CONTROL 
LDA CHN1, 0U SET CHANNEL PROGRAM # (€ DS NORMAL ). 
ORSA oWEPIDs4,P.10Q IN ENTRY 
LXLO »oWEPRVs4 oP. 108 IS CALLIO 
CANXO eFFIORsZDU 
TN2 DSDORS NOs GEINOS 
EAX3 eQl CALLIOs SAVE COMMAND FLAG 
LDA eIWCBT-/P.IOCB TEST SEEK ADDRESS TYPE 
CANA eI FABSsDL IS ABSOLUTE 
TZE DSDR2 NOs 
LDQ »WEPRV.4 oP. 108 YES, REQUEST FROM MASTER MODE 
CANQ oF FMODZDL 
TNZ DSDR2 NO» IGNORE ABS OPTION 
LDQ eIWST14/P.10CB RELATIVE BLOCK ADDRESS FROM .IWST1 
STQ oWEIOS 24 oP. 10 SET IN ENTRY 
TRA DSDR1IC 
NULL NOT ABS» NOT MASTER REQUEST 
CANA oT FCMDZDU IS LOGICAL COMMAND REQUEST 
TNZ 4/1C NO 
LDA ~IWSE Ks P.10CB YES» GET SEEK DATA 
STA eWETIOS+4-P.10Q FROM COMMAND BLCCK 
TRA DSDRIC 
LOP PO-SD.IOGsOL NO» SEEK DATA IS IN OTHER SEGMENT 


109 


10SCC130 


10807310 
10807315 
10$07320 
10807325 


1245T C2 


12-27-79 
005230 000016 
005231 100016 
005232 100024 
005233 100007 
005234 000200 
005235 005245 
005236 100001 
005237 200000 
005240 005243 
005241 000400 
005242 005245 
005243 013155 
005244 900000 
005245 000000 
005246 100013 
005247 100007 
005250 000022 
C05251 100007 
005252 100016 
005253 100020 
005254 100020 
005255 100016 
005256 100017 
005257 100021 
005260 100021 
005261 100017 
005262 000000 
005263 000022 
005264 100016 
005265 005414 
CO05266 000016 
005267 100016 
005270 005355 
005271 000206 
005272 005373 
005273 400001 
005274 400003 
005275 400000 
005276 100007 
005277 400000 


H6600J7.002 


09.357 
6707 14 000 
2213 14 900 
7413 14 000 
2213 14 000 
3152 03 000 
6012 00 010 
7203 14 000 
3002 03 000 
6012 00 010 
3152 07 9000 
6012 00 010 
005243 
7022 00 010 
2213 11 900 
005245 | 
2353 11 000 
7553 14 Q00 
2353 14 000 
7752 00 000 
7553 14 000 
2353 14 000 
2363 14 000 
7553 14 9000 
7563 14 000 
2353 14 9000 
2363 14 000 
7553 14 000 
7563 14 000 
005262 


6362 13 000 
7722 00 000 


005264 
7203 14 000 
6002 00 010 


7362 00 000 


3763 14 000 
6012 00 010 


2362 07 000 
7102 00 010 


005273 
7203 13 O00 
7213 13 O00 
2203 10 000 
7413 14 000 
2353 10 000 


DSDR10 


& 
DSDR1 


* 


NSECU 
DSDRS 


K4A 


K4B 


1/0 


EXIT~5 FROM EP#2 


LOD 
LOx1 
STX1 
LOXx1 
CANA 
TN2Z 
LXLO 
CANXO 
TNZ 
CANA 
TNZ 


NULL 
TSX2 
LDXx1 
NULL 
LDA 
STA 
LDA 
ALR 
STA 
LDA 
LDQ 
STA 
STQ 
LOA 
LDQ 
STA 
STQ 
NULL 
EAQ 
Q@RL 


NULL 
LXLO 
TZE 
QLS 
ANQ 
TNZ 


LDQ 
TRA 


NULL 
LXLO 
LXL1 
LDXO 
STX1 
LDA 


S U PERV IS O R 


7912191080 PAGE 


TWO CS/DR DATA TRANSFER COMMANDS 


POs sWEDRIZ44PC0 
»@WEDRI44 oP. 100 
eWEEND+4 oP. I0Q 
aWEOF Fs4 oP. 10Q 
elLFOCWsDU 
DSDR8 
eWEPRVs4 oP. I0Q 
oF FMOD,DLU 
DSDRI 

eo LFAUXse DL 
DSDR8B 


DCWCK 
OsetePC 


Ov1/PC 
eWEIOS 44 oP. 100 
eWEOFF.4 oP. 108 
18 i 
»WEOFF.4 oP, 108 
«WEDRIZ4-P,.10@ 
aWEDRFe4 oP. 108 
seWEDRFs4 oP. 108 
@WEDRI44 PL 108 
eWEDR I+1 o4eP, 108 
@WEDRF4144,P.10@ 
eWEDRF+1 04eP, 10 
»WEDRI+41 64eP.100 


23 
18 


eWEDRI44 oP, 108 
NDATS 

14 
@WEDRI44 oP TOR 
DSOR6 


INABQ 


123eP.USER 
33P.USER 
O70/P.USER 
»WEQOFF,4P.10Q 
O-0eP.USER 


GET FIRST DATA REGION DESC. 
SET BOUND FOR ADDRESS TEST 


GET DCW ADDRESS FOR SEEK DATA/ 
TEST » DCW IS 

DCW IS IN DCW SEGMENT 

TEST» MODE 

IS FROM SLAVE 

YESsFROM SLAVE 

NO» FROM MASTER AUX IS PRESENT 
YESs DCW IS IN DCW SEGMENT 


VALIDATION 
X1 DCW ADDRESS. 


GET SEEK DATA 

SET RELATIVE BLOCK ADDRESS 
EXCHANGE DCW OFFSET ADDRESS. 
LOWER AND UPPER 


AND EXCHANGE DESCRIPTOR IMAGE 


RESTORE COMMAND FLAG 


TEST DESCRIPTOR 
NOT PRESENT» ABORT | 
CHECK DESCRIPTOR PERMISSION 
FOR DATA BUFFER 

NO ERROR 


K19 - FLAG MISMATCH 
ABCRT 


MME GEINOSs GET SEEK DCW 
GET DATA DCW PTR 

SEEK DCW 

SAVE DATA OCW PTR 

SEEK DATA 


110 


EL8. 


10S07260 
10S07265 
1OSO4AAM 
10807275 
IOSO4AAM 


1245T C2 


V2=21r¢9 
005300 100013 
005301 400000 
005302 100024 
005303 100004 
005304 017774 
005305 013354 
005306 005373 
005307 001000 
005310 200002 
005311 005315 
C05312 100013 
005313 777777 
005314 005321 
005315 100011 
005316 907700 
005317 000006 
005320 300000 
005321 011206 
005322 005341 
005323 000010 
(05324 100004 
005325 100006 
005326 760000 
005327 100004 
005330 100004 
005331 100001 
005332 400000 
005333 004667 
005334 100025 
005335 9000002 
005336 000005 
005337 100025 
005340 004625 
005341 100000 
005342 005424 
C05343 001000 
005344 200002 
005345 005424 


09.357 


7553 
2353 


0053C2 


7233 
2213 
3612 
7002 


7102 
2352 
3153 
6002 
2363 
4112 
7102 


005315 


2363 
3762 
7722 


005320 


4112 
7052 
7102 


005323 


2352 
2505 
7563 
2212 
3413 
2403 
7203 
3002 
6002 
7233 
0252 
6222 
7423 
7102 


005341 


3162 
6002 
2362 
3163 
6012 


14 
11 


14 


14 
0? 
00 


03 
00 
00 


07 
14 
14 
03 
14 
14 
14 
03 
00 
14 
03 
00 
14 
00 


03 
00 


000 
000 


000 
000 
000 
010 


010 
000 
000 
010 
000 
000 
010 


000 
000 
000 


000 
010 
010 


000 
000 
000 
000 
000 
000 
000 
000 
010 
000 
000 
000 
000 
010 


000 
010 
000 
000 
070 


4268 
4269 
4270 
4271 
4272 
4273 
4274 


4275. 


4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 


H6600J7.002 


K4C 
* 


DSDR7 


DSDRN 


4299 


4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 


FIVEW1 


DSDRE 


1/0 


EXIT-5 FROM EP#H2 


STA 
LDA 


NULL 
LXL3 
LDX1 
ANX1 
TSXO 


TRA 
LDA 
CANA 
TZE 
LDQ 
LDE 
TRA 


NULL 
LDQ 
ANQ 
Q@RL 


NULL 
LDE 
TSX5 
TRA 
NULL | 
LDA 
ORSA 
STQ 
LDX1 
ANSX1 
ORSXO 
LXLO 
CANXO 
TZE 
LXL3 
ADLX3 
EAX2 
STX2 
TRA 


NULL 
CANQ 
TZE 
LDQ 
CANQ 
TN2 


S UP ERVIS OR 


7912191080 PAGE 


TWO CS/DR DATA TRANSFER COMMANDS 


oWEIOS24 oP. 10Q 
O-1P.USER 


eWEENDs4 oP. T10Q 
oWESCT»4 oP. 10Q 
eFSCTIADL 

IL PCX 


INABQ 

eo FMRNE DU 
2e3eP.PAT 
LINKD 
»WEIOS+4 oP. 10Q 
~1,DU 

CALLB +1 


»WEFCMs4-P.10Q 
=0770C,D0L 
6 


=0 300000 DU 
MSCSK 
DSDRE 


»FSEEKsDL 
oWESCT24 sP. 108 
»WEICM+4 -PL10Q 
=0760000,DU 
eWESCTA£4 oP 100 
»WESCT24 oP. 100 
a»WEPRVs4 oP. I10Q 
oF FIORADU 
CLINK 


»WEEND+t+1 44-P.10@ 


2eDU 
5 


eWEENC+1 44,P.10@8 


SRPC2 


=01C00CC0,bduU 
ABPGM 

eo FMRNDsDL 
2030P.PAT 
ABPGM 


SAVE IN ENTRY 


GET PAT BODY OFFSET 
GET SCT 


CALCULATE LOGICAL CHANNEL INDEX 
X2 WILL HAVE INDEX 
INVALID SCT » ABORT 


IS FILE RANDOM 

NO LINKED 

RANDOM GET RELATIVE BLOCK ADDRESS. 
SKWPT FLAG 


LINKED FILE 

GET RECORD COUNT 
QL= N-1 RECORDS 

ALL LINKED FILE R/W 


MSKWPT FLAG 

CALK SEEK ADDRESS 
ERROR RETURN 
NORMAL RETURN 

SET SEEK DATA FLAG 


KEEP SEEK DATA IN I/0 ENTRY 
GET OLD SCT OUT 

SAVE ANY SPECIAL BITS 
INSERT NEW SCT 

TEST» IS VIA CALLIO 


YES» GO TO LINK 
SELECT SEQUENCE ADDRESS FOR GEINOS. 
ADJUST RETURN ADDRESS 


S~WORD CALL SEQUENCE 


ERROR RETURN TEST STATUS 


FORWARD TOO FAR 
IS FILE RANDOM 


YES, ABORT 


111 


10807285 
IOSO4AAM 


EL8. 


-EL8. 
EL8. 
EL8&. 
EL8. 


10804275 
10804280 
10$04285 


EL8. 


i 


| 


1245T 02 


12-27-79 
(005346 570000 
005347 100013 
005350 100025 
005351 000002 
005352 000002 
005353 100025 
005354 005027 
005355 100001 
005356 200000 
005357 005302 
005360 300001 
005361 002240 
005362 005302 
005363 100001 
005364 000002 
005365 005302 
005366 300006 
005367 100004 
005370 017774 
005371 005323 


092.557 


005346 
2752 03 000 
005347 
7553 14 000 
7233 14 000 
0232 03 9000 
2212 03 000 
7413 14 000 
7102 00 010 


005355 


4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 
4342 
4343 
4344 


H6600J37.002 


NULRD 


NULWT 


DSDRG 


1/0 


EXIT-5 FROM EP#2 


NULL 
ORA 
NULL 
STA 
LXL3 
ADLX3 
LOX1 
STX1 
TRA 


NULL 
LXL1 
CANX1 
TNZ 
LDA 
CANA 
TZE 
LXLO 
CANXO 
TNZ 
LDQ 
LDXO 
ANXO 
TRA 


S$ UP ERVI S OR 


7912191080 PAGE 


TWO DS/DR DATA TRANSFER COMMANDS 


=0570C00.buU 


eWEIOS24 oP. 10Q 
eWEEND+1 444P.10Q 
26D 

20DU 

eWEEND+1 44-P., 100 
IsT1 


eWEPRV4 oP. I0Q 
oF FMOD,DU 
DOSDR7 
eIWCBTseF.10CB 


oT FSCT+, IFONM+.I FAES/DL 


DSDOR? 
e~WEPRVs4 oP. 108 
aFJISTRAOU 
DSDR7 

eIWSEKee F.IOCB 
»WESCT»4,P.109 
@FSCT140U 
DSDRN 


INSERT LOGICAL EOF 


KEEP STATUS. 


ADJUST IC FOR GEINOS EXIT 


REQUEST VIA CALLIO 


IS MASTER MOCE REQUEST 
NO» SLAVE NORMAL REQUEST 


IS SPECICAL REQUEST NO PAT 
NORMAL REQUEST 

GET FLAGS: 

IS THIS J* 1/0 

YES» NORMAL S.A. 

GET ABS SEEK ADDRESS 


GET SCT PTR 
AND AWAY WE GO 


112 


IOSO4AAM 
IOSO4AAM 
IOSO4AAM 
IOSO4AAM 


IOSO4AAM 


IOSO4AAM 
TOSOG4AAM 
TOSO4AAM 


& 


1245T 02 


12-27-79 
005372 000047 
005373 100005 
005374 005377 
005375 100001 
005376 200000 
005377 100004 
005400 000200 
005401 005407 
005402 013400 
005403 600221 
005404 900003 
005405 700002 
005406 000036 
005407 510006 
005410 100013 
005411 005051 
005412 09000107 
005413 005373 
005414 000207 
005415 005373 
005416 000036 
005417 905373 
005420 000036 
005421 005403 


09.357 


005372 
005372 


2362 07 


005373 


2233 14 
6002 00 
359.2..07 
525:5> 45 
7233 14 
3032 03 
6012 00 
7002 00 


005403 


4503 00 


0054C4 


6306 04 
7103 00 
000003 


2762 Q3 
7563 14 
7102 00 


005412 


2362 07 
7102 00 


2362 07 
7102 00 


2362 07 
7102 00 


2362 07 
7102 00 


H6600J7.002 
EXIT-6 
4346 * 
4347 * 
4348 * 
4349 x 
4350 * 
4351 * 
4352 
4353 * 
4354 CMILG 
4355 INAK8 
000 4356 
4357 
4358 INABQ 
000 4359 
010 4360 
000 4361 
000 4362 
000 4363 
000 4364 
010 4365 
010 4366 
4367 
4368 * 
4369 INABT 
000 4370 
4371 
4372 
5407 
000 
000 
4373 
4374 
000 4375 NOABT 
000 4376 
010 4377 
4378 * 
4379 IABSA 
000 4380 
010 4381 
4382 
000 4383 NDATS 
010 4384 
4385 
000 4386 FCER 
010 4387 
4388 * 
000 4389 INAI3 
010 4390 


1/0 S UP ERV I S§ OR 79121910S0 PAGE 
FROM EP#2 ILLEGAL I/0 COMMAND 
REGISTERS 
X4 = I/O ENTRY ADDRESS 
ODR1 = P,IO0Q 
ODR2 = P.PAT 
NULL 
NULL 
LDQ eACO4740L K1 ~ INVALID I/70 REQUEST 
ABORT K1 
NULL 
LDX3 »WEPEPs4,P, 108 RELEASE PAT IF BUSY 
TZE *+3 NO PAT SYSTEM DOWN 
LCA =0100C01 DL 777777677777 
ANSA Ov 3eP.PAT 
LXL3 eWESCT£4,P.10Q GET OPTIONS 
CANX3 eFNABTSDL IS DON*T ABORT SET 
TNZ NOABT YES. 
TSXO UNWIRE CALL UN-WIRE SUBROUTINE 
NULL 
S$TZ oSVFEL Toe F.SSA CLEAR FAULT FLAG 
2 CALL eMBRT 143 GIVE UP CONTROL 
INHIB SAVEsON 
EPPRO *+3,$ 
TRA eCRCALs-P.CR 
ZERO eMBRT 143 
INHIB RESTORE 
ORQ eFLCOSTSDLU SET LOST INTERRUPT + ABORT CODE 
STQ »WETIOS24 sP. 108 PUT STATUS IN QUEUE ENTRY 
TRA IST11 
NULL 
LDQ eACIO7S9OL K4 —- BAD SEEK DATA ADDRESS 
TRA INABQ 
LDQ eAC207eDL K8 ~- NO DESCIRPTOR SUPPLIED 
TRA INAEQ 
LDQ eACC3b6sDL I3 —- FILECODE NOT FOUND, NO SCT PTR 
TRA INABQ 
LDQ eACCSEeDL I3 ~- FILECODE NOT FOUNDs, NO SCT PTR 
TRA INABT 


XXXX3580 


EL8. 


IOSQ4AAM 
ITOSC4AAM 
ITOSO4AAM 


10807300 


TOSO4AAM 
TOSO4AAM 
IOSO4AAM 


EL8. 


. EL8. 


EL8. 
25FWO390 
25Fw0400 
EL8. 
10802235 


| 

1 @ 
i 8 
i 

i 
i @ 
rf 

& 
i 
: 


1245T C2 


005422 
C054 23 


005424 
C05425 


005426 
005427 
005430 
005431 
005432 
005433 
005434 


005435 


005436 
005437 
005440 
0054 41 


005442 
005443 


005444 
005445 
005446 
005447 
005450 


005451 


005452 
005453 
005454 
005455 
005456 
005457 


005460 
C054 61 


12=27779 


09.357 


000037 2362 07 O00 
005403 7192 00 010 


000040 2362 07 000 
005373 7102 00 010 


600212 7537 00 000 
005460 2372 00 010 
600212 0373 00 000 
600212 7573 00 000 
600212 7737 00 000 
300004 2213 00 000 
000000 6222 00 9000 
030300 5202 01 000 
005444 1012 12 010 
005442 6C12 00 9010 
777777 2362 12 000 
005403 7102 00 010 


000121 2362 07 O00 
005403 7102 00 9010 


004636 


000041 010 
004637 000041 0710 
005035 000041 010 
005036 000041 010 
005107 000041 0170 
005110 000041 010 
004422 000042 010 
005276 000043 010 
005300 000043 010 
005302 000043 010 
004656 000044 010 
005045 000044 010 

005460 

000077777777 000 
777777777400 000 


H6600J7.002 1/0 
EXIT-6 FROM EP#2 

4391 * 
4392 INAIS LDQ 
4393 TRA 
4394 * 
4395 ABPGM LDQ 
4396 TRA 
4397 x 
4398 x 
4399 FLTIO STSS 
4400 LDAQ 
4401 ADLAQ 
4402 STAQ 
4403 LOSS 
4404 LOXx1 
4405 EAX2 
4406 RPT 
4407 CMPX1 
4408 TNZ 
4409 LDQ 
4410 TRA 
4411 * 
4412 FLTXX LDQ 
4413 TRA 
4414 INHIB 
4415 * 
4416 KTABL ZERO 
4417 ZERO 
4418 ZERO 
4419 ZERO 
4420 ZERO 
4421 ZERO 
4422 ZERO 
4423 ZERO 
4424 ZERO 
4425 ZERO 
4426 ZERO 
4427 ZERO 
4428 KEND NULL 
4429 SSRXX EOCT 
4430 * 


S UP ERV IS OR 


ILLEGAL 1/0 


eACO37/0L 
INABT 


eACO4O0,DL 
INABQ 


eS TEMP+6 »oeP.SSA 
SSRXX 

»STEMP+6 reP.SSA 
~STEMP+6 40P.SSA 
o~STEMPt+6 seP.SSA 
eWICIoeoP.SSR 

0 
KENCO-KTABLs14TZE 
KTABL 42 

FLTXX 

~142 

INABT 


eAC121,DL 
INABT 
OFF 


K2A+04.AC041 
K2A+14.2AC041 
K2B+04.AC041 
K2B+1,.AC041 
K2C+04.AC041 
K2C4+1,.2AC041 
K3A+14.ACO42 
K4A414.AC043 
K4B4+1,.AC043 
K4C4+14.AC043 
KSA+12.AC044 
KSB4+14.AC044 


77777777 o?7 7777777400 


7912191080 PAGE 


COMMAND 


I5 — NO FILE POINTER 


I? ~—- EXCEEDS FILE LIMITS 


GET IC&!l 


SCAN FOR PROBABLE CAUSE 
NOT FOUND 

HIT,» GET ABORT CODE 
ABORT USER 


BAD MME PARAMETER 


ADJUST SSR 


10802240 
EL8. 
10802250 
EL8. 
EL8. 
EL8. 
10802255 
10S02260 
10$02265 
10S02270 
10SQ2275 
10802280 
10S02285 


—IOSO4GAAM 


TOSO4AAM 


IOSO4AAM 


IOSO4AAM 
IOSC4AAM 
IO0SO4AAM 
IOSC4AAM 
IOSO4AAM 


EL8. 


10802295 


10802297 


IOSO4AAM 
IOSO4AAM 
LOSO4AAM 
IOSO4AAN 
IOSO4AAM 


IOSC4AAM 


TOSOQ4AAM 
IOSO4AAM 
IOSO4AAM 
ICSO4AAM 
IOSO4AAM 
IOSO4AAM 
IOSO4AAM 
IOSO4AAM 
10802300 


10S02305 


Fa 


1245T C2 


12-27-79 


005462 100005 
005463 200000 
005464 740000 
005465 005473 
005466 000115 
005467 400000 
005470 005373 
005471 000116 
CO5472 005373 
005473 9000100 
005474 200001 
005475 9000000 
005476 200000 
005477 005346 
005500 400000 
005501 005347 


09.357 


005462 
2201 14 Q000 
2361 10 900 
3160 03 000 
6000 00 010 
2360 Q7 000 
3010 03 000 
6000 00- 010 
2360 Q7 900 
7100 00 010 


005473 
2350 07 9000 
0551 12 9000 
2350 03 000 
3010 03 000 
6000 00 010 
2350 03 O00 
7100 00. 010 


H6600J 


4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 


72002 


EXIT-7 FROM EP#2 


+ + &  & HH 


PERMS 


NULLF 


1/0 SUPERVISOR 


791219 1080 PAGE 1 


PERMISSION NOT GIVEN FOR PERM FILE 


ODR2 — P.PAT 


1/0 ENTRY ADDRESS ODR1 =~ P.I0Q 


GET PAT POINTER OFFSET 
GET PAT POINTER 

ANY PERMISSIONS 

NO» THIS IS NULL FILE 
PREPARE REASCN CODE 
TEST READ FLAG 

NO WRITE PERMISSION 
WAS READ 


REGISTERS 
X1 = FERMISSION FLAG 
BIT O=1 IF READ 
BIT 1=1 IF WRITE 
X2 = PAT BODY OFFSET 
X4 = 
NULL 
LDXO »oWEPEPs4 oP. 108 
LDQ O-0-P.PAT 
CANQ =0740C00 »DU 
TZE NULLF 
LDQ eACI1S40L 
CANX1 oFBTO,0U 
TZE INABQ 
LDQ eACI1TESDL 
TRA INABQ 


NULL FILE NO DATA TRANSFER 


NULL 

LDA 64/0L 

ASA Te2eP.PAT 
LDA O07 DU 

CANX1 oF WPRIRSZDU 
TZE NULRD 

LDA =04CO0CO0,DU 
TRA NULWT 


NO READ PERMISSION 


1 MILLI SEC PER CONNECT 

FOR EACH NULL ACCESS 

ZERO STATUS WORD FOR RETUN 

WAS WRITE REQUESTED 

NO» THIS WAS READs RETURN LOGICAL EOF 
THIS WAS WRITEs RETURN READY 


15 


EL8. 
ELS. 


EL8. 
EL8. 
EL8. 


1245T 02 12-27-79 09.357 H6600J7,002 1/0 SUPERVISOR 7912191080 PAGE 116 


CAC SL I / 0 PROCESS OR 


4464 x 
4465 x EP35 CALLIC 
4466 * ENTERED VIA A PMME CALLIO. 
4467 * 
4468 * EP36 SCALIO 
4469 ENTERED VIA A .NINOS. 
4470 * 

| 4471 * EP51 NWCAIO 

4472 * ENTERED VIA A .AINOS 

: 4473 * PAGE UNWIRED CALLIO 

| 4474 * 

: 4475 * DESCRIPTORS. 

: 4476 * ODR1 = COMMAND BLOCK 

| 4477 * ODR2 = FIRST DATA REGION 
4478 * ODR3 = SECOND DATA REGION 
4479 * ODR4 = CCURTESY CALL ENTRY 
4480 * 
4481 * WHEN VIA PMME, ALL DESCRIPTOR IS IN PARAMETER STACK 
4482 * 
4483 * COMMAND BLOCK FORM 

005502 4484 10CB4 LIST | 


x ke ke ee C OM MAN ODO Btoc K 1oc B4& * * * * 


KEY PARAMATER/DESCRIPTION NOTE/CODE( 8) 
| 
FILE= INPUT /OUTPUT FILE DEFINITION 
1 CF Cr XX) 
t FILE CODE 
{ (MSCODEs XX) 
MESSAGE CODE ~IFCNS=1 
CDVNANEs XXX) 
| DEVICE NAME « IFDNM=1 
: PAT 
7 PAT POINTER oIlFPAT=1 
SCT 
SCT ADDRESS olFSCT=1 
OP= INPUT /OUTPUT OPERATION 
R READ 1 
W WRITE 2 
RQS REQUEST STATUS 4 
RSS RESET STATUS 5 
RE W REWIND 6 
FSR FORWARD SPACE RECCRD 7 
BSR BACK SPACE RECORD 10 


1245T 02 12-27-79 09.357 H6600J37.002 1/0 SUPERVISOR 7912191080 PAGE 


CALL I / 0 PR O 


C€$ $ OR 


MODE= AUXILIARY 1/0 OPERATION FOR LOGICAL 
ED EDIT MODE e IWCMD 
BIT10=1 
B BINARY MODE 1 
D BCD MODE 2 
A ASCII MODE 3 
E EBCCIC MODE 4 
Se $2000 TAPE 5 
9C 9 CHANNEL TAPE 6 
CMD= INPUT/OUTPUT CODE SPECIFIED 12 OCTAL DIGITS 
2 ITFPCD=1 
DC W= DATA CONTROL WORD 
FORM DCW= CZNODCWsADDRESS1 »ADDRE SS 2) 
ANCDCh NO DCW SPECIFIED o IF DCW=1 
IF SPECIFIEDs FOLLOWING ADDRESS 
SPECIFICATION INDICATED ADDRESS 
OFFSET OF DATA BUFFER, 
ADDRESS1 DCW ADDRESS FOR FIRST CCMMAND .IFDD1=1 
ADDRESS2 DCW ADDRESS FOR SECOND COMMAND. IFDD2=1 
GPR= CEPR OVERRIDE OPTION 
ALL OVERRIDE ALL ERROR CONDITION 1 
LRT DATA ALERT OVERRIDE 2 
U 3 
NOISE MT NOISE ERROR 4 
SALL DEVICE ERROR OVERRIDE 5 
CODE CODE ERROR 6 
CPLP CP-LP ERROR 20 
SEEK= SEEK ADDRESS FCR RANDOM FILE 
X SEEK ADDRESS (DECIMAL) 
2ABS ABSCLUTE SEEK ADDRESS oI FABS=1 
FORM SEEK=C(N~/ABS) 
RECORD= RECORD COUNT OF SPACE OR MULTI“-RECORD. COMMAND 
XX RECORD COUNT 1-64 DECIMAL 
SYNCS SYNCRONIZE CONDITION 
RELC RELINQUISH CONTROL oT FRLC=1 
ROAD ROAD BLOCK 2 IT FROD=1 
LINK= I/O ENTRY QUEUING 
F LINK FIRST oT FLKF=1 
Ss LINK SPECIAL (FIRST) o IFLKS=1 
TYPE= 1/0 REQUEST TYPE CUSER) 
SYOT SYSCUT (.MSYOT) 2 lFSYT=1 


117 


q 


1245T 02 


Le~2T= 79 
005502 005426 
005503 600221 
005504 001764 
005505 001761 
005506 200000 
005507 9000010 
005510 000160 
005511 000140 
005512 000002 
005513 000001 
005514 001767 
005515 500000 
005516 600005 
005517 005534 
005520 9000000 
005521 300001 
005522 400000 
005523 005534 
005524 012534 
005525 900000 
005526 005541 


09.357 


oococo 
000005 
o000c3 


0055C2 


6304 00 
4505 00 
4704 07 
4704 07 
6230 00 
7251 Q0 
3650 03 
1050 03 
6020 04 
2630 03 
4754 07 
6735 00 
7201 00 
6050 00 
6230 00 
2351 00 
3150 07 
6000 00 
7000 Q0 
6240 14 
6010 00 
005527 


H6600J 7.002 


4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 


CALL 


* 

* 
POPS 
P1.PS 
P.10CB 


PMMIOS 


FNQO 


1/0 


I / 


SET 
SET 
SET 


NULL 


EPPR 
STP 
LOP 
LOP 
EAX3 
LXL5 
ANXS5 
CMPXS 
TNC 
ORX3 
LDP 
LDD 
LXLO 
TPL 
EAX3 
LDA 
CANA 
TZE 
TSXO 
EAX4 
T™NZ 
« CALLX 


0 


S UP ERV IS 
PROCES § 


GEPR 
T&D 


OPTION= ANY OPT 
FORM OPT 
SPEC 
CC ALL 
SYSIO 
L2 TYPE 
AX PTW 
NO ABT 


Wud 


PO,FLTIO 

POs eSVFLTseP.SS 
POs.SSReOL 
POs.CTYP,/DL 
a«FFMOD 
oWISRoe POC 
=0160,DU 
6*164 DU 

201 

eFBT17eDU 
P1T.LPSo.PSRe DL 
P.ICCB-O+-P1.PS 
»SATT Ree P2SSA 
NQ4 | 

0 | 
»IWCBTsesP.10CB 
el FIOEsDL 

NQ1 

QUEUS 

004 . 

FNQ171 
eMDISP.46N 


OR 7912191080 PAGE 
CR 
GEPR (.MGEPR) ~LFGPR=1 
T AND D oIFTAD=1 
ION 


ION=COPTION1 s OPTION2 sae 020) 
WAIT SPECIAL INTERRUPT OCCURED. IFSPC=1 


COURTESY CALL ol FOCC=1 
SYSTEM I/0 ENTRY REQUIRED oI FIOE=1 
L2 SYSTEM CONSOLE 1/0 olFLeT=1 
AUXILIARY PTWCDCW) USED «ITF AUX=1 
NOT ABORT 2 IFNAB=1 
PARAMETER STACK ODR TYPE#=0 
PARAMETER STACK ODR TYPE=1 


COMMAND BLOCK ODR 


CALLI O 


A SET VICARIOUS FLAG 


TEST MODE 

PREP X3 

GET ISR WORD O 
ISOLATE WSR# 
IS IT WSR 6/7 
NO 

YESs SET FLAG 


GET COMMAND BLOCK DESCRIPTOR 
GET PROCESS ATTRIBUTES. 
NON-PRIVITY 

YES» SET FLAG 


IT IT A SYSTEM ENTRY 
NOs NORMAL 

GET SYSTEM ENTRY 

DID WE GET IT 

YES 

NOs WAIT 


118 


10804915 
10804920 


CALL 7610 
ITP. 1106 
ITP.11106 
ITP.1120 
ANON1070 
ANON1080 


EL8. 
EL8. 
CALL 7635 
CALL 7640 


CALL 7645 


CALL7650 
CALL 7655 
CALL 7660 


CALL 7665 


CALL 7670 


: \ 


@ @ 
® ® 
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' @ ®@ 
: CALL I/O PROCESSOR 
1 06 INHIB SAVE,SON @ 
| 005527 ICLIMB SD.SVXer .MDISP*644+4,EAX0 
005527 005704713400 . O00 VFD 18/.MDISP*#6444709/71341/141/001/006/M. 
@ 005530 000000606122 000 VFD 1/09/04 E10 1S No1/0002/002/0012/8D.SVX @ 
INHIB RESTORE 
005531 005524 7100 00 0170 4520 TRA FNQO & TRY AGAIN CALL7675 
eo 4521 * CALL7680 ® 
005532 4522 FNQ1 oCALLX .MDISFL4.N WAIT A WHILE CALL 7685 
INHIB SAVEsCON 
@ 005532 ICLIMB SD.sSVXee .MDISP*6444,EAX0 @ 
005532 005704713400 000 VFD 18/4MDISP*6444509/71341/101/001/076/M. 
005533 000000606122 000 VFD 1/09/06 8/0 01 /.N01/.002/042/0012/80.SVX 
@ . INHIB RESTORE & 
005534 012477 7000 00 010 4523 N@t ETSXO QUEUE GET AN I/O ENTRY CALL7690 
005535 000000 6240 14 O00 4524 EAX4 0,4 DID WE GET ONE CALL 7695 
iz 005536 005532 6000 00 010 4525 TZE FNQ1 NO CALL7700 } 
005537 000001 3030 03 O00 4526 CANX3 .FBT17,DU IS 1/0 USER INITIATED ITP.1160 
| 005540 005542 6010 00 010 4527 TNZ FNQ11+1 YES, FORCE SAVE PERMISSION -1TP.1170 
1; @ 005541 4528 FNQ117 NULL @ 
005541 001761 4714 07 O00 4529 LOP P.I10Q+.CTYP/DL CHANGE TYPE TO 0 
005542 001767 4754 07 O00 4530 LOP P1T.PS+.PSR-OL OTHER IN PARAMETER STACK 
& 005543 300001 2351 00 O00 4531 LDA ~IWCBT»-F.10CB TEST CONTROL BIT e] 
005544 900002 6200 00 O00 4532 EAX0 2 PARAMETER ADDRESS. 
7 005545 100000 3150 03 9000 4533 CANA oT FDD1,D0U IS PRESENT FIRST DATA REGION 
1 ®@ 005546 005552 6000 00 O10 4534 TZE SNDDD NO & 
| 005547 500000 6705 10 O00 4535 LDD PO-0e0-P1.PS GET DESCRIPTOR 
005550 100016 0505 14 O00 4536 STD POs WEDRIZ4-P.10Q SAVE IN ENTRY 
@ 005551 000002 6200 10 000 4537 EAXO 2-0 BUMP UP PSR & 
| 4538 * 
} 005552 4539 SNDDD NULL 
e 005552 040000 3150 03 O00 4540 CANA «1 FOD2sDU IS PRESENT SECOND DATA REGION @ 
| 005553 005557 6000 00 010 4541 TZE CCDD NO 
| 005554 500000 6705 10 O00 4542 LDD PO.0-C+P1.PS GET DESCRIPTOR 
1 @ 005555 100020 0505 14 O00 4543 STD POssWEDRFs4-/P.10Q SAVE IN ENTRY @ 
005556 900002 6200 10 O00 4544 EAXO 200 BUMP UP PSR 
4545 * 
i | D055 37-.. 4546 CCOD NULL @ 
CO5557 001761 4714 07 O00 4547 LDP P.TOQr.CTYP/DL SET 10Q T=0 ITP.1200 
| 005560 100014 0535 14 000 4548 STD P.10CB-.WEICB44,P. 108 SAVE COMMAND BLOCK DESCR ITP. 1210 
2) 005561 9020000 3150 03 000 4549 CANA eI FDDC,DU IS PRESENT COURTESY CALL | @ 
005562 005565 6000 00 O10 4550 TZE DEND ITP. 1140 | 
005563 500000 6705 10 O00 4551 LDD PO»0-Ce-P1.PS GET DESCRIPTCR 
@ 005564 100022 0505 14 000 4552 STD POs eWEIOE,4,P.10Q SAVE IN ENTRY @ 
005565 006204 4704 07 O00 4553 DEND LoP PO-SD.PSHsDL GET PUSH DESCRIPTOR ITP.1230 
005566 100014 7251 14 000 4554 LXL5 »WEICEs4-P,10@ GET CMD BLK DESCR 29FWC200 
@ 005567 000160 3650 03 000 4555 ANX5 =0160,DU GET wSR# 29FWC210 @ 
005570 000160 1050 03 000 4556 CMPXS 7*16,DU IS wSR# 7 1TP.1240 
005571 005602 6000 00 010 4557 TZE DD? YES ITP.1250 
Ld] 005572 000040 1050 03 O00 4558 CMPX5 2*16DU NO» IS. IT O71 25FwWC150 ] 
005573 005653 6020 00 010 4559 TNC TOCALL YES, FORGET TEST 25FWC160 
® 
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CALL I / 0 PROCES § CR 


005574 100013 4451 14 000 4560 SXL5 eWEIOS44,P.100 NO/SET ISR WSR# ITP.1260 
005575 005614 2370 00 010 4561 LDAQ DPUSH GET PUSH SKELETON ITP.1270 
005576 100013 2751 14 O000 4562 ORA »WEIOSs4 P2108 FILL IN WSRA ITP.21280 
005577 100024 7571 14 000 4563 STAQ »WEENDs4-P. 10 STCRE DESCRIPTOR TO PUSH 1TP.1290 
C05600 006013 4704 07 O00 4564 LDP POsSD.1I0Gs0L T=1 ITP. 1300 
005601 000024 6705 14 O00 4565 LOD PO, WEEND 4 oPO LOAD PUSH FOR THIS WSR# 25Fw0180 
005602 100015 2351 14 O00 4566 DD7 LDA oWEIC6+1,44P.100 IO0CB BASE ITP. 1320 
005603 000012 0350 07 O00 4567 ADLA oIWST2*2,DL USE STATUS WORDS ITP..1330 
005604 000016 6705 00 O00 4568 LOD PO»PH.PTCs-PO PTW SEGMENT ITP.1340 
005605 000014 7710 00 O00 4569 ARL 12 ITP. 1350 
005606 000000 2351 05 O00 4570 LDA O-ALsPO GET PTW ITP. 1360 
005607 000004 3150 07 O00 4571 CANA oFBT33eDL IS IOM PRESENT BIT SET ITP. 1370 
005670 005653 6010 00 O10 4572 TNZ IOCALL YES» NO SWEAT ITP.1380 
005611 000227 2360 07 O00 4573 LDQ eAC227eDL | K2C —- NON-WIRED CALLIO EL8. 
005612 005373 7100 00 O10 4574 TRA INABQ ABORT CALLER ITP.1400 

| 005613 000000011007. 000 

| 005614 4575 DPUSH EBSS 2 SD.PSH SKELETON ITP.1410 
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005616 

005616 
005616 005426 6304 00 010 
005617 600221 4505 00 ooo 
005620 000000 6230 00 000 
005621 100001 2351 00 000 
005622 400000 3150 07 000 
005623 005632 6000 00 010 
005624 012534 7000 00 010 
005625 000000 6240 14 oa00 
005626 905635 6010 00 010 

005627 

005627 
005627 905704713400 000 
005630 000000606122 000 
005631 005621 7100 00 010 
005632 012477 7000 00 010 
005633 00000 6240 14 000 
005634 005627 6000 00 010 

| 005635 
005635 100024 6705 14 O00 
005636 001761 4714 O07 O00 
005637 100024 2371 14 O00 
005640 100014 7571 14 o00 
005641 000001 2351 00 o00 
005642 100000 3150 03 000 
005643 005645 6000 00 010 
005644 100016 0525 14 000 
005645 940000 3150 03 O00 
005646 005650 6000 00 010 
C05647 100020 0535 14 000 
005650 020000 3150 03 o00 
005651 005653 6000 00 010 
005652 100022 0545 14 O00 


H6600J37.002 


4577 
4578 
4579 
4580 
4581 
4582 
4583 
4584 
4585 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
4593 
4594 


4595 
4596 
4597 
4598 
4599 
4600 
4601 
4602 
4603 
4604 
4605 
4 606 
4607 
4608 
4609 
4610 
4611 
4612 
4613 
4614 
4615 
4616 


CAEL 


SCALIO 


NWCATIO 


SCALL 


SYSEN2 


* 
FNQ2 


FNQ21 


* 


1/0 


a 


NULL 


NULL 


EPPR 
STP 
EAX3 


LDA 
CANA 
TZE 
TSXO 
EAX4 
TNZ 
INHIB 
ICLIMS 
VFD 
VFD 
INHIB 
TRA 


ETSXO 


EAX4 
TZE 


NULL 
LOD 
LDP 
LDAQ 
STAQ 
LDA 
CANA 
TZE 
STD 
CANA 


TZE 


STD 
CANA 
TZE 
STD 
TRA 


0 


S UP ERVIS OR 7912191080 


PROCES S$ CR 


VIA e A INO S 


POs FLTIO 
PO»r.SVFL Toe P. SSA 
0 


eI WCBTs,F1 


aI FIOEsDL NEED SYSTEM ENTRY 
FNQ2 NO» NORMAL 

QUEUS GET SYSTEM 1/0 ENTRY 
04 DID WE GET IT 

FNQ21 YES 

oMDISF4 oN NOs WAIT & 

SAVEsON 


SDeSVXeae eMDISP*6444,EAX0 
IB MDISP*64446,09/71341/1011/001/006/M. 
1/09/04 8/0 0 1 /aNo 11200 2/002/0012/5SD.SVX 


RESTORE 
SCALL RETRY 

QUEUE GET AN I/O ENTRY. 
074 DID WE GET ONE 
SYSEN2 NO 


YES 


POs eWEENDs44P.100 
P.I0Q,.CTYPsDL 
eWEEND 24 oP. I0Q 
eWEICEs4 oP. 100 
~IWCBTssPO0 


PAGE 


GET COMMAND BLOCK DESCRIPTOR 
CHANGE TYPE TO ZERO (P.10Q) 


MOVE COMMAND BLOCK DESCRIPTOR 
TEST OTHER DESCRIPTOR 


YES» SAVE SECOND DATA REGION DESC. 


elFDDIZDU IS PRESENT FIRST DATA REGION 

k+2 NO 

P2reWEDRIA4,P.100 YES» SAVE FIRST DATA REGION DESC. 
el FOD2s0U IS PRESENT SECOND DATA REGION 

+2 NO 

P3, .WEDRFs4-P.100 

eo lL FODCsDU . IS PRESENT CCURTESY CALL 

x+2 NO 

P&eeWEIOE,4,-P.108 YESs SAVE ENTRY DESCRIPTOR 

IOCALL 


121 


CALL7765 


ITOSOGAAM 
10804935 


CALL 7775 
CALL 7780 
CALL 7785 
CALL7790 
CALL7795 


CALL 7800 
CALL 7805 
CALL 7810 
CALL 7815 
CALL 7820 
CALL 7825 


CALL &545 


®@®eeeeeeeeee#eee0ee0e?00806e0e0 8080 @ 
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CALL I / 0 PROCES $ OR 
4618 C ALL IO Cc OMMCN ROUTINE 
4619 
4620 X3 oFEPRV € FFMODs.FFWIR ) 
4621 X5 RETURN ADDRESS 
4622 
4623 * 
005653 4624 IOCALL NULL 
005653 006013 4704 07 O00 4625 LDP POsSD.1IOGsDL 10Q@ wW/T=1 CALL &340 
005654 100024 4501 14 000 4626 STZ »WEEND»4,P,10@ CLEAR 
005655 100025 4501 14 O00 4627 $TZ »WEENC+144,P, 108 : 
005656 000014 6735 14 O00 4628 LDD P,1IO0CB,,WEICB»4,P0 GET CMD BLK DESCR CALL 8350 
005657 000000 6350 13 O00 4629 EAA 23 
005660 o000022 7710 00 O00 4630 ARL 18 
005661 100001 2551 14 O00 4631 ORSA oWEPRVs4 oP. 108 SET CURRENT .FEPRV 
4632 INHIB ON 10801930 
005662 300006 2353 00 O00 4633 LDA 6erP.I0CB TEST T=0-2 & SIZE=7 10801940 
005663 300006 7553 00 O00 4634 STA 6eeP.,I10CE TEST WRITE PERMIT 10801950 
4635 INHIB OFF ; -10801960 
005664 300001 2361 00 O00 4636 LDQ ~IWCBTs/P.10CB GET CTL BITS 10801970 
005665 013446 3160 00 010 4637 CANQ CTLMSK 10801980 
005666 013442 6010 00 010 4638 TNZ IBCNF. CTL BIT ERROR 10801990 
005667 000001 3030 03 O00 4639 CANX3 oFBT17 400 IS 1/0 TRUSTWORTHY ANON17100 
005670 000003 6000 04 000 4640 TZE 31C YES ANON1110 
005671 777737 3760 03 O00 4641 ANQ 20777737 -DU NOs DROP CONS + LOWER BITS 10802020 
005672 013431 0110 00 010 4642 CBKMON NOP IOCBCK (TSX1 IF DEBUG OPTION) 10802030 
005673 100013 7561 14 O00 4643 STQ @WETOS/4,P.100 SAVE CTL BITS 10802040 
005674 020000 3160 03 O00 4644 CANQ aT FODCsDU TEST» COURTESY CALL 
005675 005707 6000 00 010 4645 TZE NCCM NO COURTESY CALL 
005676 200000 3030 03 O00 4646 CANX3 oF FMOD,DU TEST MASTER 10802140 
005677 005703 6C10 00 010 4647 TNZ NCCM1 NO» FROM SLAVE 
005700 000004 2350 07 O00 4648 LDA oFCCMM,DL SET FLAG CC MASTER 
005701 100004 2551 14 000 4649 ORSA oWESCTs4 oP. 10Q IN ENTRY 
005702 005707 7100 00 010 4650 TRA NC CM 10$02160 
4651 * 10802170 
005703 100022 7201 14 O00 4652 NCCM1 LXLO oWEIOEs4 PL 100 GET DESCRIPTOR 10802180 
005704 000017 3600 03 O00 4653 ANXO =017,0U TYPE CODE 10802190 
005705 000013 1000 03 O00 4654 CMPXO 11,DU IS TYPE 11 
005706 005732 6C10 00 010 4655 TNZ EDESCE ILLEGAL ENTRY DESC. TYPE 
4656 * 
0057C7 4657 NCCM NULL 
C05707 014052 3160 00 010 4658 CANQ =0 200000000020 TEST PHYSICAL COMMAND CALL 7835 
005710 005715 6000 00 010 4659 TZE NPCD NOs LOGICAL COMPANE 
4660 * 
005711 4661 PCD NULL 
005711 300007 2351 00 O00 4662 LDA eIWICMs/P.10CB 
005712 100006 7551 14 O00 4663 STA eWEICMs4-P, 108 MOVE FIRST CCMMAND TO ENTRY 
005713 300010 2351 00 000 4664 LDA oIWFCMs,P.10CB 
005714 100011 7551 14 O00 4665 STA aWEFCMs4 oP. 10Q MOVE SECOND COMMAND TO ENTRY 
. 4666 * 
005715 4667 NPCD NULL 


eevsv5usveeeeeeeee eee ehlcOhUlUlcmhUlcCCUlcOlUro 
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lever 79 
005715 300002 
005716 100007 
005717 000007 
005720 100000 
005721 005724 
005722 100017 
005723 005730 
005724 040000 
005725 005734 
C05726 100021 
005727 005734 
005730 000210 
005731 005373 
005732 9000211 
005733 005373 
005734 300003 
005735 000006 
005736 9000077 
005737 905750 
005740 000007 
005741 900002 
005742 900007 
005743 004752 
005744 100005 
005745 100004 
005746 004752 
005747 100004 
005750 9000000 
005751 004000 
005752 005754 
005753 020000 
005754 001000 
005755 005757 
005756 010000 
005757 000400 
C0S5760 005762 
005761 004000 
005762 000010 
CO05763 905765 
005764 000400 
005765 000200 
005766 006067 


09.357 


2351 00 900 
7551 14 000 
2350 07 000 
3160 03 000 
6000 00 010 
3151 14 000 
6010 00 010 


005724 
3160 03 000 
6000 00 010 
3157 14 000 
6000 00 010 

005730. 


2360 07 000 


7100 00 010 
005722 
2360 07 000 
7100 00 010 


0057234 
2351 00 000 
7710 00 000 
3750 O07 O00 
6000 90 010 
1150 07 9000 
6020 04 000 
2350 07 0900 
7230 05 O10 
4431 14 000 
7231 14 000 
2630 05 O10 
4431 14 000 


005750 
6230 00 Q00 
3160 03 000 
6000 00 010 
6230 13 000 
3160 03 000 
6000 00 010 
6230 13 000 
3160 07 000 
6000 00 9010 
6230 13 000 
3160 07 000 
6000 00 010 
6230 13 000 
3160 03 000 
6000 00 010 
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CALL 


DCCK1 


BASER 


EDESCE 


SGPBT 


NGPCL 


1/0 


I 


LDA 


STA 


LDA 
CANQ 
TZE 
CANA 
TNZ 


NULL 
CANQ 
TZE 
CANA 
TZE 
NULL 
LDQ 


TRA 


NULL 
LDQ 
TRA 


NULL 
LDA 
ARL 
ANA 
TZE 
CMPA 
TNC 
LDA 
LXL3 
SXL3 
LXL3 
ORX3 
SXL3 


NULL - 


EAX3 
CANQ 
TZE 


EAX3 > 


CANQ 


—TZE 


EAX3 
CANQ 
TZE 

EAX3 
CANQ 


TZE 


EAX3 
CANQ 
TZE 


S U PERV IS OR 


PROCE S$ $ OR 


~IWDATs/FP.10CB 
eWEOFF,44P.108 
=07eD0L 

el FOD1,0U 

DcCK1 

eWEDR 141 +4eP.100 
BASER 


eT FOD2,0U 

SGPBT 

aWEDRFE+1 o4,P. 100 
SGPBT 


eAC2104DdL 
INABQ 


INABQ 


al WGR Ree F.IOCB 
6 


2077s DL 


NGPCL 

7 OL 

2/1 

7 DL 

GPOPT AL 
»WEPEFs4,P,10Q 
eWESCT#4 oP. 108 
GPOPT AL 

WESC Ts4-P.10Q 


0 

eT FRLCADU 
x+2 
aFFRLC23 
ol FROCSDL 
x+2 

oF FRODs3 
eolLFAUXs DL 
x+2 

oF FAUXs3 
oT FRSGeDL 
k+2 

oF FOMN,3 
al FOCWADU 
ISOCW 


7912191080 


SET DCW ADDRESS 


MASK DATA EVEN DESC. BASE 
TEST DCW DATA ADDRESS 


TEST DESC. BASE 
ERROR BASE 


TEST FOR SECOND DATA REGION 


TEST SECOND BDESC 
OK 


K9 —~ DESCRIPTOR BASE ODD 
ABCRT 


K1C ~ DESCRIPTOR TYPE ERROR 
ABORT 


GET GEPR OPTION CODE 


GEPR OVERRIDE OPTICN 
ZERO» NO OVERRIDE 

IS CODE 1~6 

YES 

NOs FORCE 7 

GET OPTION CODE 

PUT IN I/O ENTRY 


SET GEPR OPTION 
SET GEPR OPTION 


BUILD .FEPRY 
IS RELINQUISH 
NO 

SET RELINQUISH 
IS ROADBLOCK 


NO 

SET ROADBLOCK 
IS AUX=-PTW 

NO 


SET AUX-PTW 


IS DMM REQUEST 

NO 

SET DMM SPECIAL REQUEST 
IS “ZNODCW 


NO 


123 


CALL7855 


EL8. 


EL8. 


10802315 


-10$02320 


10802325 
10802330 
10802335 
EL8. 
EL8. 
10S02345 
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CALL I £0 PROCES S OR 
4718 * 
4719 INHIB ON DONT RE-ENTRANT 
005767 4720 RGDCW NULL 
005767 006204 4706 07 O00 4721 LOP POs SDePSHsDL %ZNODCW PRESENT 
005770 000034 6707 00 O00 4722 LOD PO»ePH.DC hse PO BUILD DCW IN DCW SEGMENT 
005771 100000 3162 03 O00 4723 CANQ el FDOD14D0U IS PRESENT FIRST DATA REGION 
005772 006124 6002 00 010 4724 TZE ISspocw1 NO» IGNORE 
005773 777777 #2352 03 Q00 4725 RGDCW2 LDA -1,DU 10$01350 
005774 000144 6222 00 O00 4726 EAX2 2DWIOS 10801360 
005775 050300 5202 01 000 4727 RPT oDOWSYT—-.OWIOS4+1,15TZE SCAN FOR A FREE OCW 10801370 
(05776 O00000 1153 12 000 4728 CMPA Or2ePC 10801380 
005777 006054 6012 00 010 4729 TNZ NOCWF 1 NONE FOUND 10801390 
006000 777777 6212 12 O00 4730 EAX1 -192 INDEX 10801400 
006001 100007 2353 14 Q00 4731 LDA eWEOFFs4 oP. 100 10801410 
C06002 000000 7553 11 O00 4732 STA 0-171-PC OFFSET 10$01420 
006003 100024 7553 14 Q00 4733 STA eWEENC 44 oP. 10Q FOR TEST 10801440 
C06004 100016 2223 14 O00 4734 LDX2 »WEDRI44 +P. 108 BOUND 10801450 
006005 000001 6222 12 000 4735 EAX2 102 +1 10801455 
006006 100024 1223 14 QO00 4736 SBLX2 »WEEND,4.P,10Q LESS OFFSET 10801460 
006007 006045 6022 90 010 4737 TNC DCWER1 BAD SHOW 10801470 
C06010 007777 3622 03 O00 4738 ANX2 =07777eDU MOD 4096 10801480 
006011 000000 4423 11 G00 4739 SXL2 O-1-PC SET WORD COUNT 10801490 
006012 100007 7413 14 O00 4740 STX1 »WEOFFs4-P. 100 10801500 
4741 * 10801510 
006013 040000 3162 03 000 4742 CANQ ol FOD2,-DU TEST 2ND REGION 10801520 
006014 006041 6002 00 010 4743 TZE DCWEN NO 10801530 
4744 x 10801550 
006015 000001 6222 11 O00 4745 EAX2 1,1 10801560 
006016 777777 #2352 03 O00 4746 LDA -1,DU 10801570 
006017 776000 3002 03 O00 4747 CANXO =0776000,DU IS TALLY RUNCUT 29FW1310 
C06020 006056 6002 00 010 4748 TZE NDCWF2 YES» NO OCW'S LEFT 29FW1320 
006021 O00000 5202 01 000 4749 RGDCW3 RPTX 0-1 SCAN FOR A SECOND OCW 29FW1330 
006022 000000 1153 12 9000 4750 CMPA O-2-PC 10$01590 
006023 006056 6012 00 010 4751 TNZ NOCWF2 NONE 10801600 
006024 777777 6222 12 O00 4752 EAX2 -142 10801610 
006025 100007 7203 14 O00 4753 LXLO aWEOFF.4 oP, 108 10801620 
C06026 O00000 7403 12 N00 4754 STxO O-2ePC0 OFFSET 10S$01630 
C06027 100024 7403 14 O00 4755 STXO eWEEND +4 oP. 108 FOR TEST 108017650 
006030 100020 2203 14 O00 4756 LDXxO »WEDRFs4-P.100 BOUND 10801660 
006031 000001 6202 10 000 4757 EAXO 10 +1 10801665 
006032 100024 1203 14 000 4758 SBLXO eWEENDs4 oP. 108 LESS BASE 10801670 
006033 006047 6022 00 010 4759 TAC DCWER ERROR 10801680 
006034 007777 3602 03 O00 4760 ANXO =07777/DU MOD 4096 10801690 
006035 000000 4403 12 900 4761 SXLO Ovr2erPC | SET WORD COUNT 10$01700 
006036 100007 4423 14 000 4762 SXL2 oWEOFFs4,P.10Q & OFFSET 10801710 
006037 001000 2352 07 000 4763 LDA oF FDD2,DL SET 2ND ZNODCW 'EL7. 
C06040 100001 2553 14 O00 4764 ORSA eWEPRV+4 oP, 108 IN USE EL7. 
4765 INHIB OFF 10801720 
4766 * 10801730 
006041 Q00000 2351 11 000 4767 DCWEN LDA O-1-P0 FIRST DCW -10$01740 
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006042 
0060 43 
006044 


006045 
006046 
006047 
006050 
006051 


006052 
006053 


006054 
006055 
006056 
006057 
006060 
0060 61 


006062 
006063 


006064 


006065 
006066 


006067 
006070 
006071 
006072 
006073 
006074 
006075 
006076 
006077 
006100 
006101 
006102 
006103 
006104 


12-27-79 


09.357 


100012 7551 14 000 
040000 6230 13 O00 
006124 7100 00 010 


777777 6352 00 000 
006051 7102 00 010 
777777 6352 00 000 
000000 7553 12 0900 
000000 7553 11 000 


000212 2360 07 9000 
005373 7100 00 010 


006062 7020 00 9010 
005773 7100 00 9010 
006062 7020 00 9010 
050100 6200 00 000 
000144 6220 00 000 


006021 7100 00 010 


O06062 
005704713400 000 
000000606122 000 


000000 7100 12 000 


000220 2360 07 000 
005373 7100 00 010 


006067 
100016 2351 14 000 
100020 2751 14 000 
000015 3150 07 000 
006065 6€10 00 O1C 
000000 6350 13 000 
000022 7710 00 000 
100001 2551 14 900 
100013 7561 14 O00 
100000 3160 03 000 
006112 6000 00 9010 
100016 2201 14 000 
000001 0200 03 9000 
100024 7401 14 000 
100007 2211 14 090 


4768 
4769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
4781 
4782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 


H6600J7.002 


CALL 


* 


DCWERT 


DCWER 


* 
* 
NOCWF1 


NOCWF2 


NOCWF 


1/0 
I / 


STA 
EAX3 
TRA 


INHIB 
EAA 
TRA 
EAA 
STA 
STA 
INHIB 
LDQ 
TRA 


TSX2 
TRA 
TSX2 
EAXQ 
EAX2 
TRA 
NULL 
eARELC 
« CALLX 
INHIB 
ICLIMB 
VFD 
VFD 
INHIB 
TRA 


LDQ 
TRA 


ZNODCW 


NULL 
LDA 
ORA 
CANA 
TNZ 
EAA 
ARL 
ORSA 
ST@ 
CANQ 
TLE 
LOXO 
ADLXO 
STXO 
LOX1 


S UP ERVIS OR 7912191080 PAGE 


PROCES SOR 
aWEFDC+4 oP. 108 


oF FDChs3 
Isocwi 


SET FIRST OCW IMAGE 
SET “ZNODCW BIT 


ON 

= 
DCWER+2 
-1 
Ore2ePC 
O-171-PC 
OF F 
eAC212,0L K11 ~ ERROR IN ZNOCCW SPEC 
INABQ 


RELEASE DCW 


DCW AREA NOT FOUND 

NDOCWF 

RGDCW2 

NO CWF 
eOWSYT*1C24—. DWI10S *102441024464 
eDOWIOS 

RGOCW3 


RPT W/TZE 


WAIT 
oMDISFe4 oN 
SAVEs*ON 
SD.SVXee eMDISP*6444,EAXO 
1B/.MDISF%*6444,09/713-1/1,1/001/0C26/M, 
T1009 /0 4 B10 01 SaNolleOe2/0e2/0012/8D0.SVX 


RESTORE 
0-2 
eAC22CA0L BAD DESCRIPTCR TYPE 
INABQ ABORT USER 
NOT PRESENT 
oWEDRI44-P.100 DD1 
eWEDRF 4 oP. 108 D2 
=015,0L ARE TYPES 0/2 
ISNG NO. TILT 
03 SET ,»FEPRV IN TO ENTRY 
18 


»WEPRV.4 oP, 10Q 
oWETOS+4,P.10Q 


SET FOR DCWCK 
SAVE CONTROL BIT IMAGE 


eT FOD1T,0U FIRST DATA REGION IS. PRESENT 
NDCP1 NO 

eWEDRI44 «PL 108 

1/D0U 


»WEENDs4-P.108 
»WEOFFs4,P, 100 


SET BOUND TO VALIDATE DCW POINTER 
DCW ADDRESS 


125 


CALL7970 
10801755 
10801760 
10801770 
10801780 
10801790 
10801800 
10$01810 
ELB8. 

CALL 7995 


10S018&30 
10SC1840 
10801850 
29FW1350 


10$0187C | 


10S01880 


10$01900 


EL8. 
EL8. 
EL8. 
EL8. 


EL8. 
EL8. 
£18. 


e @ 
e e 
1245T 02 12-27-79 09.357 H6600J7.002 1/0 SUPERVISOR 7912191080 PAGE 126 
e ® 
CALL I/0 PROCESS OR 

@ 006105 006013 4704 07 000 4812 LOP PO-SD.10G/0L @ 
006106 000016 6705 14 Q00 4813 LDD POs .WEDRI+4-P0 DCW'S SEGMENT 
006107 013155 7020 00 010 4814 TSX2 DCWCK VALIDATION 

e 4815 @ 
006110 100007 7411 14 O00 4816 $TX1 eWEOFFs4 oP. 10Q SET NEW DCW POINTER 
006111 100012 7551 14 000 4817 STA »WEFDC+4 oP. 108 SET FIRST DCW IMAGE 

r 4818 * g 

006112 4819 NDCP1 NULL 

| 006112 040000 3160 03 000 4820 CANQ oT FDD2-DU SECOND DATA REGION PRESENT 

€ (006113 006124 6000 00 010 4821 TZE ISDCW1 NO ! 10805560 & 
006114 100020 2201 14 000 4822 LDXO ~WEDRF»4 oP. 10Q 
006115 000001 0200 03 000 4823 ADLXO 1400 

@ 006116 100024 7401 14 O0C 4824 STXO ~WEENDs44P.10Q SET BOUND TO VALIDATE DCW POINTER e 
006117 100007 7211 14 O00 4825 LXL1 aWEOFFs4 oP. 10Q DCW ADDRESS 
006120 006013 4704 07 O00 4826 LDP PO,SD.10QDL 

@ 006121 000020 6705 14 000 4827 LDD PO. .WEDRFs4ePO0 DCW'S SEGMENT & 
006122 013155 7020 00 010 4828 TSX2 DCWCK VALIDATION 

4829 | X1 = DCW ADDRESS 
@ 006123 100007 4411 14 O00 4830 © SXL1 eWEOFFL4-P.10Q SET NEW DCW ADDRESS. @ 
006124 4831 ISDCW1 NULL 

606124 006204 4724 07 000 4832 LDP P2,SD.PSH/DL PREPARE PUSH 29FW1100 

e 006125 000000 6350 13 000 4833 EAA 03 ] 
006126 000022 7710 00 000 4834 ARL 18 SET ANY BIT 
006127 100001 2551 14 000 4835 ORSA »WEPRVs4 sP. 108 IN .FEPRV 

& 4 836 2 

4837 SET ANY SPECIAL BIT IN .WEPEP/.WESCT 
. 4838 | 

@ 006130 006251 3160 00 010 4839 CANQ SPANY ARE THERE ANY CALL E005 @ 
006131 006240 6000 00 010 4840 TZE NDNM NO CALL8010 
006132 000004 3160 07 000 4841 CANQ ~LFRSA,OL TEST SHARED PAT 29FW1120 

@ 006133 O00002 6000 04 000 4842 TZE 201C NO 29FW1130 ) 
006134 006202 4724 07 000 4843 LoP P2-SD.SSH/DL YES» USED SHARED PUSH . 29FW1140 
006135 020000 3160 07 O00 4844 CANQ aI FGPRADL IS GEPR 1/0 

@ 006136 006141 6000 00 O10 4845 TZE +3 NO e 
006137 002000 2350 07 O00 4846 LDA oF SGPReDL YES SET GEPR*S I/0 BIT 
006140 100005 2551 14 000 4847 ORSA »WEPEFs4 oP. 108 

@ 006141 000000 6350 00 O00 4848 EAA 0 @ 
006142 001000 3160 07 O00 4849 CANQ eT FNAESDL IS DONOT ABORT PRESENT 
006143 006145 6000 00 010 4850 TZE *+2 NO 

@ 006144 000200 2750 07 000 4851 ORA ~FNABT/OL SET BIT &@ 
006145 010000 3160 07 O00 4852 CANQ oT FSYTADL IS SYOT I/0 
(006146 006150 6000 00 010 4853 TZE *+2 NO 

© (06147 000020 2750 07 O00 4854 ORA oFSYOTs/DL SET BIT @ 
006150 004000 3160 07 O00 4855 CANQ eI FTADSDL IS TANDD 1/0 
006151 006153 6000 00 010 4856 TZE +2 NO 

@ 006152 200000 2750 03 O00 4857 ORA «FTAD,DU SET BIT ] 
006153 000040 3160 03 000 4858 CANQ oT FCNS,/DL IS CONSOLE 1/0 
006154 006156 6000 00 010 4859 TZE +2 NO 

© 006155 000400 2750 07 O00 4860 ORA oFMTYIZOL SET BIT & 
006156 100004 2551 14 000 4861 ORSA »WESCT£4 oP. 108 SET ANY BITS IN ENTRY 

e e 

e @ 


1245T C2 


€06157 
C06160 


0061 61 
006162 


006163 
006164 
006165 
C061 66 
006167 


C061 73 
006174 
006175 
006176 
C06177 
006200 
006201 


C06202 
006203 
006204 
006205 
006206 


006211 
006212 


006213 
006214 


006217 


006220 
C062 21 


12-27-79 


09.357 


000040 3160 03 000 
006356 6010 00 O10 


000040 3160 O07 000 
006240 6000 00 010 


200002 6725 00 000 
300000 2351 00 000 
777777 3750 O07 O00 
004154 1150 07 O00 
006222 6000 00 9010 


006170 
600214 7553 00 oO00 
006140 4706 07 000 
000000 2353 00 000 
000006 7712 00 000 
000000 6202 05 O00 
000777 3602 03 o00 
777777 2362 03 9000 

006202 
000000 2353 10 o00 
600214 2113 00 O00 
006213 6002 00 010 
000001 1202 03 ood 
006202 6012 00 9010 


006207 
000213 2362 07 O00 
005373 7102 00 010 


006213 
000000 6212 01 O00 
037774 3612 03 O00 
006215 


006274 7100 00 010 
006220 
006220 
006220 


9005704713400 000 
0000006061 22 000 


4862 
4863 
4864 
4865 
4866 
4867 
4 868 
4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4878 
4879 
4 880 
4881 
4882 
4883 
4884 


- 4885 


4 886 
4887 
4888 
4889 
4890 
4891 
4892 
4893 
4894 
4895 
4 896 
4897 
4898 
4899 
4900 
4901 
4902 
4903 
4904 
4905 
4906 


H6600J7.002 


CALL 


+ + 6 & 


LOOKN1 


FNDY14 


JSTR2 


1/0 


I / 


CANQ 
TNZ 


CANQ 
TZE 


SUPERVISOR 7912191080 PAGE 


PROCES S$ OR 


eT FCNSADU IF CONSOLE I/0 REQUEST 
ITYé YESs GO TO CONSOLE PROCESSOR 
NOs REQUEST 
FC ePATs#SCT -DEVICE~NAME 
oT FONMZDL IS DEVICE NAME REQUEST 
NDNM NO>- 


DEVICE NAME PRESENT 
THE CURRENT SCT IS RETRIVED FROM THE SD.SCN TABLE. 


LOD 
LDA 
ANA 
CMPA 
TZE 
INHIB 
«SHUT 
STA 
LOP 
LDA 
ARL 
EAXO 
ANXO 
LDQ. 
NULL 
LDA 
CMK 
TZE 
SBLXO 
TNZ 


2 OPEN 
LOQ 
TRA 


NULL 
EAX1 
ANX1 
«CPEN 
INHIB 
TRA 


eARELC 
oCALLX 
INHIB 
ICLIMB 
VED 
VFD 


P.PAT »PH.PAT » »P2 
oI WCMDseP.10CB 


-1,D0L GET DEVICE NAME 
=3HCJ*,0L IS FILE J* 
JSTAR YES 

ON 


eCRSC Tae F.CR 
oSTEMP+8 oeP.SSA 
PO/SD.SCN/DL 


SAVE NAME, FOR SEARCH 


OPO 

6 

2 AL GET NAME TABLE SIZE+1 
=0777,DU 

-1,DU 

0,0-PC GET NAME AND SCT ADDRESS 
oSTEMFHB8 oeP.SSA 

FNDY1 FOUND : 
1/DU NOT FOUND, DECREMENT POINTER 
LOOKN1 YET 


»=CRSCToeP.CR NOTHINGs ILLEGAL REQUEST 
oAC213,0L K1i2 ~ DEVICE NAME NOT FOUND 
INABQ ABORT 


2 AU GET SCT ADDRESS 
eFPSCTADU 

»CRSCT+/F.CR 

OFF 

SCTG 


SPECIAL REQUEST FOR JSTAR I/0 


WAIT 
eMDISPs4 oN 
SAVEs CN 
SD.SVXee MDISP*644+4,EAX0 
18/aMDISP*6444,09/713,1/101/021/076/M. 
VIOs9 0 eo B/D op TSN o 1 laDe 2/0e2/0012/8D0.SVX 


127 


29FW1160 


29FWC810 
29FWC820 


EL8. 


29FWC840 
29FWO850 
29FWC860 


1 © 
{ 

' 

. @ 
| 
| ®@ 
| 

| 

5 @ 
| 

: 

i 

: © 
| 

I e 
| 

1] 

} 

| 

{ 

| 

| 

& 
| 
} 

q 

| 

( 

) 

; @ 
| 
& 
| 

: @ 
; © 
ha 
| 
, 
| 

1 © 
! 

: 
: & 
7 
: 

} & 
: 

: @ 
a 


1245T C02 


12-27-79 
006222 000045 
006223 200000 
006224 100000 
C06225 006220 
006226 600006 
006227 014053 
006230 200020 
006231 777777 
006232 000001 
006233 000001 
006234 200024 
006235 900002 
006236 100001 
006237 006264 
006240 300000 
006241 000300 
006242 006253 
006243 200002 
006244 900100 
006245 906256 
006246 000000 
006247 100024 
006250 006274 
006251 000040 
C06252 000100 
006253 300000 
006254 013101 
006255 005416 
006256 200000 
006257 100000 
C06260 006264 
006261 
006262 
006263 006256 
006264 100005 
006265 g000000 


09.357 


6220 00 9000 
2351 12 000 
3150 07 000 
6010 00 010 
2361 00 9000 
3760 00 010 
7561 00 O00 
3760 07 O00 
0760 07 000 
2760 03 9000 
7561 00 000 
2360 07 000 
2561 14 000 
7100 00 010 


7221 00 000 
3160 07 000 
6000 00 010 
6725 00 000 
3160 07 000 
6010 00 010 
6210 12 000 
4501 14 000 
7100 00 010 
035040 000 
000020 000 
2351 00 000 
7070 00 010 
7100 00 010 


006256 
2351 12 000 
3150 07 000 
6000 00 010 

006261 

006261 


006261 


005704713400 000 
0000006061 22 000 


7100 00 010 


006264 
7421 14 000 
6200 01 000 


4907 
4908 
4909 
4510 
4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4943 
4944 


4945 
4946 
4947 
4948 
4949 


H6600J7.002 


CALL 


JSTAR 


NDNM 


NOTBS1 


1/0 


I / 


INHIB 
EAX2 
LDA 
CANA 
TNZ 
LDQ 
ANQ 
STQ 
ANQ 
ADQ 
ORQ 
STQ 
LDG@ 
ORSQ 
TRA 


S UP ERV IS OR 7912191080 


PROCES S$ OR 


RESTORE 

«PGCPT J* PAT PTR 
Or2eP.PAT FILECODE WORD 
oe FBSYFseDL IS FILE BUSY 
JSTR2 YESs WAIT 
eSIST Rao PaSSA NO 
207774377777 J* SCT» LLINK @ 
oPGCP Ass F.PAT 

~1,0L LLINK # 

To DL SECOND LLINK 
1/DU 1 LLINK LONG 
ePGCPAt+4 seP. PAT TO PAT 

oF JSTR*DL SET J* FLAG 
oWEPRVs4 oP. 108 

NOTBS 1 


FC» PATs OR SCT MUST BE PRESENT 


NULL 
LXL2 
CANQ 
TZE 
LDD 
CANQ 
TNZ 
EAX1 
STZ 
TRA 
ZERO 
ZERO 
LDA 
TSX1 
TRA 


NULL 
LDA 
CANA 
TZE 
eARELC 
= CALLX 
INHIB 
ICLIMB 
VFD 
VFD 
INHIB 


TRA 


NULL 
STX2 
EAXO 


«I WCMD,,/F.IOCB 
ol FSCT+, 1 FPAT » DL 


GET PAT OR SCT ADDRESS 
TEST PAT OR SCT REQUEST 


FCP NOs FILECODE 
P.PAT sPH.PAT «so P2 PAT SEGMET 
elFPATs DL . IS IT PAT 
FNPAT CES 

0-2 NOs SCT TO X1 
»WEENDs4 P1008 CLEAR PAT PTR 
SCTG 


oT FCNS,. IFGPRt I FNABt+LIFSYT+.1 FTADt+J TF ONM 
oT FSPCe.IFPCD 


» IWCMD,-/P.I0CB GET FILECODE WORD 


FNDFC +1 SCAN FOR FILE CODE 
FCER FILE NOT FOUND 
Or2eP.PAT TEST PAT STATE 
»FBSYFADOL I$ BUSY 
NOTES1 NO 

YES WAIT 


eMDISFs4 oN 

SAVEsCN 

SD.SVXeee.MDISP*644+4,EAX0 
1B/.MDISP*6444,09/71341/101/001/076/M, 
VIO s9/0 48/0 0 1 /N9 1440021700 2/0012/806SVX 
RESTORE 

FNPAT RE-ENTER 


eWEPEPs4 oP. 10Q 
Ov AU 


SET PAT PTR OFFSET 


PAGE 


128 


29FWO870 
29FWO880 
29FWO0890 
29FWC900 
29FWC910 
29FW0920 
29FWO930 
29FWC940 
29FWC9S50 
29FWO960 
29FWO0970 
IOSO4AAM 
IOSO4AAM 
29FWC98O0 


ITP.1860 


CALL &030 


CALL &035 


29FW1190 
CALL &040 
CALL &045 
CALL&050 
EL8. 

CALL &055 
29FW1000 


CALL &065 
CALL 8070 


29FW1270 


10802360 


CALL E080 


—ELB8. 


i 
Nw 


1245T 02 


L2s27*¢9 
006266 037777 
006267 037777 
006270 000002 
006271 000003 
006272 100024 
006273 200000 
006274 9000000 
006275 017774 
006276 100004 
006277 600000 
006300 006311 
006301 900000 
006302 400000 
006303 006307 
006304 000002 
006305 200000 
006306 006310 
006307 000100 
C06310 100004 
006311 013354 
006312 005373 
006313 100013 
006314 000004 
006315 006320 
006316 000000 
006317 100005 
006320 006252 
006321 006352 
006322 000100 
006323 006333 
006324 000000 
006325 000003 
006326 700002 
006327 000320 
006330 100013 
C06331 000020 
006332 006352 
006333 100006 
006334 770000 
006335 100000 


09.357 H6600J37.002 
CALL 
3600 03 O00 4950 
1000 03 O00 4951 
6010 04 000 4952 
6200 12 Q00 4953 
4401 14 000 4954 
2211.10 000 4955 
006274 4956 SCTG 
6200 11 O00 4957 
3610 03 O00 4958 
2411 14 000 4959 
3000 03 O00 4960 
6000 00 010 4961 
6350 00 O00 4962 
3000 03 O00 4963 
6000 00 010 4964 
2750 O07 O00 4965 
3000 03 000 4966 
6000 00 010 4967 
2750 07 Q00 4968 
2551 14 000 4969 
006311 4970 SCTG1 
7000 00 O10 4971 
7100 00 010 4972 
4973 * 
4974 * 
2361 14 O00 4975 
3160 07 O00 4976 
6000 00 010 4977 
6200 00 O00 4978 
7401 14 O00 4979 
006320 4980 NOSP 
3160 00 O10 4981 
6000 00 010 4982 
3160 03 O00 4983 
6000 00 010 4984 
2360 03 O00 4985 
006325 4986 
6306 04 6330 
7103 00 000 
000004 000 
2361 14 O00 4987 
3160 07 O00 4988 
6090 00 010 4989 
4990 
006333 4991 NSPCE 
2351 14 000 4992 
3750 07 O00 4993 
1150 07 O00 4994 


1/0 
I / 


ANXO 
CMPXO 
TNZ 
EAXO 
SXLO 
LDX1 
NULL 
EAXO 
ANX14 
ORSX1 
CANXO 
TZE 
EAA 
CANXO 
TZE 
ORA 
CANXO 
TZE 
ORA 
ORSA 
NULL 
TSxO 
TRA 


LDQ 
CANQ 
TZE 
EAXO 
STXO 
NULL 
CANQ 
TZE 
CANQ 
TZE 
LDQ 
o CALL 
INHIB 
EPPRO 
TRA 
ZERO 
INHIB 
LDQ 
CANQ 
FZE 


NULL 
LDA 
ANA 
CMPA 


0 


SUPERVISOR 


PROCES $ OR 


aFPTOFSDU 

eF ADJ »-DU 

2e1C 

eOFFS o2 
eWEENDs4 oP. 108 
Oe0eP.PAT 


0-1 

oF SCT140U 
eWESCTs4,P.104 
eFBTOFFETIsDU 
SC TG1 

0 


=0400000~,bdu 


*+4 

eFPRSLOZDL 
=0200000,bduU 
*x+2 

eFNEO Fs DL 
eWESCTs#4 oP. 108 


ILPCX 
INABQ 


eWEIOS24 oP. 108 
el FRSAsDL 

NOSP 

0 
»WEPEFs4 oP. 1090 


CMDSP 

NPCDR 

lL FSPCADU 
NSPCE 

0.DU 
eMI0S164 
SAVEsCN 
+345 
eCRCALoerF.CR 
RESTORE 
eWEIOS +4 oP. 108 
el FPCDsDL 
NPCOR 


@WEICMs4 oP. 10 
oFCCMOD-DL 
=01C0CO0-DL 


791219T0S0 PAGE 


PAT BODY OFFSET 

IS IT ADJACENT 

NO 

YES» ADJUST IT 

SAVE IT IN I/0 ENTRY 
GET SCT PTR 


SCT PTR & FLAGS 

SET SCT ADDRESS 
PRESETECT OR EOF FLAGS 
NO 


IS PRESELECT REQUEST 
NOs EOF RECOVERY 


IS NO EOF RECOVER REQUEST 


SET FLAG 


CALCULATE INDEX 
ABCRT 


TEST *SPEC* REQUEST 
IS THIS SHARED PAT 1/0 
NO 


SET NO PAT PTR 


SPEC OR CMD 
NO 


NO REQUESTED *SPEC* 
SET FLAGs NO MINUS ‘SPEC * 
CALL *SPEC* PROCESSOR 


RESTORE CONTROL BIT 
IS PRESENT *CMD* 

NO 

YESs GO TO LINK 


TEST CHANNEL COMMAND TYPE 


SINGLE CHARACTER COMMAND 


129 


EL8.. 
EL&.. 
E18. 
EL8. 
EL8.. 
EL8&. 


CALL8115 


CALL 8125 


CALL &130 


CALL 8140 


CALL8150 


ITP. 1920 


ITP.1930 
29FW1040 
29FwW1050 
ITP.1960 
CALL 8160 
CALL&165 


CALL&180 


10804350 


1245T C2 


12-27-79 
006336 006342 
006337 100006 
006340 000030 
C06341 100012 
006342 000027 
006343 003000 
006344 100001 
006345 100005 
006346 004666 
006347 100000 
006350 200000 
006351 004666 
006352 200000 
006353 004505 
006354 777777 
006355 004506 


09.357 


6010 00 010 
2351 14 000 
7350 00 000 
7551 14 O00 
7720 00 000 
3760 07 000 
2561 14 000 
2201 14 000 
6000 00 010 


2352 07 000 


2553 10 000 
7102 00 010 


006352 


3160 03 000 


6010 00 010 
6250 00 000 
7100 00 9010 


4995 
4996 
4997 
4998 
4999 
5000 
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 
5009 
5010 
5011 
5012 
5013 
5014 


H6600J7.002 


C ALL 


NPCDR 


SUPERVISOR 


PROCES S OR 


+4 
eWEICMs4 oP. 108 
24 
wWEFDCs4 oP. 10M 
18+5 
eFFOD I+. FFDD2,D0L 
eWEPRVse46P.10Q 
oWEPEP.4-P,100 
SLINK 

ON 

eFBSYFSDL 
Or0eP.PAT 
SLINK 

OFF 


oI FCMD,DU 
EP2CAL-1 
-1 

EP2CAL 


7912191080 PAGE 


NO 
YES» SET SINGLE CHARACTER 
IN ENTRY 


SET CONTROL BIT TO I/O ENTRY 
FOR "CMD* SPECIFICATION 

NO PAT 

SET PAT BUSY BIT 

GOTO INK I/0 

NORMAL COMMAND SEQUENCE 

TEST COMMAND TYPE 

PHYSICAL 


LOGICAL 
GO TO CHANNEL MODULE 


130 


10804295 
10804297 


10804305 
10804307 


CALL&190 
CALL 8195 
CALL 8200 


1245T O02 12-27-79 
006356 300000 
006357 000077 
006360 9000026 
006361 006371 
006362 000200 
006363 006367 
006364 300000 
006365 100004 
006366 006375 
006367 000216 
006370 005373 
006371 006556 
006372 000014 
006373 007777 
006374 006400 


09.357 


o0000Cc3 
o000C2 


006356 
7251 CQO 000 
3650 03 000 
1050 03 000 
6020 00 010 
3160 O07 000 
6000 00 010 
7221 00 000 
2421 14 000 
7100 00 010 


2360 07 000 
7100 00 010 


006371 
2350 15 010 
7710 00 000 
3750 07 Q900 
6010 00 010 

006375 


H6600J7.002 


e+ + + © # + H HF FF FH HE HE FH HH HE HH He H HH 


ITYME 


ITYM1 


NGSCT 


1/0 


MAS TER 


MASTER TYPEWRITER REQUEST 


S UP ERVIS OR 


Poy PE WRT T-E OR 


BY IO0CB2 OR IO0CB4 


INPUT REGISTERS 


7912191080 PAGE 


REQUEsS T 


X4 I/C ENTRY ADCRESS 
X6 KP Xx 

X7 CPUNO 

QR CTL BITS 

ODR1 P, 10Q 

ODR3 P.IOCB 

ODR6& P.SSA 


ODR? P.CR 


OUTPUT REGISTERS 


SET 
SET 


NULL 
LXL5 
ANXS 
CMPXS 
TNC 
CANQ 
TZE 
LXL2 
ORSX2 
TRA 
NULL 
LO@ 
TRA 


NULL 
LDA 
ARL 


ANA 


TNZ 
NULL 


X41 SCT ADDRESS 

X4 I/Q ENTRY ADDRESS 
X6 KP X 

X7 CPUNO 

ODR1 P.I10Q 

ODR3 P.IOCB 

ODR6 P.SSA 


ODR? P.CR 


P3 
P2 


eIWCMD,/P.I0CB 
=077,DU 
EMSCD=-BMSCD,DU 
ITYM™1 
elFSCTsDL 
ITYME 
»IWCMDs,-P.LIOCB 
eWESCTS4 oP. 100 
NGSCT 


eAC21E40L 
INABQ 


BMSCD,5 
a2 
=O7777e0L 
LOOKF 


GET MSG CODE 

ISOLATE IT 

IS CODE VALID 

YES 

IS SCT PRESENT BY GEPR 

NOv ILLEGAL 

GET SCT ADDRESS 

SET SCT ADDRESS 

GEPR SPECIAL REQUEST NO PAT 


K15 ~- MSG CODE OR FILECODE ILLEGAL 
ABORT 
GET TABLE ENTRY 


PICK-UP FILE CODE 
ZERO FC» SPECIAL GEPR REQUEST 


131 


10S00960 


10S0C970 
Tosocg7s 
10sacgse 
10Ssog0gg98g5 


EL8. 


10S0C995 


1245T 02 12-27-79 


006375 
006376 
006377 


006400 
006401 


006402 
006403 
006404 


006405 
006406 


006407 
006410 
006411 
006412 
006413 


C06414 


006415 
~C06416 
006417 
006420 
006421 
006422 
006423 
006424 


006425 
006426 


006427 
006430 
C064 31 
006432 
006433 
006434 
006435 
006436 
006437 


000000 
000000 
006402 


0131700 
006367 


100005 
000000 
006415 


000000 
013324 


006414 


200000 
037777 
200000 
037774 


100004 


006204 
500034 
300000 
777000 
002000 
006504 
003000 
006427 


000217 
005373 


006013 
000020 
100007 
300000 
000777 
000002 
006462 
000003 
006425 


09.357 


2220 03 O00 
6250 00 000 
7100 00 010 


. 0064C0 
7010 00 010 
7100 00 010 


0064C2 
7421 14 O00 
1020 03 000 
6000 00 010 


6210 12 000 
7000 00 010 


7100 00 010 


2211 12 000. 


3610 03 9000 
2211 11 O00 
3610 03. 000 
006414 
2411 14 000 


006415 
4754 07 000 
6755 00 9000 
2351 00 000 
3750 03 000 
1150 03 000 
6000 00 010 
1150 03 000 
6000 00 010 


006425 
2360 07 O00 
7100 00 010 


006427 | 
4704 07 000 
6705 14 000 
7231 14 O00 
2351 00 000 
3750 03 000 
1150 03 000 
6000 00 010 
1150 03 000 
6010 00 010 


H6600J7.002 


1/0 


MAS TER 


5066 

5067 

5 068 

5069 

5070 LOOKF 
5071 

5072 

5073 

5074 STOPN 
9075 

5076 

5077 

5078 

5079 

5 080 

5081 

5082 

5083 

5084 

5085 

5086 

5087 PROG1 
5088 

5089 

5090 PROG 
5091 

5092 

5093 

5094 

5095 

5096 

5097 

5098 

5099 | 
5100 ITYME1 
5101 

5102 

5103 

5104 ITYM4 
5105 

5106 

5107 

5108 

5109 

5110 

5111 

S112 

ALS 

5114 


5115 


LOXe2 
EAXS 
TRA 


NULL 
TSX1 
TRA 


NULL 
STX2 
CMPX2 
TZE 


EAX1 
TSXO 


TRA 
LDX1 
ANX4 
LDX1 
ANX14 
NULL 
ORSX1 


NULL 
LOP 
LOD 
LDA 
ANA 


_CMPA 


TZE 
CMPA 


~TZE 


NULL 
LDQ 
TRA 


NULL 
LDP 
LOD 
LXL3 
LDA 
ANA 
CMPA 
TZE 
CMPA 
TAZ 


S$ UP ERVIS OR 
TY PEW RIT ER 


OsDU 


0 
STOPN 


FNDFC 
ITYME 


»WEPEPs4 oP, 100 
0O-DU 
PROG 


PROG1 
Os2eP.PAT 
=037777.4DU 
Or1eP.PAT 
eFPSCTsDU 


WESC T#4 oP. 108 


P56SD.PSHoDL 
PS ePH.DChoo PS 
eo IWCME ss PL. 10CB 
=0777C00.DU 
=O0200C/DL 
ITY¥2 
=O0300C,0U 
ITYM4 


eAC217-0L 
INABQ 


PO-SD.1I0GsDL 
PO» .WEDR Fed o PO 
oWEOCFFs4-P.10@ 
e~IWCMCDse-F.IOCB 
=0777 /DdU 

20DU 

BCOWR 

340U 

ITYME1 


7912191080 » PAGE 132 
REQUeEsS T 


NO PAT POINTER 


USE SPECIAL GEEPR ENTRY CALL 8570 


GET PAT POINTER 10802390 


PAT NOT FOUNDs ILLEGAL 


SET PAT POINTER IN ENTRY 
ITS NO PATs SPECIAL GEPR 


GET SCT ADDRESS FRCM SO.SCN 
IF SYSTEM CONSOLE 
X1 - SCT ADORESS 
SYSTEM CONSOLE 
NOT SYSTEM CONSOLE 


GET SCT ADDRESS FRCM PAT BODY 


SET SCT ADDRESS IN ENTRY 


GET DCW SEGMENT DESCRIPTOR 
GET COMMAND TYPE 

W OR WR 

IS WRITE 

YES 

IS WRITE THEN READ 

YES 

NOs ILLEGAL COMMAND 


K1é — COMMANC/MODE INVALID EL8. 
ABORT 


WRITE THEN READ REQUEST 
GET READ AREA DESCRIPTOR 


GET DCW ADDRESS 
TEST MODE 


IS ASCII 
NOs ILLEGAL 


ASCII REQUEST 


e @ 
® 6 
1245T C2 12-27-79 09.357 H6600N7.002 1/0 SUPERVISOR 7912191080 PAGE 133 
e | e 
MAS TER TYPEWRITER REQUEST 
@ 5116 @ 
006440 100001 2361 14 O00 5117 LDQ oWEPRV+4 oP. 10Q WHERE IS THE DCW 
006441 044000 3160 07 O00 5118 CANQ oF FDC WH. FFAUX DL IS IN DCW SEGMENT 
e 006442 006446 6000 00 010 5119 TZE ITYM4 1 NO r 
006443 5S00000 7201 13 O00 5120 LXLO Or3eP5 GET READ WORD COUNT 
006444 500000 2231 13 O00 5121 LDX3 0-3,-P5 YES» GET DATA REGION ADDRESS FROM DCW 
@ 006445 006450 7100 00 010 5122 TRA ITYM4 2 & 
$123 
| 006446 5124 ITYM41 NULL 
@ 006446 000000 7201 13 000 5125 LXLO 0-3-P0 GET READ WORD COUNT @ 
006447 O00000 2231 13 000 5126 LDX3 O-3,-PC DATA REGION ADDRESS 
006450 5127 ITYM42 NULL 
@ 006450 006555 2360 00 010 5128 Lda ASCBLK GET ASCII BLANK CODE @ 
006451 000000 7561 13 O00 5129 STQ 0-3-PC CLEAR READ AREA BY BLANK 
006452 000001 1000 03 O00 5130 CMPXO 1./DU IS ONE WORD 
& 006453 006455 6000 00 010 5131 TZE *+2 YES @ 
(06454 000001 7561 13 O00 5132 STQ 163PC 
006455 014054 2360 00 010 5133 LDQ =0330000C40002 
| 006456 100006 7561 14 000 5134 STQ eWEICMs4-P.100 SET COMMAND WTYPASR ) 
006457 014055 2360 00 010 5135 LDQ =0230000C40001 
006460 100011 7561 14 O00 5136 STQ aWEFCM 64 oP. 100 SET COMMAND RTYPAS. 
® 006461 006517 7100 00 010 5137 TRA ITYM3 @ 
5138 
006462 5139 BCDWR NULL BCD REQUEST 
@ 006462 100001 2361 14 O00 5140 LDQ »WEPRVs4 oP 100 WHERE IS THE DCW e 
(06463 044000 3160 07 O00 5141 CANQ oF FDC Wt. FFAUX 6 DL IN DCW SEGMENT 
006464 006470 6000 00 010 5142 TZE BCDWR1 NO 
) 006465 500000 7201 13 O00 5143 LXLO O-3eP5 GET READ WORD COUNT @ 
006466 500000 2231 13 O00 5144 LOXx3 0-34P5 YES, GET DATA REGION ADDRESS. 
006467 006472 7100 00 010 5145 TRA BCDWR2 
& 5146 @ 
006470 5147 BCDWR1 NULL 
006470 000000 7201 13 000 5148 LXLO 0,3,-P0 GET READ WORE COUNT 
& 006471 O00000 2231 13 000 5149 LDX3 0-3-PC GET DATA REGION ADDRESS & 
006472 5150 BCDWR2 NULL 
006472 014056 2360 00 010 5151 LDQ =02C2C20202020 GET 8CD BLANK 
@ 006473 000000 7561 13 O00 5152 STQ 0-3-PC CLEAR READ AREA BY BLANK e 
006474 9000001 1000 03 O00 5153 CMPXO 1,DU IS ONE WORD 
006475 006477 6000 00 010 5154 TZE *+2 YES 
& 006476 000001 7561 13 O00 5155 STQ 1°36PC0 @ 
006477 014057 2360 00 010 5156 LDQ =0130C00C40002 
006500 100006 7561 14 000 5157 STQ »WEICMs4,P,10Q SET COMMAND WTYPR 
e 006501 014060 2360 00 010 5158 ‘LDQ =0030000C40001 oe 
C06502 100011 7561 14 O00 5159 STQ oWEFCMs4eP.10Q SET COMMAND RTYP 
006503 006517 7100 00 010 5160 TRA ITYM3 
& 5161 ® 
5162 WRITE ONLY REQUEST 
5163 
& 006504 5164 ITYM2 NULL @ 
006504 300000 2351 00 000 5165 LDA ~IWCMD,,P.10CB TEST MODE TO SET TAB CODE AND COMMAND 
® @ 
e @ 


t 

1 

| 

1 

& 
5 

Hl ; 
q 

ir 

i. 

zi 

i 

\ @ 
1 

} 

& 
f 

f 

i 

a 

a 

. 

@ 
M 

j 

q 

a 

| 

q 

& 


~—1245T C2 


12-27-79 
006505 000777 
006506 000002 
006507 006514 
006510 330000 
006511 000003 
006512 006425 
006513 006515 
006514 130000 
C06515 100006 
006516 100011 
006517 006013 
006520 000016 
006521 100007 
006522 100001 
006523 044000 
006524 006527 
006525 500000 
006526 006530 
006527 000000 
C06530 006556 
006531 000011 
006532 006603 
006533 9000000 
006534 006611 
006535 000001 
006536 002000 
C06537 100001 
006540 100013 
006541 000100 
006542 006547 
006543 000000 
006544 000003 
006545 700002 
006546 000320 


09.35? 


3750 03 000 
1150 03 000 
6000 00 010 
2360 03 000 
1150 03 O00 
6010 00 010 
7100 00 010 


006514 
2360 03 000 
7561 14 O00 
7561 14 000 


006517 
4704 07 O00 
6705 14 000 
2211 14 000 
2361 14 000 
3160 07 900 
6000 CO 010 
2211 11 O00 
7100 00 010 


006527 
2211 11 000 


2361 14 000 
3160 03 000 
6000 00 010 
2360 03 000 
006544 


6306 04 6547 


7103 00 000 
000004 000 


006547 


5 166 
5167 
5 168 
5169 
5170 
5171 
5172 
5173 
5174 
5175 
5176 
5177 
5178 
5179 
5180 
5181 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5 201 
5202 
5203 
5204 
5205 
5 206 
5207 
5208 


5209 


H6600J7.002 


ITYM2B 


ITYM3 


ITYM32 


ITYM314 


5210 NTSPC 


1/0 


MAS TER 


ANA 
CMPA 
TZE 
LDQ 
CMPA 
TNZ 


TRA 


NULL 
LDQ 
STQ 
STQ 


NULL 
LOP 
LOD 
LDX1 
LDQ 
CANQ 
TZE 
LDXx1 
TRA 


NULL 
LDOXx1 
NULL 
LDA 
ARL 
LDQ 
STQ 
LDQ 
STQ 
LDA 
ORSA 


LDQ 
CANQ 
TZE 
LDQ 
2 CALL 
INHIB 
EPPRO 


TRA 


ZERO 
INHIB 


NULL 


S UP ERVIS OR 
TY PEW RIT ER 


=0777,D0U 


2eD0U 

ITYM2E 
=0330C00,duU 
34DU 

ITYME 1 

k++ 2 


70130000 »DdU 
eWEICM 44 oP T08 
eWEFCMs4 oP. 100 


PO,SD.IOG/DOL 

PO, .WEDRIs4-P0 
»@WECFFs4 oP. 108 
e@WEPRVe4 oP T0Q 
oF FOCW+. FFAUX s DL 
ITYM3 2 

Ovrin»P5 

ITYM31 


Ov1P0 


BMSCD.5 

12-3 
TABS1—-14 AU 
O-1-PC 
TABS2—14 AU 
1-1PC 
aFFOD1Ts0L 
eWEPRV24 oP. 108 


»WEIOS4 oP. 108 
eT FSPCeDYU 
NTSPC 

0 DU 

«MI0S144 
SAVEsCN 

*+3,5 

eCRCALser F.CR 
oMIOS 144 
RESTORE 


79121910S0 PAGE 134 


RE@QuUeES T 


IS @cCDd 
IS ASCII, ASCII WRITE WTYPAS 


IS NOT-.ASCII» ILLEGAL 


IS 8CD, BCD WRITE WTYP 
SET COMMAND 


GET WRITE DATA REGION DESCRIPTOR 
DCW ADDRESS 


WHERE IS THE OCW 


IS IN DCW SEGMENT 
GET DATA REGION ADDRESS 


GET DATA REGION ADDRESS 


10804340 
GET TAB CODE TABLE INDEX 


SET ONE 


SET TwO 
SET FLAGse PRESENT FIRST DATA 


TEST *SPEC* REQUEST 


NO REQUESTED 
REQUESTED, SET FALG 
CALL "SPECS PROCESSOR 


1245T 02 


006547 
006550 
006551 
006552 
006553 
006554 


006555 


006556 
006557 
0065 60 
0065 61 
0065 62 
0065 63 
0065 64 
006565 
0065 66 


006567 


006570 
C065 71 


006572. 


006573 
006574 
006575 
C065 76 
006577 
006600 
006601 
C06602 
006603 


006604 
006605 
006606 
006607 
006610 
006611 


006612 
C066 13 
006614 
006615 
006616 
006617 


be alt Cel 


09.357 


010000 2350 03 900 
600017 3151 00 9000 
004666 6000 00 010 
100001 7251 14 000 
004701 6360 00 010 
004022 7100 00 010 


040040040040 000 
040000 
006556 
001000000000 000 
001063540001 000 
001054630002 000 
003063540003 000 
003054630004 000 
002063540005 000 
002054630006 000 
004063610007 000 
004063610010 000 
002061630011 000 
003063610012 000 
002063610013 000 
0010636100174 000 
001063540015 000 
001054630016 000 
001061630017 000 
004063610020 000 
004063610021 000 
004063610022 000 
904063610023 000 
006065540024 000 
006000000025 000 
006604 
006604 
770017171717 000 
770017177740 000 
770017177740 000 
770017177740 000 


770017177740 000. 


000000000000 000 
006612. 
171717171717 000 
171717171717 000 
774017171717 000 
774077401717 000 
774077407740 000 
000000000000 000 


5211 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5223 
5224 
5225 
5226 
5227 
5228 
5229 
5230 
5231 
5252 
5 233 
5234 
5235 
5 236 
§ 237 
5238 
5239 
5240 
5241 
5242 
5243 
5244 
5245 
5246 
5247 
5248 
5249 
5250 
20" 
5252 
5253 
5254 
5255 
5256 
Secor 


H6600J37.002 


ASCBLK 
ASCII 
BMSCD 


EMSCD 
TABS 1 


TABS 2 


1/0 


MAS TER 


BOOL 


TY PEW RIT ER 


S UP ERVIS OR 


791219T0S0 PAGE 


RE—EQUEsS T 


eTGEPR»DU GEPR IN CONTROL 

eSTATEsoF.SSA 

SLINK NOs LINK NORMAL 

e@WEPRV44 oP. 108 YES» LINK FIRST 

IRETN SET RETURN 

LINKF 

1, ASCII BLANKS 

04000C ASCII WRITE/READ FLAG 
MESSAGE CODE TABLE 


012/010/H12/00012/00 
012/010,H12/T*s012/01 
012/010,H12/*T2012/02 
012/030,K12/T*-012/03 
012/030, K12/*T2012/04 
012/020ek12/T*,012/05 
012/020,H12/*T+012/06 
012/040eH12/T/,012/07 
012/040-H12/T/-012/10 
012/020-b12//T2012/11 
O12/020-H12/T/ 012/12 
012/020/H12/T/,012/13 
012/010-K12/T/ 4012/14 
012/010-F12/T*2012/15 
012/010eH12/*T,012/16 
012/010-H12//T2012/17 
012/040-k12/T/2012/20 
012/040e4h12/T/2012/21 
012/040eH12/T/-012/22 
012/040-kK12/T/ 0012/23 
012/060, H12/V%*2012/24 
012/0€0-h12/00-012/25 


770017171717 1 CARRIAGE 
770017177740 1 CR AND 1 
770017177740 1 CR AND 1 
770017177740 1 CR AND 1 
770017177740 1 CR AND 1 
AS 


0 CII NULL 


171717171717 AND NO. TABS 
171717171717 AND NO TABS 


774017171717 AND 1 TAB 
774077401717 AND 2 TABS 
774077407740 AND 3 TABS 
0 ASCII NULL 


SPEC GEPR» USE ENTRY SCT 
MT ERR» TY REPLY 
OTHER ERR» TY REPLY 
MT ERR THRESHOLD 
OTHER ERR THRESHOLD 
MOUNT~DISMOUNT*READY 
CR-CP INFO 

SRT-FIN 

ABT 

ALLOC RETRIEVE 

JOB DELAYED 

COMMENT CARDS 

GEPOP TY1 

GEPOP TY2 

GEPOP TY3 

GEPOP TY4 

REMOTE GEIN-SYSOUT 
TSS LINK SHORTAGE 
TSS BAD FILE STATUS 
TSS SRTI-FIN 

VIDEO 

SCC TAB SET/CLEAR 


RETURN ~CODE1 
TAB ~CODE2 
TAB ~CODE3 
TAB ~CO DES 
TAB ~CODES 


CHARACTERS~-COCE6 


~CODE1 
~CODE2 
-COCE3 
-~CODES 
~CODES 
CHARACTERS~CODE6 


135 


10804315 
10804320 
10804325 
10804330 


@ 
& 
12457 02 12-27-79 09.357 H6600J7.002 1/0 SUPERVISOR 7912191080 PAGE 136 
@ " 
EP7 SPUNK ( SPECIAL .ULINK INTERFACE FOR DNET ) 
@ 5259 x 
5260 * EP #7 SPUNK 
5261 * eULINK ROUTINE WITHOUT .CALL/JEXIT INTERFACE 
@ 5262 * 
5263 * P2 = RETURN REGISTER 
5264 x 
) 5265 INHIB ON 
5266 * 
006620 5267 SPUNK NULL 
5 268 
006620 5269 » «ULINK 
006620 012644 7002 00 010 TSXO UL INK 
5270 
006621 200000 7103 11 O00 5271 TRA O-1-P2 RETURN 10806630 
S272 * | 
5273 INHIB OFF 


1245T 02 


12-27-79 
006622 000000 
006623 600012 
006624 600012 
006625 006013 
006626 001761 
006627 100003 
006630 100004 
006631 000355 
006632 006637 
006633 017774 
006634 006637 
C06635 013354 
006636 000000 
006642 400000 
006643 100000 
006644 000001 
006645 100000 
006650 100010 
006651 100012 
006652 003036 
006653 600012 
006654 600012 
006655 012374 


09.357 


006622 


0116 00 000 
7403 51 000 
4433 56 000 
4716 07 000 
4716 O7 O00 
7263 14 000 
2213 14 000 
10712 03 000 
6002 00 070 
3612 03 000 
6002 00 010 
7002 00 010 
0172 00 000 


006637 
006627 | 
3352 07 000 
3753 14 9000 
2752 07 000 
7553 14 000 
006646. 
2353 14 000 
2363 14 900 
7002 00 9010 
7233 54 000 
2203 51 000 
7100 00 010 


H6600J7.002 


C2 €P10= GSTRT 


5275 * 


5276 *GSTRT 


* 


5277 

5278 

5279 

5280 

5281 

5282 

5283 

5284 

5285 

5286 

5287 

5288 

5289 

5290 

5291 

5292 

5293 

5294 

5295 

5296 

5297 

5298 

5299 

5 300 

5 301 

5302 

5303 
5 304 

5305 

5306 

5307 NOCI 

5308 

5 309 

5310 

5311 

5312 

5313 

5314 

5315 

5316 

5317 

5318 

5319 * 

5320 

5321 

5322 

5 323 


G+ € + + & © + &F HH He HH HE 


STRT 


1/0 


$- UP ER VT “SS OR 


7912191080 


GEEPR STATUS RETURN 


RETRIEVE AQ FROM ~STEMPH8s +9 
AND CALL STATUS RETURN ROUTINE. 


INPUT REGISTERS 


X4= ADDRESS OF I/0 ENTRY 


X7= CPUNO 


PAGE 


STATUS WORDS WILL BE FORMATTED IN AQ USING CONTENTS 
OF I/0 ENTRY (X4)4 WORDS ,WEEP1,.WEEP2 


$CM3) 


ALL REGISTERS BUT X2 RESTORED 


NULL 
INHIB 
CCAC 
STXO 
SXL3 
LDP 
LDP 
LXL6 
LOX1 
CMPX1 
TZE 
ANX1 
TZE 
TSXO 
NCP 
NULL 
2 SHUT 
LCA 
ANA 
ORA 
STA 
2 OPEN 
LDA 
LDQ 


TSXO 


LXL3 
LDXO 
INHIB 
TRA 


ON 


oSSAs IeP.SSA 
oSSAsIDsF.SSA 


Ps I0Q 2SD0.10Qs DL 


P,IOQs.CTYPsDL 
eWEPIDs4 oP. 10Q 
WESC T+#4-P. 108 
=0355,DU 

NOCI 

oF SCTIA0U 

NOCI 

ILPCX 


eCRGGTsaeF.CR 
oF STOPSDOL 
eWEST r4eF.10Q 
1/DL 
»WEST 46 F.10Q 
eCRGG Toss F.CR 
~WEEP 144 oP. I10Q 
eWEEP24 oP. 108 


STRET 


2SSAe DI FLSSA 
~SSAsIeP.SSA 
OFF 

RLXIT 


CALLED BY GEPR» ABTIOs DNETs FSO9s AND BY 
INTERCOM (SCM1, . 


GET 1/0 ENTRY DESCRIPTOR 


GET SCT ADDRESS 


DONT GET CHANNEL INDEX FOR DNET 


137 


IOSO4AAM 


DONT GET CHAN INDEX FOR INTER@SLAVE C 


CALC. X2= LOG. 
ERROR RETURN 


PRIM, 


CH INDEX 


SHUT THE I/0 QUEUE GATE 


MASK = 77777740000C 
ZERO FLAGS EXCEPT STOP BIT 
FORCE BUILDING STATUS. 


NOW OPEN QUEUE GATE 


QR= STATUS WORD 2 


AR = 


STATUS WORD #1 


RETURN STATUS 
CSTRET RELOADS X6 FROM .JKLPRG) 


RESTORE REGISTERS 


EXIT 


EL&. 
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C2 —P 12 RSMCH CRESUME I/0 ON CHANNEL) 


5325 »* THIS ROUTINE RESUMES I/0 ON A SPECIFIED CHANNEL. 
5326 * INPUT REGISTERS 
5327 * X1= SCT ADDRESS 
5328 * X6= KPX 
5329 * Xx7= CFUNO 
5330 * 
5331 * ONLY REGISTERS X6-X7 ARE RESTORED ON RETURN 
5332 * 
5333 * GEEPR CALLS THIS ROUTINE AFTER TAKING STATUS RETURN AND/OR 
5334 * ABORT ACTION, THE STOP FLAG IN THE DEVICE CAND CHANNEL) SCT 
5335 * FOR THE ERROR I/C ENTRY HAS BEEN RESET. THIS ROUTINE IS NOT 
5336 *. CALLED FOR NORMAL REISSUE OF GEEPR I/0. 
5337 
006656 5338 RSMCH NULL 
006656 013354 7000 00 O10 5339 TSxXO ILPCX CALCULATE LOG.PRIM.CH. INDEX 
C06657 900000 0110 00 000 5340 NOP ERROR RETURN 
006660 5341 e SHUT eCRGOGTssF.CR 
5342 INHIB ON 
006663 007347 7032 00 010 5 343 TSxX3 STIO CHECK IF I/0 CAN BE STARTED AND START 
006664 006133 4706 07 O00 5344 LDP POsSD.KL DL 
006665 000044 2263 17 Q00 5345 LOX6 eKLPRG»+7 »PO GET KPX 
5346 INHIB OFF 
006666 012374 7100 00 010 5347 TRA RLXIT EXIT EL8. 


1245T C2 


12-27-79 
006672 007150 
006673 006056 
006674 700361 
006675 070000 
006676 006763 
006677 200000 
006700 006763 
006701 000600 
006702 000600 
006703 006763 
006704 700361 
006705 200000 
006706 000002 
006707 006777 
006710 200000 


09.357 


000002 


006667 


006667 


7532 00 010 
4736 07 O00 
2353 00 000 
3152 03 000 
6002 00 010 
3152 03 090 
6012 00 010 
3752 03 O00 
1152 03 9000 
6002 00 10 


2353 00 000 


0067C5 
2213 00 000 
101712 03 000 
6022 00 010 
2353 00 9000 


H660037.002 


5349 
5350 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5358 
5359 
5 360 
5 361 
5362 
5363 
5 364 
5365 
5366 
5367 
5 368 
5369 
5370 
5371 
sore 
5375 
5374 
Safo 
5376 
5377 
5378 
5379 
5 380 
5381 
5 382 
> o85 
5384 
5385 
5 386 
5 387 
5388 
5 389 
5390 
5391 
5392 
5393 
5394 
5395 
5396 
5397 
5 398 


2DATA 


CTFL 


+ >t + &€ ee DOF + FH HH HE HF HF HE HE HF HH He eH HE SH He HB FH 


ACTFI 


NOTTP 


1/0 


S UP ERVIS OR 7912191080 PAGE 


EP13 ACTFL CPROCESS ACCOUNTING FILE REQUEST) 


ACTFL ACCEPTS LOGICAL RECORD INPUT FOR ACCT FILE 
AND A DEDICATED MT OR TWO CISC FILES ARE REQUIRED 


ACTFL MANAGES THE FOLLOWING CELLES 


CALLING 


SET 


eo CRACFe~-CONTAINS ACT FILE STATUS»PATABEUF POINT. see 
2CRSKT-—--1/0 ENTRY SKELTON FOR ACCT 

eo CRSCH--STATISTICAL CCLLECTION HEADER 
eCRSCIm--STATISTICAL COLLECTION INFORMATION 

ACB SEG.--- ACCOUNT BUFFER SEGMENT 


SEQUENCE 

LOD F2e VECTOR, £ 

eCALL oMIOSe13---P2 HAS LOGICAL RECORD INPUT 
P2 


START TO PROCESS ACCT FILE 


ON 
eCRACFseP.CR ACCT IS SHUT 
ENTRY WITH GATE ALREADY SHUT 

AC FRG 
P3,SD.ACEDL 
eo CRAC Foes P.CR 


LOAD ACCT BUF SEG. 
IS ACCT CONFIGURED 


=0700C0.CuU 

ACFLE NO 

=0200000,DuU IS IT INITIALIZED 

ACFLE ~~ NO 

=Q0600 -DU 

=0600,DU 

ACFLE PURGE/LOSE ~~ IGNORE REQUEST 


oCRACFseP.CR 


OsrP. CATA LOAD LENGTH 

2eDU 

ACFLF SPECIAL IDS LR. 
OseP.DATA CHECK RECORD TYPE 
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17FWO790 
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12-27-79 
006711 000022 
006712 006763 
006713 700436 
006714 006763 
006715 000000 
006716 000021 
006717 006723 
006720 000001 
006721 400000 
006722 006724 
006723 400000 
006724 700437 
006725 006763 
006726 700374 
006727 700373 
006730 007145 
006731 000000 
006732 007145 
006733 007145 
006734 200000 
006735 006741 
006736 900002 
006737 oc0n00 
006740 006747 
006741 200000 
006742 000013 
006743 006773 
006744 900000 
006745 200000 
006746 006736 
006747 007145 
006750 006777 
006751 700374 
006752 777777 
006753 300000 
006754 0900020 
006755 300001 
006756 000140 
006757 200000 
006760 300000 


09.357 


1223 00 000 
7422 00 010 


006731 
2222 03 000 
1222 00 010 
7422 00 010 
2223 00 000 
6042 00 010 

006736 
0222 03 000 
1022 03 000 
6C22 00 010 

006741. 
7223 00 9000 
1022 03 O00 
6002 00 010 

006744 
2222 03 000 
7423 00 O00 
7102 00 010 


006747 
1022 00 010 
6032 00 010 
2233 00 000 
6352 12 000 
7553 13 000 
7712 00 9000 
5076 13 000 
1007 40 000 
0000 05 000 
0000 05 9000 


H6600J7.002 


ACFLA 
IBUF 2 


CMI 


IBUF 3 


1/0 


ALS 
TZE 
CMPA 
TPL 
LDQ 
LLR 


TMI 
SELQ 
LDA 
TRA 
LDA 


CANA 
TNZ 
NULL 
LDX2. 
SBLXe 
STX2 


NULL 
LDX2 
SBLX2 
STX2 
LDX2 
TMI 


NULL 


ADLX2 
CMPX2 
TNC 
NULL 
LXL2 
CMPX2 
KEE 
NULL 
LDX2 
STX2 
TRA 


NULL 


_CMPX2 


TRC 
LBX3 
EAA 
STA 
ARL 
AWDX 
MLR 
ADSC9 
ADSC9 


S UP ERV I S$ OR 


EP13 ACTFL CPROCESS ACCOUNTING FILE 


18 

ACFLE 
«CRSCKseP.CR 
ACFLE 

0,0U 

17 


+h 

17DL 
=0400C00 DL 
*+2 
=04C0000 du 


oe CRSCIZQL-P.CR 
ACFLE 


~CRACF411eP.CR 
eC RAC F+14 CoeP. CR 
ACTFET 


wk, DU 
ACTFT 
ACTFT 
OsveP. DATA 
CMI 


2eDU 
*#* 2 DU 
ACFLS 


OveP. DATA 
IDS,DU 
ABTC 


kk ye DU 
OseP. DATA 
ACFLA 


ACTFT 
AC FLF 
oCRACF+1144P.CR 
-12 


143-P3 

(141) 4€141) 
Or0eAeP. CATA 
O-0eAL,P? 


7912191080 PAGE 


REQUEST) 


ZERO IGNORE IT 
REGAL RECORD TYPE 


INDEX INTO .4CRSCI GOES IN QL 


BIT35(NOW-0) SHOWS IF ENTRY 


140 


IS IN UPPER OR LOWER HALF OF WD ENTRY 


BIT OFF » IS IN LOWER CEVEN REC. 
IT»S IN UPPER RECORD TYPE 


IGNORE IT 


GET CURRENT POSITIN 
NO OF WDS IN BUFFER 


CURRENT NO OF WDS LEFT 
LEAVE 1WD FOR POSSIBLE INTERNAL 


LENGTH OF Ls Re DATA 


PLUS USER CONTROL + RCW 


LeRe IS TOO LONG 
IDS CODE 
YES» ABORT 


FORCE TO MAXIMUM 


ENOUGH ROOM IN CURRENT BUFFER 
NO 

CURRENT BUFFER POSITION 
FORMAT SRCW 

STORE IT 


SET NEXT WORD IN ACCT BUFFER 
MOVE DATA 


TYPE. 


EL8. 


10804525 


10804545 


1245T 02 


12-27-79 
C06761 377777 
006762 700374 
006763 007150 
C06766 006133 
006767 000107 
006770 000000 
006771 000052 
006772 012374 
006775 000117 
006776 005403 


09,357 H6600J37.002 1/0 S UP E RV IS OR 7912191080 PAGE 


EP13 ACTFL (PROCESS ACCOUNTING FILE REQUEST) 


6233 12 000 5449 EAX3 -142/P3 SET NEXT BUFFER POSITION 
7433 00 o000 5450 STXx3 @CRACF4+1146P.CR STORE NEW CURRENT POSITION 
006763 5451 ACFLE NULL 
0732 00 010 5452 LREG ACFRG RELOAD REGISTERS 
5453 * 
5454 * 
006764 5455 2 OPEN eCRACFaeroP.CR 
4706 07 O00 5456 LDP PO,SD.KL,DL 
2343 17 O00 5457 SZN oKLINTs7 PO DID IHLR MAKE CALL 
6012 15 ONO 5458 TNZ 0-5 YES» RETURN TO IT 
6757 00 O00 5459 LOD P.SSLo.KLSLVs o PO RELOAD P.SSL 
7102 00 010 5460 TRA RL XIT EXIT 
5461 * 
006773 5462 ABTC 2 OPEN eCRAC FeeoP.CR 
2362 07 O00 5463 LOG eACT17eDL D2 ~- IDS RECORD TOC LONG 
7102 00 010 5464 TRA INABT 


141 


10s04555 


1oscéng0 
10806095 


EL8. 
EL8. 


EL8. 
EL8. 


1245T 02 12-27-79 


C06777 
007000 
007001 
c07002 
007003 
007004 
007005 
007006 
C07007 
007010 
007011 
007012 
007013 
007014 


007015 
007016 
007017 
007020 
007021 
007022 


007023 


007024 
007025 


0070 26 


007027 


007033 
007034 
007035 
0070 36 
007037 
c07040 
007041 
~ 007042 
007043 
007044 
007045 
0070 46 
C07047 
007050 


006013 
001761 
700361 
040000 
007006 
000002 
006763 
400000 
700 361 
007113 
700361 
000001 
007127 
007130 


700373 
700361 
000001 
300000 
700374 
700373 


300000 


000001 
300000 


100023 


100025 


006024 
000005 
000401 
600117 
000001 
600160 
100025 
100004 
017774 
700000 
003774 
000000 
000022 
701402 


09.357 H660057.002 1/0 SUPERVISOR 7912191080 PAGE 142 
EP13 ACTFL CPROCESS ACCOUNTING FILE REQUEST) 
006777 $466 ACFLF NULL 
S467 * NOT ENOUGH ROCM IN CURRENT BUFFER 
4716 07 O00 5468 LDP P.10Q/SD.IOQ,DL GET I0Q@ SEGMENT 10801140 
4716 07 O00 5469 LOP P.IOQs.CTYPsDL 10$01150 
2353 00 000 5470 LDA ~CRACFae FaCR 
3152 03 O00 5471 CANA =0400C0,0uU TAPE FILE 
6002 00 010 5472 TZE x+3 NO 
3152 03 O00 5473 CANA =0000002,Ddu TAPE=-BTL NOT WRITTEN 
6002 00 010 5474 TZE ACFLE IGNORE DATA TO PREVENT LOCK UP FAULT 
2352 03 O00 5475 LDA =0400000,0u 
3153 00 O00 5476 CANA @CRAC Fee F.CR IS WRITING FLAG SET 
6012 00 010 5477 TNZ ACFLG YES/NO CURRENT BUFFER AVAILABLE 
2553 00 00 5478 ORSA @CRAC Feo F.CR SET WRITING FLAG 
10712 03 O00 5479 CMPX1 14DU 
6022 00 010 5480 TNC EOF IDS JOURNAL EOF 
6002 00 010 5481 TZE EOR IDS JOURNAL EOR 
5482 * 
007015 $483 ACFL3 NULL 
2233 00 000 5484 LOX3 eCRACFH+10seP.CR BEGINING OF BUF. TO WRITE 
7243 00 O00 5485 LXL4 @CRAC Fee F.CR GET LAST BLOCK SER# 
0242 03 O00 5486 ADLX4 1,DU INCREMENT IT 
7443 13 O00 5487 STX4 03-P3 STCRE RECORD 
2243 00 O00 5488 LDOX4. aCRACF+114eP.CR 
1243 00 O00 5489 SBLX4 aCRACF4H1CoeP.CR LENGTH OF RECORD TO WRITE 
5490 x 
007023 5491 STTPD NULL 
4443 00 000 5492 SXL4 Or eP3 
5493 * STORE WD CONT IN WRITE DCW 
1242 03 O00 5494 SBLX4 1/DU 
4443 13 000 5495 SXL4 0,36P3 STORE LENGTH OF PHYSICAL RECORD 
007026 5496 BTL9 NULL ISSUE 1/0 
2243 00 O00 5497 LDX4 a~WEAC Fee F.10Q X4 HAS ACCT I1/0 ENTRY ADDR 
5498 * aLlINK LINK .WEACF ENTRY IN POP PROCESS BY ACCT 
5499 
7527 14 000 5500 STWS @WEEND+41 44P. 10Q SAVE WSR LOWER 
007030 5501 oSHUT @CRGGToeFP.CR 29FW0170 
4706 07 O00 5502 LOP PO,SD.PIOSDL SET POP WS 
7727 00 O00 45503 LOWS 1+. PNFOP*4,,P0 SET wS FOR .PNPOP 10801170 
3362 07 O00 5504 LCQ eRIOTM41 o DL 
3563 00 000 5505 ANSQ @SRQSTs eo F.SSA RESET I/0 COMPLT SINCE LAST LINK 
2352 03 O00 5506 LDA 12DU 
0553 00 000 5507 ASA oSRQCToe FSSA INCREMENT LINKED CNT 
7727 14 O00 5508 LOwsS oWEEND+1 »4eP.10@ RESTORE WSR 4-7 10801100 
2213 14 000 5509 LDXx1 ~WESCTs4eP.100 GET SCT ADDR 
3612 03 O00 5510 ANX1 @FSCT1/D0U 
7223 11 OOO 5511 LXL2 Ov1P.CR 
3622 03 O00 $512 ANX2 oF CHNX/DU GET LCPX 
6352 11 000 5513 EAA 01 
7712 00 O00 5514 ARL 18 CALC LOG DEV INDX 
1353 12 000 5515 SBLA @CRCT242 oP. CR DEV SCT 


c 


1245T C2 


12-27-79 
007051 000026 
007052 007700 
007053 007147 
007054 100000 
007055 630000 
007056 007147 
007057 900002 
007060 100000 
007061 0900000 
007062 701401 
007063 007071 
CO07064 70171401 
007065 100001 
007066 100000 
007067 701402 
007070 007076 
007071 701401 
007072 701401 
007073 100001 
007074 100000 
007075 100001 
007076 007347 
007077 700373 
C07100 700374 
007101 700373 
007102 000001 
007103 700374 
007104 700374 
007105 007150 
007106 200000 
007107 oO00002 
007110 006763 
007111 006056 
007112 006726 
007113 096133 
007114 000107 
C07115 007120 
007116. 007146 
007117 906763 


09.357 


7403 14 000 
007076 


7032 00 010 


2223 90 000 
7233 00 000 
7433 00 000 
0232 03 9000 
7433 00 000 
4423 00 9000 
0732 00 010 
2213 00 000 
1012 03 000 
6022 00 010 
4736 07 000 
7102 00 010 


4706 07 000 
2343 17 000 
6002 00 9010 
0542 00 010 
7102 00 010 


H660037.002 


* 


LFST 


ACNE X 


ACFLG 


1/0 


ALS 
ANA 
STA 
LXLO 
ANXO 
ORXO 
ORXO 
SXLO 


S$ UP ERVIS OR 


EP13 ACTFL (PROCESS ACCOUNTING FILE 


22 

=07700/DU 
LOGNO 
»aWEST +46 F108 
=0630000,0U 
LOGNO 

20DU 

WEST 44-F.10Q 


7912191080 PAGE 


REQUEST) 


SET LOG DEV &# 
AND SET LINKED STATUS 
SET IT 


CHAIN ACCT I/0 ENTRY TO CHANNEL MAIL BOX 


LDXO 
LDX3 
TN2Z 

STX4 
STXO 
STXO 
STX4 
TRA 

NULL 
LDX3 
STX4 
STX4 
STX3 
$TXO 
NULL 


TSX3 


LOX2 
LXL3 
STX3 
ADLX3 
STX3 
SXL2 
LREG 
LOX1 
CMPX1 
TNC 
LDP 
TRA 


NULL 


LDP 
SZN 
TZE 
ACS 
TRA 


0, DU 
eCRCT 22 eP.CR 
LFST 
»CRCT2,-26P.CR 
eo WEPRVs4 oP. 108 
»WEST -449F.100 
eCRCT2e2-P.CR 
ACNEX 


eCRCT 22 oP.CR 
eCRCT2e2 6P.CR 
eWEFRV23-P.100 
eWEST 40 F.,10Q 
»~WEPRVs4 oP. 108 


STIO 


GET LAST POINTER 
LINK FIRST 

SET FIRST PTR 

SET BACK WARD PTR 


GET LAST PTR 
STORE NEW FORWARD PTR 


ISSUE START 1/0 


oCRACFHt10eeP.CR SET NEW CURRENT POSITION 


eCRACF+t1 149P,CR 
~CRACFH1Coo PJ CR 
1,DU 
a~CRACFHt114eP.CR 
@CRACFH11eeP.CR 
ACFRG 

OvreP. DATA 


2eDU 


ACFLE 
P3eSD.ACErDL 
AC FL1 


STORE NEW POSITION 


AND ALTERNATE BUFFER 


WAS END TAPE CALL 
NO EXIT BACK 


MOVE L.~R. TO CURRENT BUFFER 


NOT ENOUGH ROOM IN CURRENT BUFFER 


PO »SD.KL DL 
«KLINT,7 PO 
ACFLH 
LSTAC 
ACFLE 


WAS CALL FROM IHLR 
NO 

COUNT OF NOLCST L.R. 
GO» OPEN GATE AND RETURN 
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10s06105 
10806110 


@ @ 
® @ 
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, 8 e 

EP13 ACTFL (PROCESS ACCOUNTING FILE REQUEST) 

:@ 5566 * ® 

007120 5567 ACFLH NULL 

007120 007150 0732 00 010 5568 LREG ACFRG 
& 007121 5569 2 OPEN eCRACFoer PCR & 
007123 5570 aCALLX .MDISFA16 
INHIB SAVE/CN 
7s © 007123 600220 7403 00 000 STXO oSTMPXeeP.SSA @ 
| 007124. ICLIMB SD.SVXe% MDISP*644+16,EAX0 
007124 005720713400 000 VFD 18/.MDISF*64416409/71341/161/001/006/M, 
5 @ 007125 000000606122 000 VFD 1/09/04 8/0 1 /.N01/0002/002/0012/804SVX & 
| INHIB RESTORE 
5571 * 
7 @ 007126 006667 7102 00 010 5572 TRA ACTFL GO TRY IT AGAIN & 
5573 * 
| 5574 * 
: @ 007127 5575 EOF NULL =0000010,duU SET EOF BIT eS 
007127 007131 7102 00 010 5576 TRA EOR+1 

| 5577 * 

; © 007130 5578 EOR NULL & 

007130 000004 2352 03 O00 5579 LDA =0000C04,du 

| 007131 700361 2553 00 O00 5580 ORSA oCRACFserF.CR REFLECT EQF EOR FLAG 

: @ 5581 * & 

| 007132 700374 2203 00 000 5582 > LDXO «CRACF+1146P.CR 

| 007133 700373 1203 00 O00 5583 SBLXO .CRACFH1CreP.CR 

: @ (07134 000001 1002 03 O00 5584 CMPXO 1/DU ©@ 

| 007135 007015 6C12 00 010 5585 TNZ ACFL3 GO » DUMP THE CURRENT BUFFER 

| 007136 040001 2352 07 O00 5586 LDA =040001,0L NO BUFFER TO DUMPCLOAD REQUEST STATUS. 

1 ©@ 007137 100023 2223 00 ON0 5587 LDX2 eWEACFseeF.10Q REQUEST TO GET C.C & 

007140 100006 7553 12 Q00 5588 STA oWEICMs2-P.10Q 

: 007141 100011 7553 12 000 5589 STA «WEFCM,2 oP. 100 

i ) 007142 002000 2352 07 O00 5590 LDA oFFOD1T,0L RESET DATA FLAG & 

| 007143 100001 6553 12 000 5591 ERSA eWEPRVs2-P.10Q 

| 007144 007026 7102 00 010 5592 TRA BTLS 

1 @ $593 INHIB OFF @ 

; 5594 x 

| 5595 * 

1 @ 007145 5596 ACTFT BSS 1 TEMP, STORAGE @ 

: 007146 000000000000 000 S597 LSTAC OCT 0 LOST ACCT COUNT 

| 007147 oo0000000000 000 5598 LOGNO OCT a) 

7 @ 007150 5599 EIGHT @ 

007150 5600 ACFRG BSS 8 

| 5601 * 

7 @ 000013 5602 IDS BOOL 13 e 
® & 
eo @ 
@ e 

e @ 


1245T 02 


Teele 9 
007160 006013 
00717161 001761 
007162 700361 
007163 100023 
007164 100006 
007165 040001 
007166 9007220 
007167 700361 
007170 000014 
007171 007205 
007172 700510 
007173 014061 
007174 007264 
007175 370000 
007176 00723e 
007177 700361 
007200 040000 
007201 007264 
C07202 700510 
007203 434000 
CO07204 007264 
007205 700361 
CO7206 030000 
CO7207 007227 
C07210 100000 
007211 700361 
CO7212 700361 
007213 000003 
007214 700002 
007215 000467 
007216 100023 


09.357 


007160 
4714 07 000 
4714 07 900 


2351 00 000- 


2221 00 000 
2361 12 000 
1160 07 000 
6000 00 010 
0541 00 000 
3150 03 000 
6010 00 010 
2351 00 9000 
3150 00 010 
6010 00 9010 
3750 03 900 
6000 00 010 
2361 00 000 
3160 03 000 
6000 00 9010 
2351 00 000 
1150 03 000 
6010 00 9010 


0072C5 
2351 00 000 
3150 03 900 
6000 00 010 
2350 03 000 
2551 00 000 
6557 00 9000 


007213 
6306 04 7216 
7103 00 000 
000001 000 


2221 00 9000 


5605 
5 606 
5607 
5608 
5 609 
5610 
5611 
5612 
5613 
5614 
5615 
5616 
5617 
5618 
5619 
5 620 
5621 
5622 
5623 
5 624 
5625 
5 626 
5627 


H6600J7.002 


1/0 


S UP ERV IS OR 


ACTFL COURTESY CALL ROUTINE 


> + + € & & ee + HF H HK HE 


CFCC 


5 628 | 


5629 
5630 
5 631 
5 632 
5633 
5 634 
5635 
5 636 
5637 
5 638 
5639 
5640 
5641 
5642 
5643 
5 644 
5645 
5 646 
5647 
5648 


CLOST 


5649 | 


7912191 CS0 PAGE 


THIS ROUTINE IS EXECUTED AS A POPM PROCESS WHEN 
1/0 COMPLETION ON ACCOUNTING FILE I/0 WITH CC 


STATUS IS CHECKECL »~WITH TAPE EXCHANGE PERFORMED 
WHEN REQUESTED AS 1/0 HAS COMPLETED SATISFACTORY» POPM 


REFRESHES A 


ehEACF 1/0 ENTRY» AND LINKS IT WITH STOP FLAG 


THEN WRITE FLAG IS RESET IN ,CRACF. 


NULL 
LDP 
LOP 
LDA 
LDX2 
LDQ 


_CMPQ 


TZE 
AOS 
CANA 
TNZ 
LDA 
CANA 
TNZ 
ANA 
TZE 
LDQ 
CANQ 
TZE 
LDA 


_CMPA 


TNZ 


NULL 
LDA 
CANA 
TZE 
LDA 
ORSA 
ERSA 


2 CALL 
INHIB 
EPPRO 
TRA 
ZERO 
INHIB 
LDX2 


P1/SD.IOGoDL 
PI» eCTYP »DL 
oCRAC Fee P.CR 
oWEACFseF.10Q 
eWEICMo2 »PLI0Q 
=O0400C1-EL 
CLOSTC 
@CRAC Foe F.CR 
=Q0000C14,D0U 
CLOST 
@eCRSKT+,WEENDs»-P.CR 
=0577CO0C 
CCSNG 
=0370000,D0U 
CCSOK 
eCRACFeeF.CR 


= 040000, dU 


CCSNG 
eCRSKT+,WEENDs-oP.CR 
70434000 dU 

CCSNG 


»CRACFasF.CR 
=0300C0,C0U 
CLOSTT 
=0100C00,DU 
aCRACFseeP.CR 
eCRAC Fao F.CR 


oMPOPV,1 
SAVEsCN 

*+3,5 
»~CRCALsoF.CR 
eMPOPVes1 
RESTORE 
»aWEAC Fs FI 0Q 


GET TYPE O DESC 


X2 HAS I/0 ENTRY OFFSET FOR ACCT 
GET CMD 


REQS TO GET C.C TO EXCHANGE 


GET STATUS. 
ABORT STATUS 


READY STATUS 
DISC ERROR 


NOT EOT »oTI 


IS IT TAPE OR DISC ACCT 
TAPE ACCT/CALL ACTTO SWITCH TAPES 


RELOAD ACCT ENTRY ADDR 
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007217 007232 
c07220 002000 
007221 100001 
007222 700472. 
007223 100006 
007224 700475 
007225 100011 
007226 007205 
CO7227 69000003 
007230 700002 
007231 000004 


12-27-79 


09.357 


7100 Q0 


007220 


2350 07 


007227 
007227 


6306 04 
7103 00 
000001 


H6600J7.002 


010 


000 
000 
000 
000 
000 
000 
010 


12.52 
000 
000 


5650 
5651 
5652 
5653 
5654 
5655 
5656 
5657 
5 658 
5659 
5660 
5661 
5662 
5663 


5664 
5665 


* 


* 


CLOSTC 


* 


CLOSTT 


1/0 


TRA 


NULL 
LDA 
ORSA 
LDA 
STA 
LDA 
STA 
TRA 


NULL 


@CALL 


INHIB 
EPPRO 
TRA 
ZERO 
INHIB 


S§S UP ERV IS OR 


ACTFL COURTESY CALL ROUTINE 


CCSOK 


CHANGE CMD FOR ACCT 
oF FOD1s4DL 

eWEPRVse2 P2108 
eWEICMF+.CRSKT oe PCR 
aWEICMs2-P.100 
eWEFCMF+, CRSKT oo PLCR 
eWEFCMse2 »P. 100 
CLOST 


~MACTSo1 
SAVEs*CN 
*+3,5 
«CRCALoo F.CR 
eMACTSo#1 
RESTORE 
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REFRESH I/0 QUEUE TO PURGE DISC 
CLOSE 

SET 1ST DATA REGION FLAG SET 
RESET 1ST CMD 


RE-~SET 2ND CMD 


EOT EXCHANGE TAPE 
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12-27-79 
007232 000000 
007233 006130 
007234 006056 
007235 700373 
007236 300000 
007237 700361 
007240 040000 
007241 007257 
007242 100000 
007243 007333 
007244 700363 
007245 700000 
007246 003774 
007247 000000 
007250 000363 
007251 777777 
007252 011206 
007253 007323 
007254 700512 
007255 700512 
007256 100006 
007257 014062 
007260 700361 
007261 000003 
007262 700002 
007263 000057 


09.357 H6600N7.002 1/0 §S UP ERVIS OR 


ACTFL COURTESY CALL ROUTINE 


5667 * 
007232 5668 CCSOK NULL 
6240 12 000 5669 EAX4 0-2 
4724 07 000 5670 LOP P2eSD.CRA-DL 
5671 * 
4734 07 O00 5672 LDP P3eSD.ACBsDL 
2211 00 O00 5673 LOXx1 @CRACF4+1CoreP.CR 
7411 00 O00 5674 STX1 Oro P3 
2351 00 O0C 5675 LDA eCRAC Feo PCR 
3150 03 000 5676 CANA =0400C0,0U 
6010 00 010 5677 T™NZ TPSKA 
3150 03 O00 5678 CANA =0100000,bdU 
6010 00 010 5679 TNZ LOGEF 
2221 00 000 5680 LDX2 eCRAC FH+2 «oP. CR 
7221 12 QO00 5681 LXL2 Or2eP.CR 
3620 03 O00 5682 ANX2 eFCHNX*DL 
5683 * 
2360 03 O00 5684 LDQ O-DU 
6230 00 O00 5685 EAX3 a CRAC FH2 
4110 03 O00 5686 LDE -1,DU 
7050 00 010 5687 TSx5 MSCSK 
7100 00 010 5688 TRA SKERR 
5689 * 
2351 00 O00 5690 LDA @CRASAsoF.CR 
7561 00 000 5691 STQ eCRAS Ass, F.CR 
5692 * 
007256 5693 STSKA NULL 
7551 14 O00 5694 STA eWEICM44,P, 100 
007257 5695 TPSKA NULL 
5696 x 
2350 00 010 5697 LOA —=20377763777777 
3551 00 000 5698 ANSA »CRAC Fas F.CR 
5699 * 
007261 5700 ENDC eAENDC 
007261 2a CALL »MDISF,5 
INHIB SAVEsON 
6306 04 7264 EPPRO *+3,$ 
7103 00 o000 TRA eCRCALoer FLCR 
cCoo00s 000 ZERO eMDISPs5S 
INHIB RESTORE 
5701 * 
5702 * 
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SET CR DESC AS A PAT SEG 


SET DATA ADDR FOR WRITE 


TAPEsNO SEEK ADDR IS NEEDED 


GOT LOG 


X2 HAS LPCX 


P2 HAS CR DESC AS A PAT SEG 


SET MSKWPT FLAG EL8. 
GET SEEK ADDRESS €L8. 
ERR 


RETRIEVE CURRENT S.A 
SAVE NEXT S.A 


SET SEEK ADDR 


RESET WRITING FLAG 


END COURTESY CALL | EL8.. 
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12-27-79 
007264 100023 
007265 100000 
007266 700361 
007267 040000 
007270 007302 
007271 000003 
007272 700002 
007273 000467 
007274 700361. 
007275 000600 
007276 000600 
007277 007305 
007300 100023 
007301 007232 
007302 000003 
007303 700002 
007304 000004 
007305 006056 
007306 100023 
007307 300000 
007310 700361 
007311 000001 
007312 300000 
007313 100004 
007314 007777 
007315 100004 
007316 100005 
007317 001777 
007320 100005 
007321 007261 
007322 004022 


09.357 


007264 


2241 
0541 
2351 
3150 
6010 


007271 


6 306 
7103 


00 
14 
00 
03 
00 


04 
00 


000002 


2351 
3750 
1150 
6010 
2221 
7100 


0073C2 


0073C2 


6 306 
7103 


00 
03 
03 
00 
00 
00 


04 
00 


000002 


0073C5 


4734 
2241 
2211 
7221 
0220 
7421 


7211 
3610 
4471 
£211 
3610 
4411 


6 360 
7100 


07 


H6600J7.002 


000 
000 
000 
000 
010 


7274 
000 
000 


000 
000 
000 
010 
000 
010 


13:05 


000 
000 


000 
000 
000 
000 
000 
000 


000 
000 
006 
000 
000 
000 


010 
010 


1/0 


S$ UP ERVIS OR 


ACTFL COURTESY CALL ROUTINE 


5704 CCSNG 


5705 * 
5706 
5707 
5708 
5709 
5710 
5711 * 
5712 


5713 * 
5714 
5715 
5716 
5717 
5718 
5719 
5720 * 
5721 * 


5722 TPCFG 


5723 * 
5724 


5725 * 


5726 NBACK 


5727 
5728 
5729 
5730 
5731 
5732 
5733 * 
5734 
5735 
5736 
5737 
5738 
5.739 
5740 * 
5.741 
5742 
5743 * 


NULL 


LOX4 
AOS 
LDA 
CANA 
TNZ 


«CALL 
INHIB 
EPPRO 
TRA 
ZERO 
INHIB 


LDA 
ANA 
CMPA 
TNZ 
LDX2 
TRA 


NULL 


2 CALL | 


INHIB 
EPPRO 
TRA 
ZERO 
INHIB 


NULL 
LOP 
LDX4 


LOXx1 


LXL2 
ADLX2 
STX2 


LXL1 
ANX1 
SXL1 
LXL1 
ANX1 
SXL1 


EAQ 
TRA 


ERROR PRCCESSING 
eWEAC Feo F.I0Q 
eWEST +4eP.100 
eCRAC Feo F.CR 
=0400CO,s DU 

TPCFG 


oMPOPVe2 
SAVEs*ON 
*+3,5 
»aCRCALsas PCR 
«MPOPVs2 
RESTORE 


eCRAC For P.CR 
=0600,D0U 
=0600,DU 
NBACK 
eWEAC Feo PL10Q 
CC SOK 


eMACTSs2 
SAVEsCN 

a+3 55 
eCRCALsoP.CR 
eMACTSs2 
RESTORE 


P3,SD.ACEsDL 
eWEACFseo FLI0Q 
Or P3 
@«CRAC Foo F.CR 
1/DU 

Orit oP3 


eWESCT#4oP.10Q 
=07777/DU 
eWESCTs#4 oP. 100 
»WEPEPs4 -P.10Q 
=0001777,0U «| 
»~WEPEPs44P.100 


ENDC 
LINKF 


7912191080 


TAPE CONFIGURED 


DISC EXCHANGE ERR 


PURGE/LOST FLAG SET -=-LOSE RECORD 


EXCHANGE TAPE 


RELOAD ACB SEG DESC 


I/Q FOR ACCT STILL SET UP 


FETCH DATA ADDR 
BLOCK SER# . 


STORE IN RECORD 


TURN OFF ANY EOT BITS 


RESET GPR CNTRL FLAG 


SET RETURN 
LINK I/O FIRST 


PAGE 


148 


-EL8&. 
EL8. 
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12-27-79 
007323 100000 
007324 007331 
007325 100000 
007326 700361 
007327 700512 
007330 007256 
007331 000070 
007333 000003 
007334 700002 
007335 000467 
007336 100023 

007257 


007337 
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ACTFL COURTESY CALL RCUTINE 


007323 5744 SKERR NULL 
3160 03 O00 5745 CANQ =0100000.DduU 
6000 00 010 5746 TZE RLERR 
2350 03 000 5747 LDA =0100000 DU SET LOGICAL EOF FLAG 
2551 00 O00 5748 ORSA eCRACFas F.CR 
2351 00 000 5749 LDA »CRASAsoP.CR 
7100 00 010 5750 TRA STSKA 
5751 * 
7160 00 010 5752 RLERR- XEC DBUG 16FW0480 
007332 5753 ZOP 8 ~16FW0490 
5754 * TRA LOGEF 16FWCS00 
5755 ERROR OTHER THAN LCGICAL EOF 
5756 * 
007333 5757 LOGEF NULL 
007333 5758 eo CALL oMPOPVs1 LOG. EOF EXCHANGE 
INHIB SAVEsCN 
6306 04 7336 EPPRO x+3,$ 
7103 00 O00 © TRA a CRCAL + PLCR 
000001 000 ZERO oMPOPVs,1 
INHIB RESTORE 
: 5759 * 
2241 00 000 5760 LDX4 @WEAC For PIT 0Q 
7100 00 010 5761 TRA TPSKA 
5762 * 
007340 5763 E13END NULL 
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C2 EP15 ASTIO € CALL STIO ROUTINE) 


5765 * THIS ROUTINE CALLS STIO AND RETURNS VIA EXIT. 

5766 * THE .CRQGT HAS BEEN SHUT (.SHUT) BY CALLER AND WILL BE 

S767 * OPENED IN STIC. 

5768 * 

S769 x INPUT REGISTERS 

5770 * X2= LCGICAL PRIMARY CHANNEL INDEX 

5771 * X6= KFX 

5772 * X7= CFUNO 

007340 5773 ASTIO NULL 

S774 INHIB ON 
007340 006013 4716 07 O00 5775 LDP P.10QeSD.I10Q, DL ESTABLISH I10Q SEGMENT IOSO4AAM 
C07341 001761 4716 07 O00 5776 LDP Po IOQs.CTYPDL T=0 I10SQ4AAM 
007342 007347 7032 00 010 5777 TSX3 STIO ATTEMPT TO START I/0 
007343 006133 4706 07 O00 5778 LoP PO.SD.KL »DL GET .KL DESCRIPTOR 
007344 000044 2263 17 Q00 5779 LDX6 aKLPRGo7 PO GET ACTIVE PROCESS NUMBER. 10806120 
007345 600214 2373 00 o00 5780 LDAQ ~STEMP4+85eP.SSA RESTORE «STEMP+889 THRU EXIT 
007346 012374 7102 00 010 5781 TRA RLXIT EXIT EL8. 

5782 INHIB OFF 


@ 
© 
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e : 
START I /0 —-- TRACE AND CHANNEL MODULE SELECT 
®& 5784 
$785 *STIO ROUTINE TO DETERMINE WHETHER THERE IS AN I/0 ENTRY WHICH CAN BE 
5786 * STARTED ON A LOGICAL PRIMARY CHANNEL 
@ 5787 * 
5788 * ROUTINE IS CALLEC FROM A LINK ROUTINE, WHICH HAS DETERMINED THAT 
5789 * THE NEW ENTRY ISNT GESPECEC OR THAT THE SI HAS ALREADY OCCURRED 
5790 * | 
° 5791 * ROUTINE IS ALSO CALLED FROM THE INTERRUPT HANDLER WHICH HAS 
5792 x DETERMINED THAT A CHANNEL (PRIMARY OR SECONDARY) IS FREE OR ANY 
@ 5793 * GESPEC CONDITIONS HAVE BEEN SATISFIED 
5794 x 
5795 * THE STIO ROUTINE WILL CALL A CHANNEL DEPENDENT SELECT ROUTINE TO 
& 5796 * SELECT THE NEXT I/0 ENTRY IN THE I/0 STREAM TO START. THE SELECT 
5797 * ROUTINE IS ALWAYS ENTRY 3 CF A CHANNEL MODULE. 
S798 x INPUT TO CHANNEL SELECT ROUTINE IS 
 ) 5799 x 
5800 * X2= LOGICAL PRIMARY CHANNEL INDEX 
5801 * X6= KPX IN EXECUTION 
s 5802 * X7= CPUNO 
5803 * 
5804 * | 
@ 5805 * THE CHANNEL SELECT ROUTINE IS CALLED VIA A TSXO. 
5806 * THE CHANNEL SELECT ROUTINE MUST BE INHIBITED 
5807 * SINCE THE .CRQGT GATE IS SHUT. 
6 5808 * IT HAS TKE FOLLOWING POSSIBLE EXITS. 
5809 x 
5810 « TRA C0 USE THE NORMAL SELECT ROUTINE IN STIO TO 
@ 5811 * SELECT THE FIRST I/0 ENTRY WHICH IS NOT STOPPED, NOT 
| 5812 * GESPECED AND LINKED (STNML). THIS NORMAL ROUTINE 
5813 * WILL THEN DETERMINE IF THE ENTRY CAN BE STARTED 
& 5814 x (CHANNEL AND DEVICE ARE NOT BUSY). IF A. CHANNEL 
5815 * IS FREE BUT THE DEVICE IS BUSY, THE NEXT ELIGIBLE 
5816 * ENTRY WILL BE FOUND AND CHECKED. 
& 5817 * WHEN AN ENTRY IS FCUND WHICH CAN BE STARTED» CONTROL 
5818 x WILL TRANSFER TO SETST TO INITIATE THE 1/0. 
5819 * THE CHANNEL SELECT ROUTINE AT EP 3 CONSISTS OF A 
@ 5820 * TRA CoO ONLY. 
5821 x 
5822 * TRA 140 THE .CRQGT IS SHUT WHEN THE TRANSFER TO 
& 5823 x EPS IS MADE. THE CHANEL HAS A UNIQUE SELECT ROUTINE 
5824 * WHICH WILL DETERMINE WHICH I/0 ENTRY TO START. 
5825 * THE SELECT ROUTINE WILL ALSO DETERMINE IF THE 
& 5826 * CHANNEL AND DEVICE ARE AVAILABLE AT THE TIME OF THE 
5827 * TRA 140 EXIT TO STIO » THE FOLLOWING REGISTERS 
5828 * MUST BE SET 
@ 5829 * 
5830 * X1= TRUE CHANNEL INDEX 
5831 * X2= LOGICAL PRIMARY CHANNEL INDEX 
e 5832 * X42 1/0 ENTRY TO BE STARTED 
5833 * X72 CPUNO 
& 
@ 
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S TA RT I / 0 ~~~ TRACE AND CHANNEL MODULE SELECT 

5834 x 
5835 * TRE .CRQGT MUST STILL BE SHUT AT THE RETURN TO STIO. 
5836 * CCNTROL WILL RETURN TO SETST TO INITIATE THE I/0. 
5837 * 
5838 * TRA 220 THE ~CRQGT IS SHUT WHEN THE TRANSFER IS MADE 
5839 * TO EF3. THE CHANNEL SELECT ROUTINE IN THE CHANNEL 
5840 * MODULE HAS DETERMINED THAT NO I/0 ENTRY IS ELIGIBLE 
5841 * TC BE STARTED (€ AS IN THE CASE OF ALL CHANNELS BEING 
5842 * BUSY). THE .~CRQGT GATE MUST STILL BE SHUT WHEN. THE 
5843 * EXIT IS MADE, THE ONLY REGISTER WHICH MUST BE 
5844 * PRESERVED IS X7= CPUNO 
5845 * 
5846 *« TRA 3,40 THE .»2CRQGT IS SHUT WHEN THE TRANSFER IS MADE TO 
5847 * EP3 THE DS20 CHANNEL SELECT ROUTINE DETERMINES THAT A 
5848 * SEEK CNLY IS TO BE STARTED. UPON RETURN » SM3 AND 4 ARE 
5849 x STORED AND THE QR CONTAINS THE PMX IMAGE, THE .CRQGT IS 
5850 * STILL SHUT. 
5851 * 
5852 * TRA 440 THE .CRQGT IS SHUT WHEN THE SELECT ROUTINE IS 
5853 * CALLED. THE DS20 CHANNEL SELECT ROUTINE DETERMINES THAT 
5854 x THE ASSOCIATED READ OR WRITE FOR A COMPLETED SEEK IS 
5855 * TO BE STARTED. UPON RETURN» SMX3 AND 4 ARE STORED AND 
5856 * THE QR CCNTAINS THE PMX IMAGE. THE 2w~CRQGT GATE IS STILL 
5858 x 
5859 x TRA 500 THE CHANNEL MODULE CAN HANDLE MULTIRECORD 
5860 * COMMANDS. 
5861 * 
5862 * TRA 60 SEND READ CONTROLLER COMMANDS FOR MASS STORE 
5863 * 
5864 * TRA 760 DO CONNECT ACCOUNTING » CONNECT WAS SENT. 
5865 * 
5866 * 
5867 * THE SELECTED ENTRY/-CIF ONE IS FOUND)» WILL REMAIN LINKED BUT THE 
5868 * QUEUE STATUS AND I0S STATUS WILL BE CHANGED TO IN TRANSMISSION, 
5869 * 
5870 « THE I/O ENTRY WILtt BE USED TO FILL THE MAILBOXES AND THE CONNECT 
5871 * WILL BE ISSUED. 
5872 
5873 x 
5874 * RETURN WILL BE MADE TO THE CALLING ROUTINE. 
5875 * 
5876 * 
5877 * INPUT REGISTERS 
5878 x X2= LOGICAL PRIM. CH. INDEX 
5879 x X3= TRANSFER REGISTER 
5880 * X4= 1/0 ENTRY RELATIVE 
5881 * X6= KPX CF I/0 ENTRY 
5882 * X7= CPUNO 
5883 * ~CRQGT SHUT WEEN CALLED 
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12-27-79 
007347 010654 
007350 701400 
007351 003774 
007352 006131 
007353 701403 
007354 000000 
007355 000000 
007356 000002 
007357 000003 
007360 007370 
007361 007732 
007362 010523 
007363 007701 
007364 007703 
007365 007370 
007366 007675 
007367 010502 


09.357 


007347 


7432 
7213 
3612 
4706 
2353 
4707 
5076 
6356 
7103 


7102 
7102 
7102 
7102 
7102 
7102 
7102 
7102 


17 


153 


EL&. 
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S TA RT I / 0 m~- TRACE AND CHANNEL MODULE SELECT 
5884 * 
5885 * ENTRY TO THE STIC ROUTINE IS GENERALLY MADE WITH A TSX3 
5886 * TO STIO.w HOWEVER» THERE ARE OTHER SELDOM USED ENTRANCES. 
5887 * TO THIS ROUTINE AS FOLLOWS. ace 
5888 * 
5889 * ~~ TYFER -~- STSPC -= STGPC -- RSET =-—- RSETI ~~ 
5890 * 
5891 * THIS ROUTINE IS SELF CONTAINED WITH THE EXCEPTION OF 
5892 * THESE LISTED ENTRANCES ABOVE, 
5893 
5894 
5895 INHIB ON 
5896 (THIS IS AN EXTERNAL CCNNECTION INTO STIO ROUTINE) 
5897 STIO NULL 
010 5898 STX3 STI03.7 SAVE RETURN ADDRESS 
000 5899 LXL1 @CRCT 142 6P.CR 
000 5900 ANX1 oF CHNXsDL PRIMARY TRUE CHANNEL INDEX 
000 5901 LDP POsSD.DDDsDL 
000 5902 LDA eCRCT4424P.,CR 
000 5903 LDP PO seAUsePl GET CHANNEL MODULE SEG. I10D 
000 5904 AWDX Ove PO 
7360 5905 EPPR Pr 10S ox*4+258 RETURN REGISTER 
00C 5906 TRA 340P0 TRANSFER TO CHANNEL MODULE EP3 
5907 
5908 
5909 EXIT POINTS 
5910 . 
N10 $911 TRA STNML NORMAL SELECT ROUTINE (0,0) 
010 5912 TRA SETS1 START SELECTED I/0 ENTRY (1,0) 
010 5913 TRA SEXIT NO ACTION (20) 
010 5914 TRA SEEKM ISSUE SEEK FOR X4& ENTRY (3-0) 
010 5915 TRA WRRDM ISSUE READ OR WRITE FOR DS20 (4,0) 
010 5916 TRA STNML NORMAL CSLMRS FOR MLRLSIM ) (540). 
010 5917 TRA STRCR RCR FOR SEEK COMPLETE ON DS180 (6-0) 
010 5918 TRA CONACT DO ACCOUNTING TRACE AFTER CIOC (760) 
5919 
5920 UPON EXIT FROM THE CHANNEL MODULE SELECT ROUTINE THE 
5921 CHANNEL MODULE WILL NOT HAVE MODIFIED THE DESCRIPTOR 
5922 REGISTERS EUT WILL PLT THE INDEX REGISTERS IN THE 
5923 FOLLOWING STATE IF AN ENTRY WAS SELECTED wesc 
5924 
5925 X71 = TRUE CHANNEL INDEX 
5926 X2 = LOGICAL PRIMARY CHANNEL. INDEX 
5927 X4 = I/0 ENTRY ADDRESS 
5928 X6 = KPX OF I/0 ENTRY SELECTED 
5929 X7 = CPUNO 
5930 
5931 
5932 
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12-27-79 
007370 007455 
007371 701401 
007372 010523 
007373 007416 
007374 701200 
007375 007410 
007376 701200 
007377 010000 
007400 010523 
007401 003774 
007402 701203 
007403 003774 
007404 701200 
007405 040000 
007406 010523 
007407 007374 
007410 007663 
007411 007570 
007412 007664 
007413 007420 
007414 007664 
007415 007432 
007416 000000 
007417 010523 
007420 000000 
CO07421 430001 
007422 000300 
007423 100000 
007424 007430 
007425 100000 
007426 007422 


09.357 


007370 
7422 00 010 
2243 12 000 
6002 00 010 
7442 00 010 


007374 
2233 11 000 
6002 00 010 
7213 11 000 
3012 03 000 
6002 00 010 
3612 03 O00 
7223 11 000 
3622 03 000 
7233 11 O00 
3032 03 000 
6012 00 010 
7102 00 010 


007410 
7412 00 010 
7412 00 010 
4502 00 010 
7102 00 010 


007414 
2242 00 010 
6012 00 010 
2242 03 000 
6002 00 010 
2352 03 900 


3362 07 000 
5002 00 000 
2113 14 900 
6C72 00 010 
2203 14 000 
6012 00 O10 
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5934 
5935 
5936 
5937 
5938 
5939 
5940 
5941 
5942 
5943 
5944 
5945 
5946 
5947 
5948 
5949 
5950 
5951 
5952 
5953 
5954 
5955 
5956 
5957 
5958 
5959 
5960 
5961 
5962 
5963 
5964 
5965 
5 966 
5967 
5 968 
5 969 
5970 
5971 
5972 
5973 
5974 
5975 
5976 
5977 
5978 
5979 
5980 
5981 
5982 
5983 


OY + & © + FF HH FH 


TNML 


NTBSY 


1/0 


S TA RT I 


NULL 
STX2 
LDX4 
TZE 

STX4 


NULL 
LDX3 
TZE 
LXL1 
CANX14 
TZE 
ANX1 
LXL2 
ANX2 
LXL3 
CANX3 
TNZ 
TRA 


NULL 
STX1 
STX1 
STZ 
TRA 


NULL 
LOX4 
TNZ 
LDX4 
TZE 
LDA 


LCQ 
RPL 
CMK 
TTF 
LDXO 
TNZ 


S UP ERVIS OR 7912191080 PAGE 


0 wmaw~ NORMAL SELECT ROUTINE 


CONTENTS OF REGISTERS AT ENTRY TO THIS SELECT ROUTINE 


X1 = FRIMARY TRUE CHANNEL INDEX 

X2 = PRIMARY LOGICAL CHANNEL INDEX 

X6 = KPX OR ZERO IF INTERRUPT HANDLER 
X7 = CPUNO 


THE .CRQGT GATE IS CLOSED 


NORMAL SELECT ROUTINE 


PRLCX SAVE PRIMARY LOGICAL CHANNEL INDEX 
oCRCT224P.CR I/Q QUEUE POINTER 

SEXIT . THERE IS NO I/O TO START 

ENTRY I/O ENTRY CANDIDATE 


CHECK THIS CHANNEL 
eCRIO1se1 oP. CR IS THIS CHANNEL BUSY 


NTBSY CHANNEL IS NOT BUSY 
eCRIO141 oP. CR 
oF XBARS DL IS THIS CHANNEL X-BARRED 


SEXIT NO MORE CHANNELS TC CHECK 


154 


oF CHNX,DU TCX OF NEXT X=-BAR 
eCRIO4s1 oP. CR 
oFCHNXsDU LOGICAL CHAN. INDEX FOR THIS TRUE CHA 
«CRIO141 oP. CR 
oF PRCHSDU IS THIS PRIMARY CHAN. ON X=<BAR 
SEXIT YES, NO MORE CHANNELS TO CHECK 
CKCHL GO CHECK THIS CHANNEL 
NON-BUSY CHAN. TO USE AS CANDIDATE 
BESTX 
STRT SAVE CHANNEL STARTING POINT 
BYPAS . 3 ZERO BYPASSED I/0 ENTRY FLAG 
SFND1 
SELECT AN I/O ENTRY 
BYPAS SEE IF AN I/70 ENTRY WAS BYPASSED 
SELC2 USE THIS 170 ENTRY NEXT 
** 9 DU STARTING POINT FOR THIS SEARCH 
SEXIT NO ENTRIES LEFT IN THE QUEUE 
0-D0U . LOCKING FOR ZEROES THAT INCICATE -=- 
NOT STOPPED -=- NOT GESPECED ~~ NOT IN TRANSMISSION 


=0430001.DL MASK =0777777347777 


O-TZE FIND AN I/70 ENTRY 
oWEST 44-F.108 

SELC1 ELIGIBLE ENTRY FOUND 
eWEST 44-F.108 

SFIND TALLY EXHAUSTED 


1245T 02 


Veer e79 
007427 010523 
C07430 100000 
007431 007416 
007432 100003 
007433 007664 
007434 007475 
007435 701400 
007436 000001 
007437 007475 
C07440 100004 
007441 017774 
007442 700000 
007443 770000 
007444 200000 
007445 007475 
007446 = =©100000 
007447 007475 
C07450 006145 
007451 013053 
C07452 000151 
007453 007475 
C07454 000000 
007455 000000 
007456 007475 
007457 437701 
007460 007700 
007461 100000 
007462 007475. 
C07463 007416 
007464 007475 
007465 000300 
CO07466 100000 
007467 007473 
007470 100000 
007471 007465 
007472 007475 
007473 007664 
007474 900000 


09.357 


7102 00 010 


2233 14 000 
7432 00 010 


007432 
7263 14 000 


0342 00 010 
6012 00 010 
7295 A2 000 
3032 03 000 
6012 00 010 
2233 14 O00 
3632 03 000 
2353 13 000 
3752 03 000 
1752 03 900 
6032 00 010 
1152 03 000 
6022 00 010 


4706 07 000 
7002 00 O16 
2353 00 000 
6002 00 010 
6232 01 O00 
1032 03 O00 
6012 00 9010 
3362 07 000 
3752 07 O0C 
2113 14 000 
6002 00 010 
2232 00 010 


6002 00 9010 
5002 00 9000 
2113 13 000 
6072 00 010 
2203 13 O00 
6012 00 010 
7102 Q0 010 


007473 
7442 00 010 
6242 13 000 


007475 


5984 
5985 
5986 
5987 
5988 
5989 
5990 
5991 
5992 
5993 
5994 
5995 
5996 
5997 
5998 
5999 
6000 
6001 
6002 
6003 
6004 
6005 
6006 
6007 
6008 
6009 


6012 


6014 
6015 


6017 
6018 
6019 


6021 
6022 


6024 


6025 


6026 
6027 
6028 
6029 
6030 
6031 
6032 
6033 


H6600)7.002 


PRLCX 


1/0 


S TART I 


TRA 


LDX3 
STX3 


NULL 
LXL6 


LDAC 
TNZ 
LXL3 
CANX3 
TNZ 
LDX3 
ANX3 
LDA 
ANA 
CMPA 
TRC 
CMPA 


TNC 


LDP 


TSXxO 
LDA 
TZE 
EAXS 
CMPX3 
TNZ 
LCQ 
ANA 
CMK 
TZE 
LDX3 


TZE 
RPL 
CMK 
TTF 
LDOXxO0 
TNZ 
TRA 


NULL 
STX4 
EAX4 


NULL 


S$ UP ERVIS OR 


7912191080 PAGE 1 


0 wma~~ NORMAL SELECT ROUTINE 


SEXIT 


oWEST44eF.108 
ENTRY 


oWEPIDs4 oP. 10Q 


NO ENTRY TO START 


POINTER TO NEXT ENTRY IN QUEUE 
SAVE IT 


FIND ANY PRIORITY SELECTS (CTAPE) 


BYPAS 

ELGB1 
~CRCT1+2oP.CR 
eFSTCHSDL 
ELG&1 
oWESCT#4-P.10@ 
oFSCT140U 
03,P.CR 
=0770000 ,DU 
eDCR2C*4C9640U 
ELGB1 

a OMTAP*4096eDU 
ELGB1 


POsSD.SSASDL 
ADESC 
~SPROIse¢P0 
ELGB1 

Os AU 

** DU 

ELGB1 
20437701 »DL 
eFLON eS DL 
eWEST 44,F.10Q 
ELGB1 


TEST PRIORITY BYPASS 
USE X4 ENTRY 


IS CHANNEL STOPPED 
YES» DONT USE PRIORITY SELECT 
TEST» 1/0 REQUEST TO MT~DEVICE 


GET DEVICE TYPE CODE 
IS DEVICE TAPE 

NO 

MAYBE 

NO 


REQUEST FROM INTERRUPT HANDLER 
GET ABSOLUTE P.SSA 

ANY PRIORITY I/0 

NO PRIORITY REQUEST 

PRIORITY REQUEST CHANNEL | 

COMPARE REQUESTED CHAN. TO PRIM. LCX 
REQUEST IS ON ANOTHER CHANNEL 

MASK =0777777340077 

ZERO ALL FIELDS BUT DEVICE # 


PRIORITY DEVICE IS ALREADY IN X4 


ENTRY SET UP A SEARCH OF ALL I/0 ENTRIES 
FOLLCWING X4 LOOKING FOR PRIORITY DEV 
NOT STOPPED -~ NOT GESPECED -- NOT IN TRANSMISSION 
ELG61 NO MORE ENTRIES 
O-TZE PRIORITY SEARCH 


oWEST»3eF.10Q 
PRIOR 
WEST s3eF.10Q 
LOOKA 
ELGB1 


FOUND PRIORITY DEVICE 


TALLY RAN OUT -~ KEEP LOOKING 
NO PRIORITY CEVICE IN QUEUE 


SWITCH TO PRIORITY I/O ENTRY 


BYPAS 
0,3 


SET FLAG FOR BYPASSED ENTRY 
USE PRIORITY ENTRY 


CHECK ELIGIBLE ENTRY FOR STOPPED OR BUSY 


55 


10801005 


10801010 


TOSO1015 
10801020 


10s00980 


@ 
@ 
1245T 02 12-27-79 09.357 H6600J7.002 1/0 SUPERVISOR 7912191080 PAGE 156 
& 
START I 0 --- NORMAL SELECT ROUTINE 
007475 100004 2233 14 O00 6034 LDX3 eWESCT+44P.100 POINTER TO DEVICE SCT & 
007476 017774 3632 03 O00 6035 ANX3 eFSCT1,0U 
007477 700000 7233 13 O00 6036 LXL3 0, 3,-P.CR DEVICE SCT 
007500 000001 3032 03 O00 6037 CANX3 eFSTCHSDL IS DEVICE STOPPED EL8. @ 
007501 007507 6002 00 010 6038 TZE ELGB2 NO EL8. 
007502 010000 3032 03 O00 6039 CANX3 oFMLTCSDL MAYBE, IS IT LEGIT EL8. 
007503 007507 6002 00 010. 6040 TZE ELGB2 NO  ) 
007504 100005 7233 14 000 6041 LXL3 oWEPEFs44P.10Q 
007505 002000 3032 03 O00 6042 CANX3 oF SGPRsDU IS THIS A SPECIAL GEPR I/O ENTRY 
007506 007414 6002 00 010 6043 TZE SELC DEVICE STOPPED W/O SPECIAL GEPR & 
6044 x 
007507 6045 ELGB2 NULL FIND IF DEVICE ALREADY BUSY 
007507 100000 2353 14 O00 6046 LDA aWEST 446 F.10Q GET LOGICAL DEVICE INDEX & 
007510 010000 2752 07 000 6047 CORA oF TRANSDL FORCE IN TRANSMISSION BIT 
007511 017701 3362 07 O00 6048 LC@ =017701sDL MASK =0777777760077 
007512 007455 2232 00 010 6049 LOX3 PRLCX PRIMARY LOGICAL CHAN. INDEX e 
007513 701401 2233 13 O00 6050 LOX3 eCRCTZ36P.CR POINTER TO I/0 QUEUE 
007514 000300 5002 00 O00 6051 LFIND RPL O,TZE DEVICE BUSY SEARCH 
(07515 100000 2113 13 000 6052 CMK eWEST+3-F.10Q @ 
007516 007414 6€72 00 010 6053 TTF SELC DEVICE IS BUSY —~ GET ANOTHER ENTRY 
007517 100000 2203 13 O00 6054 LDXO oWESTs3eF.10Q 
007520 007514 6€12 00 010 6055 TNZ LFIND TALLY EXHAUSTED & 
6056 * 
6057 * X4 NOW POINTS AT AN I/0 ENTRY NOT STOPPED, GESPECED> 
6058 * OR IN TRANSMISSION USING A DEVICE WHICH IS NOT & 
6059 * STOPPED CR ALREADY BUSY. 
6060 * ; 
6061 * X1 = TRUE CHAN. INDEX OF CHANNEL CANDIDATE & 
6062 * X2 = LCGICAL CHAN. INDEX OF CHANNEL CANDIDATE 
6063 * X4 = 1/0 ENTRY ADDRESS 
6064 * X6 = KFX FROM I/0 ENTRY & 
6065 * X7 = CPUNO 
6066 * 
6067 * ~CRQGT GATE IS STILL CLOSED @ 
6068 * 
6069 * MATCH THE I/0 ENTRY WITH THE CHANNEL 
007521 000002 2352 07 O00 6070 LDA eFPRSLZDL r 
007522 100004 3153 14 000 6071 CANA eWESCT»4-6P.100 IS 1/0 FOR PRESELECTED CHANNEL 
007523 007622 6012 00 010 6072 TNZ PRSEL YES, GO TO PRESELECTED CODE 
007524 000001 2352 03 000 6073 LDA 1/DU & 
007525 100011 3153 14 ON0 6074 CANA ~WEFCMs45P.100 DID THIS ENTRY STOP THE CHANNEL 
007526 007552 6002 00 010 6075 TZE THERE NO 
007527 100011 2203 14 000 6076 LDXO oWEFCM,4,-P.10Q FAILING CHANNEL TCX @ 
007530 003774 3602 03 000 6077 ANXO oF CHNX/DL 
007531 701203 7203 10 000 6078 LXLO eCRIO4s0-P.CR 
007532 003774 3602 03 O00 6079 HERE ANXO o FCHNXsDL LOGICAL CHANNEL INDEX & 
007533 000000 6232 10 000 6080 EAX3 0,0 
007534 040000 2352 07 000 6081 LDA oF SNDCSDL IS THIS THE LOGICAL PRIMARY 
CO7535 701400 3153 10 O00 6082 CANA «CRCT140-P.CR CHANNEL INDEX 2 
007536 000003 6002 04 000 6083 TZE 3,1C YES 
] 
@ 


1245T O02 


tea=27-79 
007537 701400 
007540 007532 
007541 007455 
007542 007622 
007543 003776 
007544 100011 
007545 9000002 
007546 701400 
007547 007552 
007550 9000002 
007551 701400 
007552 000001 
007553 701400 
007554 007711 
007555 000002 
C07556 701400 
007557 000002 
007560 007663 
007561 010000 
007562 701200 
007563 007606 
CO7564 701200 
007565 003774 
007566 701203 
007567 003774 
007570 000000 
007571 007606 
007572 701200 
007573 007614 
007574 000001 
007575 701400 
007576 007711 
co7577 9000002 
007600 701400 
007601 007564 
007602 007663 
007603 007564 
CO07604 007663 
007605 007564 
CO07606 007663 
007607 010523 
007610 006000 
007611 100005 


C96 S57 


7203 10 000 
7102 00 010 


1002 00 010 
6002 00 010 
3202 03 000 
3403 14 9000 
2352 07 O00 
3153 13 000 
6012 00 010 
3352 07 000 
3553 13 000 


2352 07 000 
3153 12 000 
6002 00 010 
2352 07 000 
3153 12 000 
6002 04 000 
4502 00 9010 
2352 07 O00 
3153 11 000 
6002 00 9010 


007564 
7213 11 42000 
3612 03 000 
7223 11 900 
3622 03 9000 
1012 03 000 
6002 00 010 
2203 17 000 
6C12 00 010 
2352 07 O00 
3153 12 000 
6002 00 010 
2352 07 000 
3153 12 9000 
6C1i2 00 010 
2202 00 010 
6042 00 010 
7412 00 010 
7102 00 010 


007606 
2212 00 010 
6€46 00 010 
2352 07 000 
3153 14 000 


6084 
6085 
6086 
6087 
6088 
6089 
6090 
6091 
6092 
6093 
6094 
6095 
6096 
6097 
6098 
6099 
6100 
6101 
6102 
6103 
6104 
6105 
6106 
6107 


—-6108 


6109 
6110 
6111 
6172 
6113 
6114 
6115 
6116 
6117 
6118 
6119 
6120 
6121 
6122 
6123 
6124 
6125 
6126 
6127 
6128 
6129 
6130 
6131 
6132 
6133 


H6600J7.002 


THERE 


STRT 


MATH1 


1/0 


START I 


LXLO 
TRA 


CMPXO 
TZE 
LCx0 
ANSXO 
LDA 
CANA 
TNZ 
LCA 
ANSA 


NULL 
LDA 
CANA 
TZE. 
LDA 
CANA 
TZE 
STZ 
LDA 
CANA 
TZE 


NULL 
LXL1 
ANX1 
LXL2 
ANX2 
CMPX1 
TZE 
LDXO 
TNZ 
LDA 
CANA 
TZE 
LDA 
CANA 
TNZ 
LDXxO 
™MI 
STX1 
TRA 


NULL 
LDX1 
TMOZ 
LDA 

CANA 


S UP ERVIS$ 0R 7912191080 PAGE 157 
0 m—~—~ NORMAL SELECT ROUTINE 
~CRCT1/-0eP.CR NOs GET IT 


HERE 


PRLCX 

PRSEL 

eo FCHNX+2 4DU 
oWEFCM44 oP. 108 
oFTORSZDOL 
eCRCT143-P.CR 
THERE 
eFSTCHH+1 ADL 
eCRCT 103 4P.CR 


oF STCHSDL 
eCRCT 142 6P.CR 
SETST 
eFTORSs DL 
@CRCT1424P.CR 
2eIC 

BESTX 

oF XBARsDL 
eCRIOT+14P.CR 
MACH1 


MOVE TO NEXT 
»CRIO141 oP. CR 
oF CHNXsDL 
~CRIO441 +P. CR 
eFCHNX,DU 
we 2 DU 
MACH1 
~CRIO1+14P.CR 
CHBSY 
oFSTCH*DL 
»=CRCT1426P.CR 
SETST 
eFTORSADL 
aCRCT 12 6P, CR 
NXBAR 
BESTX 
NX BAR 
BESTX 
NX BAR 


BESTX 

SEXIT 

eo FREI S+. FSGPRA-DL 
«WEPEF,4,P.109 


ARE WE ON THE SAME SUBSYSTEM 
YES 
IGNORE PRESELECT INDEX 

AND FLAG 


IS CHANNEL DEACTIVATED 
YES 


RESET THE STOP BIT 


IS CHANNEL STOPPED 
NOs START THIS I/0 ON THIS CHANNEL 


IS CHANNEL RESERVED FOR T&D 
NO 
YES: 


DOES CHANNEL HAVE AN X=BAR 


NO 


CHANNEL ON X~BAR 
TRUE CHAN, INDEX OF NEXT X-BAR 


LOGICAL CHAN. INDEX OF THIS TRUE CHAN 
ARE WE BACK TO THE INITIAL CHANNEL 
YES 

IS CHANNEL BUSY 

YES 


IS CHANNEL STOPPED 
NO» START THIS 1/0 


IS CHANNEL RESERVED FOR T&D 
YES, MOVE TO NEXT CHANNEL 


BESTX NEGATIVEs MOVE TO NEXT CHAN. 
SAVE THIS TCX 
TRY NEXT CHANNEL 


10801170 


NOTHING TO START 10$01180 


SPECIAL GEPR OR GEPR REISSUE 


1245T (02 


Vee ete 79 
007612 007414 
007613 007711 
007614 000001 
007615 701400 
007616 007564 
007617 777777 
007620 007663 
007621 007564 
007622 100011 
007623 003774 
C07624 701200 
CO7625 007414 
007626 701203 
CO7627 003774 
007630 900001 
007631 701400 
C07632 007660 
007633 200000 
007634 100004 
007635 007660 
007636 000002 
007637 701400 
007640 007414 
007641 000001 
(007642 100011 
007643 007650 
007644 006000 
007645 100005 
007646 007414 
007647 007660 
C07650 100011 
007651 000002 
007652 701400 
007653 000002 
007654 100004 
007655 007660 
007656 014063 
007657 100011 


09,357 


6002 00 010 
7102 00 010 


007614 
2352 07 000 
3153 12 000 
6012 00 010 
2202 03 O00 
7402 00 010 
7102 00 O10 


007622 


2203 14 000 
3602 03 000 
2233 10 000 
6012 00 010 
7233 10 O00 
3632 03 000 
2352 07 000 
3153 13 000 
6002 00 010 
2352 03 9000 
3153 14 000 
6C12 00 010 
2352 07 O00 
3153 13 000 
6012 00 010 


2352 03 000 
3153 14 000 
6012 00 010 
2352 07 000 
3153 14 000 
6002 00 010 
7102 00 010 


007650 
6553 14 000 
3352 07 000 
3553 13 000 
2352 07 06000 
3153.14 000 
6012 00 010 
2352 00 010 
3553 14 000 


007660 


H6600J7.002 1/0 
S TA RT 

6134 TZE 
6135 TRA 
6136 * 
6137 * 
6138 CHBSY NULL 
6139 LDA 
6140 CANA 
6141 TNZ 
6142 LDXO 
6143 STXO 
6144 TRA 
6145 * 
6146 PRSEL NULL 
6147 
6148 LDXO 
6149 ANXO 
6150 LDXx3 
6151 TNZ 
6152 LXL3 
6153 ANX3 
6154 LDA 
6155 CANA 
6156 TZE 
6157 LDA 
6158 CANA 
6159 TNZ 
6160 LDA 
6161 CANA 
6162 TNZ 
6163 * 
6164 PRSL1 NULL 
6165 LDA 
6166 CANA 
6167 TNZ 
6168 LDA 
6169 CANA 
6170 TZE 
6171 TRA 
6172 * 
6173 PRSL2 NULL 
6174 ERSA 
6175 LCA 
6176 ANSA 
6177 LDA 
6178 CANA 
6179 TNZ 
6180 LDA 
6181 ANSA 
6182 * 
6183 FIRE NULL 


SUPERVISOR 7912191080 PAGE 158 

0 mwamm NORMAL SELECT ROUTINE 

SELC NO» GET A NEW I/0 ENTRY 

SETST PERMIT THIS I/0 THROUGH THIS STOPPED 
CHANNEL 

oFSTCKsDL 


oCRCT 142 oP. CR 
NXBAR 
~1,0U 
BESTX 
NXBAR 


IS CHANNEL STOPPED 
YES» GET ANOTHER CHANNEL 


SET BESTX TO ~-1 
TRY ANOTHER CHANNEL 


PRE“SELECTED CHANNEL LOGIC 


oWEFCM,4 oP. TORQ 
oF CHNXe4DL 
«CRIO1/40eP.CR 
SELC 
eCRIO4+O-P.CR 
oF CHNX,DU 
eFSTCHsDL 


oCRCT1+36P.CR 


FIRE 

«FBT1,D0U 
eWESCT+4,P, 108 
FIRE 

oF TDRSZDOL 
~CRCT1434P.CR 
SELC 


16DU 
oWEFCM,4,P.10Q 
PRSL2 


FREI S+#.FSGPRADL 


eWEPEP24 oP. 10Q 
SELC 
FIRE 


eWEFCMs4 oP. T0Q 
20DL 
eCRCT1434P.CR 
eFPRSLsDL 
WESC 144 6P. 108 
FIRE 
=0774000777777 
eWEFCM,4 oP. 10Q 


TCX OF PRESELECTED CHAN. FROM I/O ENT 
IS PRESELECTED CHANNEL BUSY 
YES, FIND ANCTHER I/0 ENTRY 


LOGICAL CHAN. INDEX OF PRESELECT CHAN 


IS PRESELECTED CHANNEL STOPPED 
NO» START THIS I/0 ON PRESELECTED CHA 


IS THIS A T&D I/0 ENTRY 

YES» START THIS I/C ON PRESELECTED CH 
NO 

IS PRESELECTED CHAN, RESERVED FOR T&D 
YES» TRY ANOTHER I/O ENTRY 


DID THIS ENTRY STOP THE CHANNEL 
YES 


SPECIAL GEPR OR GEPR REISSUE 
NO» FIND ANOTHER 1/0 ENTRY 
YES» START THIS I/C ON PRESELECTED CH 


RESET ENTRY STOPPED CHAN FLAG 
MASK =0777777777776 
RESET PRESELECTED. CHAN. STOP BIT 


LOOK AT PRESELECTED CHAN FLAG 
CHANNEL IS PRESELECTEDs» FIRE CONNECT 


CLEAR PRESELECTED CHAN INDEX 


FIRE OFF THIS I/0 ON PRE-SELECTED CHANNEL 


1245T C2 12-27-79 09.357 


007660 
C076 61 
007662 


007663 
007664 


000000 6212 10 
000000 6222 13 
007711 7102 Q0 


oo00o0000cdNn 
000000000000 


000 
000 
010 


000 
000 


H6600457.002 1/0 
START 1/0 --- 

6184 EAX1 0-0 
6185 EAX2 0-3 
6186 TRA SETST 
6187 * 
6188 BESTX OCT 0 
6189 BYPAS OCT 0 
6190 


S UP ERVIS OR 791219T0S0 PAGE 159 


NORMAL SELECT ROUTINE 


TRUE CHAN INDEX OF PRESELECTED CHAN 
LOGICAL CHAN INDEX FOR PRESELECTED CH 
START THIS I/0 


BEST CHANNEL FOR STIO SELECT 
SAVE A BYPASSED 1/0 ENTRY 


007665 


007666 
007667 
007670 
007671 


007672 
007673 


CO7674 


007675 
007676 
007677 
007700 


4245T 02 12-27-79 


010654 
001000 
100001 
100003 
000002 


000002 
007751 


010654 


701200 
000000 
000000 
007751 


09.357 


007665 
7432 17 O10 
2352 07 O00 
2553 14 000 
7263 14 000 
2202 03 900 


2222 03 000 
7102 00 010 


007674 


7432 17 O10. 


007675 


7443 11 4000 


2202 03 000 
2222 03 000 
7102 00 010 


007701 


H6600J 7.002 1/0 §S UP ERVIS OR 79721910S0 PAGE 160 

S TA RT I / 0 am~~ SEND S$CON FOR SELECTED ENTRY 

6192 

6193 (THIS IS AN EXTERNAL CCNNECTION INTO STIO ROUTINE) 

6194 TYPER NULL ENTRY TO REISSUE CONSOLE READ DUE TO OPERATOR ERROR 

6195 STX3 STI03 47 SAVE RETURN ADDRESS 

6196 LDA eF FDOD2eDL SET FALGs PRESENT SECOND DATA 

6197 ORSA eWEPRV24 oP. 10Q 

6198 LXL6 eWEPID44 oP. I0Q 

6199 LOXxO 270U SWITCH INDICATING ISSUE SECOND PART 

6200 * OF DUAL COMMAND 

6201 LDX2 20DU SWITCH INDICATING QG=REG HAS COMPLETE 

6202 TRA FLMBX FILL MAILBOXES AND ISSUE CONNECT 

6203 

6204 

6205 

6206 CTHIS IS AN EXTERNAL CCNNECTION INTO STIO ROUTINE) 

6207 STSPC NULL START SPECIAL CCMMAND =— ENTRY TO START I/0 ROUTINE 

6208 * 

6209 * THIS ROUTINE WILL START A SPECIAL COMMAND TO A 

6210 «* CHANNEL OR DEVICE WHICH HAS AN ERROR CONDITION 

6211 * WHICH REQUIRES THE OPERATING SYSTEM TO SEND 

6212 * A COMMAND WHICH WUST BE THE NEXT COMMAND TO THAT 

6213 * DEVICE OR CHANNEL BEFORE PROPER OPERATION CAN 

6214 « CONTINUE. THE CHANNEL IS NOT RELEASED BETWEEN 

6215 * THE PREVIOUS COMMAND AND THIS SPECIAL COMMAND, 

6216 * 

6217 * THIS ROUTINE FILLS IOM MAILBOXES AS THE INFORMATION 

6218 * DICTATES FROM A PSUEDO 1/0 ENTRY CONTAINED IN 

6219 * THE CHANNEL MCDULE, 

6220 * 

6221 * 

6222 * REGISTERS WHEN ENTERED ARE AS FOLLOWS 

6223 * 

6224 * INDEX REGISTER # 1 = TRUE CHANNEL INDEX 

6225 * H 2 = LOGICAL PRIM CHAN INDEX 

6226 x # 3 = ENTRY ADDRESS TO STIO 

6227 * # Gs ADDRESS OF PSUEDO 1/0 ENTRY 

6228 * # 6 = KPX 

6229 * # 7 = CPUNO 

6230 * 

6231 * 

6232 STX3 STIO0347 SAVE RETURN ADDRESS 

6233 STRCR NULL SEND R.C.R. FOR SEEK COMPLETE CEXIT #6) 

6234 STX4 eCRIO1,1 oP. CR SET CHANNEL BUSY 

6235 LOXO0 0,0U SET X # 0 FOR NORMAL COMMAND SEQUENCE 

6236 LDX2 00U SET SWITCH FOR PMB NOT IN Q=REG 

6237 TRA FLMBX 

6238 

6239 

6240 SEEKM NULL ISSUE FIRST HALF ~-ONLY~— OF DUAL COMMAND. CEXIT #3) 

6241 * 


A~REG CONTAINS PMB--LESS DEV. & CHAN, 


10800890 


1245T C2 


12-27-79 
007701 000003 
007702 007704 
007703 900002 
007704 000044 
007705 000001 
007706 007740 
007707 010654 
007710 100003 
007711 100004 
007712 900010 
007713 007732 
007714 014064 
007715 100006 
007716 100011 
007717 007730 
007720 770000 
007721 400000 
007722 007732 
007723 240000 
007724 007732 
007725 000001 
007726 050003 
007727 007734 
007730 100006 
007731 100011 
007732 000000 


09.357 


2202 03 000 
7102 00 010 
0077063 
2202 03 000 


7332 00 000 
2222 03 000 
7102 00 010 


007707 
7432 17 010 
7263 14 900 


007711 


7203 14 900 
3002 03 900 
6012 00 010 
2362 00 O10 
2353 14 000 
2113 14 O00 
6002 00 010 
3752 07 O00 
1152 07 000 
6002 00 010 
1152 07 000 
6002 00 010 
2202 03 000 


2352 07 000 
7102 00 010 


7203 14 O06 
4403 14 000 


007732 
2202 03 0N0 


H6600J7.002 


1/0 


S TA RT I 


LOXO 
TRA 
NULL 
Lox0 
LRS 


LDX2 
TRA 


/ 


S UP ERV IS OR 7912191 0S0 PAGE 161 

0 maw~ SEND $SCON FOR SELECTED ENTRY 

3D0uU SWITCH INDICATING ISSUE FIRST PART OF 
DUAL COMMAND -~- SINGLE DCW-PRESE 


WRROM +1 


ISSUE SECOND HALF --ONLY~—~ OF DUAL COMMAND CEXIT 


A-REG CONTAINS PMB ~ LESS DEV. & CHAN 


2e0U SWITCH INDICATING ISSUE SECOND HALF 0 
DUAL COMMAND 

36 MOVE PARTIAL PMB TC Q-REG 

1/DU SWITCH INDICATING Q-REG HAS PARTIAL P 

SETCB . SET CHAN. BUSY AND ISSUE CONNECT 


(THIS IS AN EXTERNAL CONNECTION INTO STIO ROUTINE) 


NULL 
STX3 
LXL6 


NULL 


LXLO 
CANXO 
TNZ 
LOQ 
LDA 
CMK 
TZE 
ANA 
CMPA 
TZE 
CMPA 
TZE 
LDXO0 


LDA 
TRA 


LXLO 


$XLO 


NULL 
LDXO 


tutu 


START GESPECED ENTRY CINT. HANDLER EXIT #2 OR 4LINK). 
ST103,7 SAVE RETURN ADDRESS 
»WEPIDs4sP.100 


ISSUE A SINGLE I/0 COMMAND CFROM COMMON SELECT) 


TRUE CKANNEL INDEX 
LOGICAL PRIMARY CHANNEL INDEX 
I/O ENTRY ADDRESS 
SELECTED 1/0 KPX (MAY BE DIFFERENT THAN .LINK KPX) 
CPUNO 
eCRQGT GATE IS STILL SHUT 


eWESCT£4 oP. 108 


a» FSEEKs0U IS SEEK ADDRESS IN 170 ENTRY 

SETS1 YESs NORMAL .CONNECT SEQUENCE 

=0007777000077 MASK OUT RCD CNT & PRESL CHAN. 

oWEICMs4.P.108 DUAL COMMAND ~~ FIRST COMMAND 

oWEFCMZ4,P, 108 DUAL COMMAND ~~ SECOND COMMAND 

SETSO SINGLE PART 1/70 CMND 

oFCCMD,DL CHANNEL COMMAND FIELD -— FIRST COMMAN 

=04C0COO-DL IS THIS A SPECIAL MPC CHAN. COMMAND 

SETS1 YES,» NORMAL CONNECT SEQUENCE 

=0240C00-0L IS THIS A MULTIPART COMMAND 

SETS1 YES» NORMAL CONNECT SEQUENCE 

12DU SWITCH SET TO ISSUE FIRST HALF OF DUA 
COMMAND ONLY ~~ MULTI DCW*S ALLOWE 

=0050003,0L. STATUS OF SEEK STARTEDs IN XMISSION 

SETS2 


eWEICMo4 oP. 10Q 
eWEFCM>4 oP. 100 


OND CMND AND RECD CNT EQUAL 
IN I/O ENTRY FOR GEPR REISSUE 


START SELECTED I/0 ENTRY CEXIT #1) 
O,0U | SWITCH SET FOR NORMAL CONNECT SEQUENC 


@ @ 
® e 
1245T 02 12-27-79 09.357 H6600J7.002 1/0 S UP ERVIS OR 7912191080 PAGE 162 
® | e 
S TART 0 —~~-- SEND SCON FOR SELECTED ENTRY 
& 007733 010003 2352 07 O00 6292 LDA oF TRANF3 JDL SET IN=TRANSMISSION STATUS IOSO4AAM & 
6293 * 
007734 000100 3362 07 Q00 6294 SETS2 LCA =0100 DL MASK = 777777 777700 | 
a) 007735 100000 3563 14 000 6295 ANSQ eWEST +44 F100 AND OUT I/0 ENTRY GUEUE STATUS ral 
007736 100000 2553 14 000 6296 ORSA WEST 64 FP.10Q OR IN NEW 1/0 ENTRY STATUS 
007737 QOO0000 2222 03 000 6297 LDX2 O,DU SWITCH SET FOR PMB NOT IN Q-REG 
6298 * | & 
007740 6299 SETCB NULL 
007740 701201 4503 11 O00 6300 STZ »CRIO2e14P.CR ZERO CONNECT TIME TO STOP LOST INT PR 
@ 0077 41 701200 7443 11 OOQ 6301 STX4 eCRIO141 oP. CR SET CHANNEL BUSY @ 
007742 006024 4706 07 000 6302 LDP PO»SD.PIDsDL 14FW1520 
007743 000000 6352 16 000 6303 EAA 06 14FW1530 
& 007744 900002 7352 00 O00 6304 ALS 2 KPID INDEX 14FW1540 & 
007745 701003 7527 11 O00 6305 STWS eCRMB4,15P.CR SAVE CURRENT WSR 4-7 14FW1550 
007746 000001 7727 01 000 6306 LOWS 1eAUs PO SET WSR 4-7 FOR PRCGRAM 14FW1560 
@ 007747 600160 0543 00 O90 6307 ACS oSRGQCTas FSSA ADD TO IN=TRANSMISSION COUNT. 14FW1570 & 
007750 701003 7727 11 900 6308 LDWSs ~CRMB 451 +P.CR RESTORE WSR 4-7 10801150 
6309 
r 6310 * e 
007751 6311 FLMBX NULL FILL THE MAILBOXES STARTING HERE. 
6312 * ALL CONNECTS TO BE ISSUED CEXCEPT AT GIVRL) 
© 6313 x WILL ENTER THIS BLOCK OF CODE AT FLMBX AND @ 
6314 * WILL NOT EXIT TILL THE CONNECT IS ISSUED. 
6315 * 
& 6316 * . @ 
6317 x GQ-REG = MAY CONTAIN PARTIAL OR FULL PMB 
6318 * XC = SWITCH . 
@ 6319 * IF X0=0 NORMAL I/0 CONNECT SEQUENCE e 
6320 * XO0=1 ISSUE FIRST HALF OF DUAL COMMAND 
6321 * (MULTIPLE DCW'S ALLOWED) 
@ 6322 * XO=2 ISSUE SECOND HALF OF DUAL COMMAN ) 
6323 * XO0=3 ISSUE FIRST HALF OF DUAL COMMAND 
6324 x CSINGLE DCW ONLY -— PRESEEK) 
& 6325 * X1 = TRUE CHANNEL INDEX @ 
6326 * X2 = SWITCH 
6327 x IF X2=0 PMB IS NOT IN Q=REG 
r 6328 * X2=71 PMB LESS DEV. & CHAN.H IN Q-REG & 
6329 x X2=2 COMPLETE PMB IN Q=REG 
6330 * X4 2 I/0 ENTRY ADDRESS 
& 6331 * X6é = KPX FROM I/0 ENTRY @ 
6332 * X7 = CPUNO 
6333 * 
& — 6334 * & 
007751 701003 7403 11 O00 6335 STXO ~CRMB4e14P.CR SAVE INDEX 0 ~~ CONNECT SEQUENCE 
007752 701003 4423 11 000 6336 SXL2 »CRMB441P.CR SAVE INDEX 2 -- PMB LOCATION 
@ 007753 100011 2353 14 000 6337 LDA eWEFCMs4 oP. 108 I/C COMMAND FROM I/0 ENTRY & 
007754 014065 3752 00 010 6338 ANA =0770000770076 DEVICE & CHAN COMMAND & RECORD COUNT 
007755 400000 1152 C7 O00 6339 CPA =04000002DL IS THIS A CONTROLLER SUSPEND COMMAND 
@ 007756 010014 6012 00 010 6340 TNZ FLMB1 NO @ 
6341 * 
@ ® 
@ ® 


1245T Ce 


12-27-79 
007757 001073 
Co7760 701200 
007761 007771 
007762 700410 
007763 700410 
007764 700000 
007765 000002 
007766 007773 
007767 003774 
007770 007773 
007771. 900000 
007772 007777 
007773 900001 
007774 000100 
007775 007764 
CO7777 777774 
C10000 700000 
010001 900002 
C€10002 010010 
010003 9003774 
C10004 010010 
010005 007771 
C10006 010010 
010007 001073 
€10010 000001 
010011 000003 
C10012 9010000 
C€10013 007771 


O9.3557 


7052 00 010 
0543 11 000 


007777 
3632 03 000 
7213 13 000 
3012 03 000 
6012 00 010 
3612 03 000 
6002 00 010 
1012 00 010 
6002 00 010 
7052 00 010 


010010 
6232 13 000 
3032 03 000 
6012 00 010 


2212 00 010 


H6600J7.002 


* 


* 
* 


1/0 


S TART I 


TSX5 


AGS 


STX1 


LDX3 
LXL2 
LXLO 
CANXO 
TNZ 
ANXO 
TZE 
CMPXO 
TZE 
EAX3 
SBLX2 


TPL 


ZOP 


NULL 
ANX3 
txt 
CANX1 
TNZ 
ANX1 
TZE 
CMPX14 


—TZE 


TSX5 


NULL 


 EAX3 


CANX3 
TNZ 


LDX1 
TRA 


SUPERVISOR 7912191080 PAGE 163 


0 ~~~ SEND SCON FOR SELECTED ENTRY 


PREPARE CHANNELS BEFORE SUSPEND COMMAND 
SET SUSPEND» T&D AND CHANNEL STOP BITS 
e CRQGT HAS ALREADY BEEN CLOSED 


SPDPSI SUBROUTINE TO MARK CHANNELS 
oCRIO141-P.CR CONVERT THIS TO A SUSPEND COMMAND CHA 
FROM A SUSPENDED CHANNEL 
(BITS #34-35 ARE 01 BECOME 02) 
TCX SAVE TRUE CHANNEL INDEX 


NOW FIND THE CONTROLLER SCT CDEVICE ZERO) FOR ALL 
CONNECTIONS TC THE SUSPENDED MPC 


oCRCST#sF.CR ABS. ADDR. FIRST CONTROLLER SCT 
oCRCSTo sr PCR # OF CONTROLLER SCT WORDS IN BITS 18- 


Or 3eP.CR CONTROLLER CONNECTION 
2eD0U IS THIS AN ALIEN EXTERNALLY SHARED MP 
BUMPS YES» IGNORE THIS CONNECTION 
eo FCHNXe DU TCX FOR THIS CONNECTION 
BUMP3 NO CONNECTION <= IGNORE 
** 9 DU IS THIS THE SUSPEND COMMAND CHANNEL 
FOUND YES, CONTROLLER SCT FOUND 
173 NO» LOOK AT. THE NEXT CONNECTION 
=01C0,DU DECREMENT THE COUNT 
SRCK1 MORE CONNECTIONS TO CHECK 
77DU CONNECTION NCT FOUND IN CONTROLLER SC 

A CONNECTION HAS BEEN FOUND TO A CONTROLLER SCT 
20777774 .,0U ABS. ADDR. WORD ZERO OF CONTROLLER SC 
Or 3eP.CR 
2eDU IS THIS AN ALIEN EXTERNALLY SHARED MP 
NXCON YES» IGNORE THIS CONNECTION 
oF CHNXZDU TCX CF PSIA CONNECTION TO. MPC 
NX CON NO CONNECTION == IGNORE 
TCX1 IS THIS THE SUSPEND COMMAND CHANNEL 
NX CON YES» PROCESSED ~—- GET NEXT. CONNECTION 
SPDFSI SUBROUTINE TC MARK CHANNELS 

MOVE TO THE NEXT MPC CONNECTION 

143 
37DU IS THIS CONTROLLER SCT MODULO 4 
CNTON NO» PROCESS THIS MPC CONNECTION 


ALL SUSPENDED CHANNELS FROM THIS MPC HAVE 
BEEN MARKED AT THIS TIME. 


TCX1 RESTORE TRUE CHANNEL INDEX 
FLMB1 RETURN TO ISSUE CONNECT FOR SUSPEND 
COMMAND 


1245T 02 12-27-79 09.357 H6600J7.002 1/0 SUPERVISOR 7912191080 PAGE 164 
S TART I / 0 ~~~ SEND SCON FOR SELECTED ENTRY 
6392 * 
6393 
6394 
6395 
6396 
6397 HHH KKKEKEKEKAK KK KKK KKK KKK KK KKK KKK KKHKKEKKEKK KK KEKE KKKKKKKAEKKKKKKKKRKKEK 
6398 * 
6399 * DESCRIPTOR REGISTERS CONVEANSION 
6400 »* ODRC WORK 
6401 * ODR1 = P.,I0Q I/O ENTRY SEGMENT DESCRIPTOR (€ TYPE=-0 ) 
6402 * ODR2 NOT USE 
6403 * ODR2Z = P.JEMB EXTEND MAILBOX SEGMENT SAME AS SD.RMS 
6404 * ODR4 WORK 
6405 * ODR5 = PA.PSH PUSH SEGMENT DESCRIPTOR ( TYPE=3 ) 
6406 * ODR6 = P,SSA 
6407 * ODR?7 = P,CR CR SEGMENT DESCRIPTOR 
6408 * | | 
6409 KKK KKK KKK KKK KKK KEK KEK KAKI KK KKK AK KE KKK KKKKKEKEKKKEEKKKEKKAEKEKK AK KKK KK KKK 
6410 
6411 
6412 
6413 
000000 6414 EXMB1 SET 0 FIRST IOCW 
000001 6415 EXMB2 SET 1 FIRST OCW OR TDOCW TO POINT DCW 
o0000C2 6416 EXMB3 SET 2 SECOND IDCW 
000003 6417 EXMB4 SET 3 TOCW TO POINT SECOND DCw 
0000C4 6418 EXMB5 SET 4 AUXILIARY PTW SAVE 
000005 6419 EXMB6 SET > SEEK DATA 
000003 6420 EMX SET 3 EXMB INDEX REGISTER 
0000C3 6421 PO.RMS SET P3 REAL MEMORY SEGMENT TO GET TIME 
000003 6422 P.EMB SET P3 EXTEND MAILBOX 
o0000c5s 6423 PA.PSH SET P5 TYPE=3 PH. PSH 
6424 
010014 6425 FLMB1 NULL 
6426 
6427 DESCRIPTCR REGISTERS INITIALIZE 
6428 
010014 003430 7562 17 010 6429 ST@ QSAVE +? SAVE PMB IMAGE 
6430 
C10015 010660 4502 17 010 6431 STZ DSFLG,7 SET FLAG TO CURRENT WSN 
C10016 006133 4706 07 000 6432 LDP PO,SD.KL/DL | 
C10017 906204 4756 07 000 6433 Lop PA.PSHsSD.PSH»DL GET SKELETON 10802400 
010020 000044 1063 17 000 6434 CMPX6  .KLPRG+7,P0 TEST KPX 
010021 000005 6002 04 000 6435 TZE SIC OK 10802410 
010022 010660 5542 17 010 6436 STC1 DSFLG.7 NOT EQUAL, NEED WSN 10s0Q2415 
C10023 006204 4706 07 000 6437 Lop PO/SDsPSH»DL 10802420 
070024 013053 7002 00 010 6438 TSXO ADESC BUILD FOREIGN DESCRIPTOR 10s02425 
010025 001770 4756 07 000 6439 LDP PA.PSHe.DRO,DL COPY TO PA.PSH 
6440 
6441 BUILD P.~EMB DESCRIPTOR 


S UP ERVI S$ OR 


@ e 
® ® 
~9245T C2 12-27-79 09.357 H6600J7.002 1/0 7912191080 PAGE 165 
e ® 
START I /0 === SEND $CON FOR SELECTED ENTRY 
& 010026 006063 4736 07 O00 6442 LDP PsEMB»SD RMS» DL COPY SD.RMS TO P.ENB @ 
6443 
6444 DESCRIPTOR REGISTER INITIALIZE END 
@ 6445 & 
6446 | 
6447 * 
& C10027 701002 2203 11 000 6448 LOXxO »CRMB 341 +P. CR CHANNEL SCW & 
010030 O00002 6232 10 000 6449 EAX EMX 20 ABS. POINTER TO DCh INSERT LIST EXMB1 
6450 x 
e 6451 * @ 
6452 * BUILD MAILBOX BASE AND BOUND (.CRMB2) 
6453 * 
& C10031 701001 4503 11 O00 6454 STZ oCRMB2-1-P.CR CLEAR LPWX ® 
6455 
10032 100001 7203 14 000 6456 LXLo oWEPRVs4 oP. 10Q GET CONTROL BIT 
@ C10033 701003 2223 11 O00 6457 LDX2 ~CRMB4,14P.CR CHECK CONNECT SEQUENCE e 
010034 000002 1022 03 O00 6458 CMPX2 2,4DU IF 20N HALF ONLY COMMAND 
010035 010065 6002 00 010 6459 TZE SETSA1 YES, GET 2DN DESCRIPTOR 
r 6460 & 
6461 TEST 1/0 TYPE TO BUILD IOM BASE 
6462 
& 010036 100004 7223 14 000 6463 LXL2 eWESCT.4 oP. 100 IS STANDARD MASS STORE ACCESS: & 
C10037 000010 3022 03 000 6464 CANX2 oFSEEK,DU SEEK DATA HOLDING 
010040 010045 6002 00 010 6465 TZE SETSA4 NON DS REQUEST 29FwCO80 
) C10041 000001 6222 00 O00 6466 EAX2 CHN1 SET CHANNEL PROGRAM # e 
010042 100003 2423 14 000 6467 ORSX2 oWEPICsZ4-P. 100 
010043 100016 2373 14 000 6468 LDAQ »~WEDRI+46P.100 29FWC100 
@ 010044 010070 7102 00 010 6469 TRA SETSA2 29FwC110 e 
6470 * . 29FW0120 
010045 000000 6222 06 O00 6471 SETSA4 EAX2 0, QL SAVE PMB IMAGE 29FWO130 
& (10046 701003 2353 11 000 6472 LDA oCRMB4514P.CR IS THERE PMB @ 
010047 000007 3752 07 O00 6473 ANA 7-DL (TEST CHANNEL COMMAND) 
C10050 000001 1152 07 O00 6474 CMPA 1/DL 
& 010051 010053 6056 00 O10 6475 TPNZ SETSAS THERE IS QR. QL=X2 29FWC150 & 
010052 100006 7223 14 000 6476 LXL2 »WEIC%+4 oP. 10Q GET CHANNEL COMMAND 
010053 6477 SETSAS NULL 
© C10053 770000 3622 03 O00 6478 ANX2 -FCCMD,DU RETRIVE CHANNEL. COMMAND ONLY & 
010054 240000 1022 03 000 6479 CMPX2 2=0240000,DdU IS DUAL COMMAND 
010055 010065 6002 00 010 6480 TZE SETSA1 YES» DATA REGION .WEDRF 
Zz ) 010056 400000 1C22 03 O00 6481 CMPX2 =04C0OCOO-bDU IS DUAL COMMAND & 
010057 010065 6002 00 010 6482 TZE SETSA1 YES» DATA REGION .WEDRF 
| 6483 
ee) 010060 6484 SETSA2 NULL DATA REGION ,WEDRI | @ 
010060 000001 2352 07 O00 6485 LDA «PNPOP,SDL GET POPM KPX 10804890 
C10061 002000 3002 03 O00 6486 CANXO oF FDD1,DU IS FIRST DATA 
e 010062 010103 6002 00 010 6487 TZE NDOTXF NON» NO DATA TRANSFER & 
010063 100016 2373 14 O00 6488 LDAQ »WEDRI+4 +P.10Q GET DESC. IMAGE TO BUILD BASE 
010064 010070 7102 00 010 6489 TRA SETSA3 
e 6490 e 
010065 6491 SETSA1 NULL DATA REGION .4WEDRF 
& @ 
@ @ 


1245T C2 


12-27-79 
010065 001000 
010066 010103 
C10067 100020 
C10070 100024 
010071 600000 
010072 000022 
010073 701001 
010074 900000 
010075 000017 
C10076 077777 
010077 701001 
010100 177777 
010101 100024 
C10102 013007 
C10103 006002 
010104 9090000 
C10105 9000000 
010106 9000011 
C10107 000600 
010710 010653 
010111 100001 
010112 044000 
010113 0101725 
C10114 100004 
010115 000040 
010116 010140 
C1011? 100024 
010720 000020 
010121 000020 
C10122 100025 
010123 006010 
010124 010130 
C10125 500034 
010726 100024 
C10127 500016 


09.357 


3002 03 000 
6002 00 010 
2373 14 000 


010070 


7573 14 000 
0352 07 000 
7712 00 000 
7553 11 000 
6222 02 000 
7362 00 000 
3762 03 000 
2563 11 9000 


3622 03 000 
2373 14 000 


7002 00 010 


4706 07 9000 
0223 05 000 
6362 12 000 
7722 00 000 
2762 07 9000 
7562 00 010 


2353 14 9000 
3152 07 000 
6C12 00 010 
2353 14 000 
3152 07 900 
6002 00 010 


0517 14 000 
6352 14 000 
7712 00 000 
0553.14 000 
4706 O07 000 
7102 00 010 


010125 
6707 00 9000 
0507 14 Q00 
6707 00 000 


6518 
6519 
6520 


6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 
6532 
6533 
6534 
6535 
6536 
6537 
6538 
6539 
6540 
6541 


H6600J7.002 


SETSA3 


NOTXF 


* 


* 
AUXPR1 


1/0 


S TA RT I / 


CANXO 
TZE 
LDAQ 


NULL 


STAQ 
ADLA 
ARL 
STA 
EAX2 
Q@Ls 
ANQ 
ORSQ 


ANX2 
LDAQ. 


TSXO 


LDP 
ADLX2 
EAQ 
QRL 
ORG 
STQ 


LDA 
CANA 
TNZ 
LDA 
CANA 
TZE 


STD 
EAA 
ARL 
ASA 
LDP 
TRA 


NULL 


LDD 


STD 
LDD 


S UP ERV IS OR 7912191080 PAGE 166 
0 m~~- SEND $CON FOR SELECTED ENTRY 

oF FOD2eDU IS SECOND DATA 

NDTXF NON» NO DATA TRANSFER 


eWEDR Fe4 0P. 10Q 


eWEENDs4 oP. 10Q 
=0600000 DL 

18 
eCRMB2s14P.CR 
eQu 

16—1 
=0077777.D0U 
»~CRMB2e1eP.CR 


BUILD PTw POINTER 


20177777 «DU 
»WEENDs4 oP, T0Q 


GETWSN 


POsSD.PTO*DL 
Ov AL FO 

ve 

9 

20600 .DL 
CNECT#3 


GET DESC. IMAGE TO BUILD I0M BASE 


SAVE DESCRIPTOR IMAGE 
ADD BYTE COUNT 


SET BOUND 
SAVE MOD 64K ADDRESS 
MOVE IOM BASE TO UPPER AND MOD2 


SET IOM BASE 
( PCW ODD ) 


IGNORE WSQ# 
RESTORE DESCRIPTOR IMAGE TO BUILD WS# 


GET WORKING SPACE NUMBER FROM DESC. 
AL=WS# 

GET WSN*S PTP 

COMPLETE PTP 

BUILD PCW ODD WORD IMAGE 

PTP MOVE TO BITS 9-26 

SET PAGED FLAG 

SAVE 


10804900 


TEST AND BUILD PTW ABOUT AUXILIARY PTW. 


eWEPRVs4 sP.10Q 
oF FAUX+. FFOCW SDL 
AUXPR1 
»WESCTs4 oP, 108 
2»FDSSASDL 

NOAUX 


AUX—PTW USED (DCW SEGMENT) 
TEST DS EOF RECOVERY 


NO» AUX-PTW NOT USE 


P.ITOQs.WEEND24,P.100 


eWEDRF +4 

18-2 
weWEEND4+144,P. 108 
PO eSD.PT1+DL 
AUXPR2 


PQ sPH.~O0C Wee PA.PSH 
PO, .WEENDs4eP.,108 
PO,PH.PTCeePA.PSH 


DCW IN .WEDRF OF I/O ENTRY 


ADD DCW OFFSET TO I/0 ENTRY SEG. BASE 
GET PAGE TABLE DESC. FOR 1/0 ENTRY 


AUX=PTW OF DCW SEGMENT 
SAVE DESCRIPTOR IMAGE 
GET PAGE TABLE DESC. FOR USER PROCESS 


@ @ 
® & 
1245T C2 12-27-79 09.357 H6600J37.002 I/O SUPERVISOR 7912191050 PAGE 167 
® @ 
START I /0 $=-== SEND $CON FOR SELECTED ENTRY 
® 010130 6542 AUXPR2 NULL & 
010130 100025 2353 14 O00 6543 LDA oWEEND+144,P.,100 
C10731 000014 7712 00 O00 6544 ARL 10+2 
& C10132 000000 6222 05 000 6545 EAX2 2 AL GET PAGE TABLE OFFSET & 
6546 
010133 013053 7002 00 010 6547 TSXO ADESC | GET ABSOLITE DESC. OF PTW SEGMENT 
e 6548 PO=DESCRIPTOR ® 
C10134 Q000000 2353 12 O00 6549 LDA Oe2ePC GET PTW OF AUX=PTW OR I/0 ENTRY 
010135 300004 7553 13 000 6550 STA EXMB5-EMX,P.EMB SAVE IN EXMBS | 
& 010136 000100 2352 07 O00 6551 LDA =0100,0L & 
010137 010653 2552 00 010 6552 ORSA CNECT 43 SET AUX-PTW BIT IN PCW ODD 
6553 * 
@ 6554 * COMPLETE TO BUILD I0M BASE AND BOUND & 
6555 * TO BUILD PTW POINTER AND FLAG BIT OF PCW ODD 
6556 * TO BUILD PTW OF AUX=PTW 
6557 * 
ad 6558 * ad 
010140 6559 NOAUX NULL 
eS 6560 @ 
010140 003430 2362 17 O10 6561 LDQ QSAVE 47 RESTORE PMB IMAGE 
010141 020007 2352 07 Q00 6562 LDA =02C0C74DL PATTERN OF TDCW 
@ 6563 @ 
6564 * BIT (34) ON (NO MORE IDCW'S), RELATIVE 
6565 * BIT (35) ON (DATA SEGMENTED)», AND PDCW 
@ 6566 * BIT (33) CN (DCW*S PAGEDs GOING TO SEGMENTED) @ 
6567 
010142 300003 7553 13 000 6568 STA EXMB4,/EMX/P.EMB INITIALIZE OF TDCW WORD 
@ (10143 000001 2352 07 O00 6569 LDA 1/DL EL8. @ 
C10144 300001 7553 13 O00 6570 STA EXMB2sEMX,/P.EMB 1OTD OF 1 WORD EL8. 
010145 010653 7202 00 010 6571 LXLO CNECT +3 TEST MODEs IS AUX 
T 010146 000100 3002 03 O00 6572 CANXO =0100,0U & 
C10147 010154 6012 00 010 6573 TNZ NREL YESs NO RELOCATION 
010150 701001 2203 11 ON0 6574 LDXO ~CRMB21,-P.CR GET BASE VALUE 
& 010151 701001 0203 11 O00 6575 ADLXO ~CRMB2e14P.CR BASE*2 @ 
010152 300001 7403 13 O00 6576 STXO EXMB2sEMXsP.EMB SET IN FIRST DCW WORD | 
C10153 300003 7403 13 000 6577 STXO EXMB4,EMXsP.EMB SET IN TDOCW WORD 
& 6578 ® 
010154 6579 NREL NULL 
010154 100001 7203 14 000 6580 LXLO oWEPRVs4 oP. 10Q TEST DATA REGION 
& C10155 002000 3002 03 O00 6581 CANXO eFFOD 140 IS PRESENT FIRST ® 
010156 010162 6002 00 010 6582 TZE eth NO DATA REGION 
010157 100007 2253 14 000 6583 LOX5 eWEOFF,45P,10Q GET FIRST DCW ADDRESS 
& 010160 300001 0253 13 000 6584 ADLXS EXMB2sEMX-P.EMB ADD IOM BASE & 
C10161 300001 7453 13 O00 6585 STX5 EXMB2-EMXsP.EMB SET IN EXMB2 
010762 001000 3002 03 O00 6586 CANXO oFFDO2,0U IS PRESENT SECOND 
& 010163 010170 6002 00 010 6587 TZE ONEDCW NOs ONE DCW PRESENT & 
010164 100007 7253 14 000 6588 LXL5 oWECFFs4 oP. 100 GET SECOND DCW OFFSET 
010165 300003 0253 13 O00 6589 ADLX5 EXMB4 sEMX-P.EMB ADD I0OM BASE 
@ C10166 300003 7453 13 000 6590 STX5 EXME4,EMX,P.EMB SET IN TDCW WORD & 
010167 910172 7102 00 010 6591 TRA ENDCW END OF DCW PROCESS 
® @ 
© @ 


@ 
e 
1245T 02 12-27-79 09.357 H6600J37.002 1/0 SUPERVISOR 7912191080 PAGE 168 
START I /0 --- SEND $CON FOR SELECTED ENTRY ° 
6592 @ 
010170 6593 ONEDCW NULL ONE DCW PRESENT 
010170 300001 2253 13 O00 6594 LOXS EXMB2-EMXsP.EMB RESET TDCW ADDRESS FIELD 
010171 300003 7453 13 000 6595 STX5 EXMB4 ,EMXsP.EMB SET IN TOCW x | 
6596 
010172 6597 ENDCW NULL 
6598 * i ee en ee tn ee er ee ne & 
6599 x 
010172 007777 2352 07 O0C 6600 LDA =07777eD0L STORE LPW CONTROL EITS AND TALLY 
010173 701000 7553 11 000 6601 STA ~CRMB1414P.CR RESTRICTED BIT(18) OFF FOR MORE IDCW S 
6602 RELATIVE BIT(23) OFF FOR ABS. 
010174 100004 2353 14 000 6603 LDA @WESCT+4 oP. 108 SCT POINTER 
010175 100003 2203 14 000 6604 LOXO ~WEPI044sP.10Q SAVE CHANNEL PROGRAM # & 
010176 000077 3602 03 O00 6605 ANXO 2077, DU CHANNEL PROGRAM # ITP. 2000 
010177 017774 3752 03 O00 6606 ANA oFSCT1ADL 
010200 700000 2353 01 000 6607 LDA Or AUsP.CR SCT FOR DEVICE & 
010201 010000 3152 07 O00 6608 CANA =010000-/0L MULTIPLE DEVICE CHANNEL | 
C10202 000002 6012 04 O0C 6609 TNZ 2-1C YE | EL8. 
010203 000000 6252 00 000 6610 EAA 0 NO» SINGLE EL8. & 
C10204 007700 3752 C3 O00 6611 ANA oF DVNOsDU RETRIVE DEVICE NUMBER 
010205 300002 7553 13 O90 6612 STA EXMB3sEMXsP.EMB SET IN IDCW 
C10206 300000 7553 13 O00 6613 STA EXMB1sEMXsP,EMB SET DEVICE #4 @ 
010207 6614 CHANS1 NULL 
010207 100011 2353 14 O00 6615 LDA »WEFCMs4,P. 100 SECOND COMMAND 
010210 014066 3752 00 010 6616 ANA =0770000000077 DEVICE COMMAND AND RECORD TALLY & 
C10211 700000 2752 07 O00 6617 ORA =0700000.DL ADD CONTROL BITS TO IDCW 
010212 300002 2553 13 O00 6618 ORSA EXMB3,EMXsP.EMR 
| 6619 * & 
010213 701203 7223 11 O00 6620 LXL2 »CRIO4s+1+P.CR LCX FROM THE TRUE CHANNEL INDEX 
010214 003774 3622 03 O00 6621 ANX2 eFCHNX*SDL 
010215 701400 2353 12 000 6622 LDA eCRCT142>P.CR @ 
C10216 000077 3752 03 000 6623 ANA oFCHNOsDU SCT FOR THE CHANNEL NUMBER 
010217 000011 7352 00 O00 6624 ALS 9 REFORM FOR PCW ODD 
010220 010653 2552 00 010 6625 ORSA CNECT +3 COMPLETE PCW ODD WORD @ 
010221 010530 7162 10 010 6626 XEC CPCTAC GO TO ANY PROGRAM PROCESS 
6627 * 
6628 * | @ 
6629 * THIS PROCESS IS NO CHANNEL PROGRAM PROCESS 
6630 * 
6631 * FOR EXAMPLE ; @ 
6632 * » sLINK USER 1/0 ENTRY 
6633 * « CALLIO ‘CMD* PROCESS 
6634 * - GEPR RETRY AND RECOVERY 1/0 @ 
6635 * 
010222 100011 2353 14 O00 6636 LDA oWEFCMs4 oP, 10Q 
010223 770000 3752 07 O00 6637 ANA oFCCMDsDL GET CHANNEL COMMAND @ 
| 6638 * CHANGE COMMANDS O04 AND 24 TC 00 
010224 040000 1152 07 000 6639 CMPA =0040C00,-DL 
010225 010232 6002 00 010 6640 TZE. FIX1 ZERO CHANNEL COMMAND @ 
010226 240000 1152 07 O00 6641 CMPA =0240000-DL 
© 
@ 


@ 
@ 
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START I /0 <== SEND $CON FOR SELECTED ENTRY 
& 010227 910232 6002 00 010 6642 TZE FIX4 ZERO CHANNEL COMMAND 
010230 000006 7712 00 O00 6643 ARL 6 
010231 300002 2553 13 000 6644 ORSA EXMB3,EMXsP.EMB CHAN. COMMAND INTO BITS 24-29 
® 010232 6645 FIX! NULL 
010232 701003 2353 11 000 6646 LDA »CRMB4e1eP.CR 
010233 000007 3752 07 O00 6647 ANA 77 0L PMB SWITCH 
& 010234 000001 1152 07 O00 6648 CMPA 1.0L 
C10235 010240 6002 00 010 6649 TZE PMB2 PMB LESS DEV. & CHANH IN Q=REG 
010236 010243 6032 00 010 6650 TRC SETSA COMPLETE PMB IS IN Q=-REG 
e 6651 * 
010237 100006 2363 14 O00 6652 PMB1 LDQ eWEICMs4eP.108 GET PMB FROM I/0 ENTRY 
010240 6653 PMB2 NULL 
Ld] 010240 014067 3762 00 010 6654 ANQ =0770000777777 RETRIVE COMMAND WITHOUT DEV/CHNLA 
010241 300000 2763 13 O00 6655 ORQ EXMB1/EMX,P.EMB COMPLETE PMB IMAGE EL8. 
010242 300000 7563 13 000 6656 STQ EXMB1./EMX,P.EMB & STORE IT EL8. 
@ 6657 * “ii "inSain ts ‘ips ome “dm es ee ec i icp“ sis ami Sit SS: as in Si 
6658 * 
6659 * AT THIS POINT THE Q@=REG CONTAINS THE PMB IMAGE 
@ 6660 * DEVICE COMMAND BITS 0-5 
6661 * MBaZ BIT 6 
6662 * DEVICE NUMBER BITS 7-11 
& 6663 * CHANNEL NUMBER BITS 12-17 
6664 x ICM CHAN. COMMAND BITS 18-23 
6665 * MEZ BITS 24-29 
) 6666 * RECORD COUNT BITS 30-35 
6667 * | 3 7 
010243 6668 SETSA NULL SET UP EXMB2 AND LIMITS 
& C10243 010653 7222 00 010 6669 LXL2 CNECT 43 TEST » DATA PRESENT 
010244 0900400 3C22 03 000 6670 CANX2 =0400,D0U 
010245 010272 6002 00 010 6671 TZE. SLMT4 NO DATA 
@ 010246 701003 2223 11 000 6672 LOX2 ~CRMB4s14P.CR TEST REQUEST TYPE 
010247 900001 1022 03 000 6673 CMPX2 1%DU IS FIRST COMMAND ONLY 
010250 010274 6032 00 010 6674 TRC SLMTS YES 
@ 010251 000000 6222 06 O00 6675 EAX2 2QL TEST COMMAND TYPE 
010252 770000 3622 03 000 6676 ANX2 =0770000.,DduU RETRIVE CHANNEL COMMAND 
010253 010272 6002 00 010 66€77 TZE SLMT4 NORMAL SEQUENCE 
& 010254 240000 1022 03 000 6678 CMPX2 =0240000.,dU IS DUAL COMMAND 
010255 010260 6002 00 010 6679 TZE *+3 YES 
010256 400000 1€22 03 000 6680 CMPX2 =0400C00,DuU IS PSI COMMAND 
} 010257 010272 6012 00 010 6681 TNZ SLMT4 NO» NORMAL CONNECT 
010260 006013 4706 07 O00 6682 LDP PO-SD.I0G/DL 
010261 900016 6707 14 000 6683 LDD PO,.WEDRI44-P0 GET FIRST DARA REGION DESC. 
@ 010262 010660 2342 17 010 6684 SZN DSFLG»7 IS SAME WORKING SPACE 
C10263 010267 6002 00 010 6685 TZE FDDAT YES» 
6686 NO, GET TO ABSOLIZE 
e 010264 003430 7562 17 010. 6687 STQ QSAVE +7 | SAVE PMB IMAGE 
010265 013053 7002 00 010 6688 TSxO ADESC ABSOLIZE | 
| , 6689 PO=ABS. DESCRIPTOR 
@ 010266 003430 2362 17 010 6690 LOQ QSAVE +7 RESTORE PMB IMAGE 
01026€7 6691 FDDAT NULL 
& 
© 


@ 
@ 
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START 1/0 ~-- SEND $CON FOR SELECTED ENTRY 
010267 100012 2353 14 000 6692 LDA oWEFDC>4 PL. 10Q @ 
C10270 oO00000 2353 01 O00 6693 LDA Or AUs FO GET FIRST DATA 
C10271 300005 7553 13 Q00 6694 SLMT2 STA EXMB6.EMXsP.EMB STORE SEEK ADDR. DATA WORD INTO EXMB6 
010272 000005 6222 13 000 6695 SLMT4 EAX2 EXMB6-EMX ' ABS. SEEK ADDR. POINTER (TO EXMB6) @ 
010273 300001 7423 13 000 6696 STX2 EXNE2 ER X0P EMB STORE INTO EXMB2 
GODT A A A A te se a a sm 2 ee ee we ee ee ee ee - oe eae ae eee 
6698 * e 
010274 6699 SLMTS NULL 
6700 * 
6701 * SET UP CONNECT PCW/IDCW AT EXMB1 @ 
6702 * 
010274 300000 7563 13 000 6703 STQ EXMB1s/EMXsP.EMB PUT PMB INTO EXMB1 
010275 014070 2352 00 010 6704 LDA =0000077777700 @ 
C10276 300000 3753 13 O00 6705 ANA EXMB1/EMXsP.EMB GET CHANNEL COMMAND 
010277 300000 6553 13 000 6706 ERSA EXMB1-/EMX,P.EMB ZERO ALL FIELDS BUT INST,» ADDR» & TAL 
010300 770000 3752 07 O00 6707 ANA =0770000,DL 16FW1060 & 
010301 000006 7712 00 O00 6708 —ARL 6 CHNL CMD TO 24-29 16FW1070 
010302 002400 1152 07 O00 6709 CMPA =02400,0L IS CHAN. COMMAND 24 
010303 010306 6002 00 010 6710 TZE INSTZ YES, ZERO IT ® 
C10304 000400 1152 07 O00 6711 CMPA =00400,0L IS CHAN. COMMAND 04 
010305 010307 6012 00 O10 6712 TNZ LOGIC NO 
C10306. 000000 2352 03 O00 6713 INSTZ LDA O-,DU ZERO CHANNEL COMMAND @ 
6714 * THE PCW/IDCW CHANNEL COMMAND IS BEING HELD 
6715 * IN A~REG FOR STORAGE AT EXMB1 
6716 * @ 
010307 6717 LOGIC NULL ADJUST POINTERS FOR SINGLE/DUAL CCMMANDS,s | 
6718 * CFI/PSI CHANNELS, ETC, 
: 6719 x & 
010307 701003 2223 11 O00 6720 LDX2 -CRMB4,1-P.CR CONNECT SEQUENCE SWITCH 
010310 010317 6002 00 010 6721 TZE NORML O-- ISSUE NORMAL COMMAND SEQUENCE 
010311 900002 1022 03 O00 6722 CMPX2 2eDU & 
010312 010402 6002 00 010 6723 (TZE TOEX4 2—-- ISSUE SECOND ONLY OF DUAL COMMAND 
010313 010405 6032 00 010 6724 TRC TOEX2 3—— ISSUE FIRST ONLY OF DUAL COMMAND 
6725 * (SINGLE DCWS ONLY <= PRESEE r 
6726 * 1-- ISSUE FIRST ONLY OF DUAL COMMAND 
6727 * (MULTIPLE DCW*S ALLOWED) 
6728 * @ 
6729 MAKE THIS A SINGLE PART COMMAND 
6730 * USING THE FIRST CCMMAND. GET THE FIRST DCW POINTER | 
6731 * FROM 1/0 ENTRY+64 LESS ONE» SINCE MULTIPART @ 
6732 * TYPEWRITER COMMANDS WILL HAVE THE FIRST TWO 
6733 * DCW'S IN SEQUENCE. 
6734 * & 
C10314 300003 7223 13 O00 6735 LXL2 EXMB4 s-EMX/P.EMB GET LOWER HALF OF TDCW 
010315 300001 4423 13 000 6736 SXL2 EXMB2 -EMXsP.EMB MOVE REMAINDER OF TOCW TO EXMB2 
C10316 010405 7102 00 010 6737 TRA TOEX2 Y 
6738 * 
010317 6739 NORML NULL | NORMAL COMMAND SEQUENCE 
010317 000000 6222 06 O00 6740 EAX2 Or Qt @ 
C10320 770000 3622 03 O00 6741 ANX2 oFCCMDADYU FIRST CHANNEL COMMAND FROM PMB 
e 
e 
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12-27-79 
010321 240000 
010322 010404 
010323 400000 
C10324 010370 
010325 9000000 
010326 000077 
010327 900002 
010330 010400 
010331 300003 
010332 777775 
010333 300003 
010334 000000 
010335 770000 
010336 100000 
010337 010357 
010340 470000 
010341 020000 
010342 010357 
C10343 300001 
010344 000000 
010345 770000 
C10346 310000 
010347 010404 
C10350 100013 
010351 777776 
010352 010363 
010353 720000 
010354 300002 
€10355 900003 
C10356 010410 
010357 700000 
C10360 300002 
010361 024000 
010362. 010405 
010363 701200 
C10364 000003 
010365 010404 
010366 020000 
010367 010405 


09.357 


1022 
6002 
1022 
6C12 


6222 
3622 
1022 
6C22 


7223 
3622 
4423 
6202 
3602 
1002 
6002 
3602 
1002 
6002 
4423 


6222 
3622 
1022 
6012 


2225 
1022 
6Ci2 
2752 
2553 
6222 
7102 


2352 
2553 
2752 
7102 


(eco 
3022 
6002 


2352 
7102 


000 
010 
000 
010 


000 
000 
000 
010 


6742 
6743 
6744 
6745 
6746 
6747 
6748 
6749 
6750 
6751 
6752 
6753 
6754 
6755 
6756 
6757 
6758 
6759 
6760 
6761 
6762 
6763 
6764 
6765 
6766 
6767 
6768 
6769 
6770 
6771 


6772. 


6773 
6774 
6775 
6776 
6777 
6778 
6779 
6780 
6781 
6782 
6783 
6784 
6785 
6786 
6787 
6788 
6789 
6790 
6791 
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S TA RT I 


CMPX2 
TZE 
CMPX2 
TNZ 


EAX2 
ANX2 
CMPX2 
TNC 


LXL2 
ANX2 
SXL2 
EAXO 
ANXO 
CMPXO 
TZE 
ANXO 
CMPXO 
TZE 
SXL2 


EAX2 
ANX2 
CMPX2 
TNZ 


LDX2 
CMPX2 
TNZ 
ORA 
ORSA 
EAX2 
TRA 


LDA 
ORSA 
ORA 
TRA 


NULL 
LXL2 
CANX2 
TZE 


LOA 


TRA 


/ 


S UPERVIS OR 7912191080 PAGE 171 
0 ~-~ SEND $CON FOR SELECTED ENTRY 
=0240C00,D0U IS THIS A DUAL COMMAND 
CNTUE YES» ISSUE IT AS A DUAL COMMAND 
=0400000.DU NOs IS THIS A SPECIAL MPC CHAN. COMMA 
CMD10 NOs» ISSUE CONNECT AS A SINGLE COMMAND 

PROCESS SPECIAL MPC CONTROLLER COMMANDS 
O- QL YES 
=0770U FIRST COMMAND RECORD COUNT FIELD 
200 IS THIS A MULTIPLE COMMAND © 
TOEXS NOs SINGLE IOSO4AAM 

MAKE THIS A SINGLE COMMAND BUT TRANSFER 
TC USER WITH IDCW CAPABILITY 
EXMB4 sEMXeP.EMB TOCW AT EXMBG 
=0777775 »DU 
EXMB4,EMX,P.EMB EL8. 
=07700C00.,DU DEVICE CMD EL8. 
=0100000~.dU 1S. if *70° EL&. 
CTND YES | ELS. 
=0470000.0U EL8. 
=0020C00,DU IS IT 02412422432 CMD EL8. 
CTNO YES EL8. 
EXMB2 sEMX,/P.EMB RESTRICTED BIT (€#34) TURNED OFF TO 
ALLOW MCRE IDCW'S 

0 QU 
=0770000 «DU FIRST DEVICE COMMAND 
=0310C00.DU IS THIS A "31" COMMAND 
CNTUE NOs ISSUE FIRST HALF AS A SINGLE COMM 


»WEIOSs4 sP.108 
~2 DU 

CSUSP 
=0720CCODL 
EXMB3 eEMX,P.EMB 
EXMB4 sEMX 
TOEX41 


=0700C00 OL 
EXMB3/EMX,P.EMB 
=O240C0-0L 
TOEX2 


@CRIO1+1 aP. CR 
34DU 
CNTUE 


=O2C0CO-EL 
TOEX2 


WITH CONTINUE BIT ON FOR MORE IDCW 

EL8.. 

TEST EXT STATUS CMD 29FWO240 

NO 29Fwl250 

YESs SET CHANNEL CMD 29FWC260 
29FwC270 
29FWC280 
29Fwl290 
EL8. 

SET IDCW FLAG BITS EL8. 
EL8. 


“SET SPCL CHNL CMD & CONTINUE BIT EL8. 


EL8. 
EL8.. 
29FWC300 


IS THIS A SUSPEND OR SUSP.COMMAND CHA 

NOs ISSUE FIRST HALF AS A SINGLE COMM 
WITH CONTINUE BIT ON FOR MORE IDCW 

CONTINUE BIT EL8&. 

ISSUE FIRST HALF AS A SINGLE COMAND. EL8. 


1245T C2 12-27-79 
010370 100000 
010371 010402 
010372 300000 
010373 000100 
C10374 300000 
010375 100012 
C10376 000036 
010377 010405 
C10400 000001 
C10401 000003 
€10402 000003 
C10403 010406 
C10404 020000 
C10405 000001 
010406 700000 
010407 300000 
C10410 701000 
C10411 000001 
010412 010653 
010413 000100 
010414 010417 
C10415 300004 
010416 701003 
C1041? 300000 
010420 701200 
010427 100000 
010422 010427 
010423 701000 
010424 014071 
€10425 010652 
010426 910436 
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1022 03 000 
6012 00 010 


2553 13 000 
3352 07 O00 
3553 13 000 
2353 14 000 
7712 00 O00 
7102 00 010 


2362 13 000 
7562 13 000 


010402 
6222 13 000 
7102 Q0 010 


2752 07 000 


010405 
6222 13 000 
2752 07 000 
2553 13 000 


010410 


7423 11 42000 
1222 03 000 
7252 00 010 
3052 03 000 
6002 00 010 
2353 13 000 
7553 11 900 
2353 12 000 
7253 11 Q900 
3052 03 000 
6002 00 010 


7423 11 O00 
3752 00 010 
7552 00 010 
7102 00 010 
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S TA RT I / 0 ~~- SEND SCON FOR SELECTED ENTRY 
6792 * WITH CONTINUE BIT ON FOR MORE IDCW 
6793 * BUT WITH CHANNEL COMMAND FIELD ZER 
6794 * 
6795 CMD10 CMPX2 =017100C00.bduU SINGLE CHARACTER RECORD COMMAND 
6796 TNZ TOEX4 NO 
6797 x 
6798 * SINGLE CHARACTER RECORDS PREPARED HERE 
6799 * 
6800 ORSA EXMB1,EMX-P.EMB STORE PREVIOUSLY DEVELOPED CHAN, CMD. 
6 801 LCA =01004DL MASK =077777777770C 
6802 ANSA EXMB1sEMXsP.EMB AND OUT TALLY FIELD IN IDCW AT EXMB1 
6 803 LDA eWEFDC4 oP. 10 SMB#H1 
6804 ARL 30 MOVE SINGLE CHAR. RECORD TO BITS 30-3 
6805 TRA TOEX2 ; EL8. 
6806 * EL8. 
6807 TOEXS LDQ EXMB2 »EMX I1O0SO4AAM 
6808 S$TQ EXMB4 »EMX IOSO4AAM 
6809 * FTOSQ4GAAM 
6810 TOEX4 NULL LPW POINTER TO EXMB4 EL8. 
6811 EAX2 EXMB4 ,EMX ABSOLUTE ADDRESS OF EXMB4 EL8. 
6812 . TRA TOEX2+41 EL8. 
6813 * -EL8. 
6814 CNTUE ORA =0200CC. DL CONTINUE BIT ON FOR MORE IDCWS © EL8&. 
6815 * 
6816 TOEX2 NULL LPW POINTER TO EXMB2 
6817 EAX2 EXME2 » EMX ABSOLUTE ADDR. CF EXMB2 
6818 ORA =0700C0O0,0L IOCW CONTROL BITS. 
6819 ORSA EXMB1sEMX-PLEMB ADD CHAN. CMD. AND CONTROL BITS TO 
6820 * COMPLETE IDCW AT EXMB1. 
6 821 * SO AO A A A SS A OE A 2 A A A SO - A -g m s-s8 
6822 * 
6823 TOEX41 NULL RETURN POINTER FROM CHANNEL PROGRAM 
6824 
6825 STX2 eCRMB1416P.CR STORE LPW POINTER 
6826 SBLX2 1/DU POINTER TO IDCW PRECEDING LPW POINTER 
6827 LXL5 CNECT +43 TEST AUX=-PTW 
6828 CANXS =0100,DuU 
6829 TZE *+3 NOT HAVE AUX~PTW 
6 830 LDA EXMBS sEMXsP.EMB GET AUX~-PTW IMAGE 
6 831 STA eCRMB4414P.CR 
6832 LDA O2eP.EME GET FIRST IDCW 
6833 LXL5 oCRIO141 +P, CR 
6 834 CANX5S =0100C00,0U IS THIS A CPI CHANNEL 
6835 TEE RSET YES 
6836 * 
6837 LOAC THIS PSIA CHANNEL 
6838 STX2 ~CRMB 1-1 -P.CR “MOVE LPW POINTER TO PREVIOUS IDCW 
6 839 ANA =0777000C0 SAVE EXTENSION AND CONTROL BITS 
6 840 STA CNECT +2 SET IN PCW EVEN 
6841 TRA RSET2 NO CHECK CHANNEL # 
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12-27-79 
010427 010652 
010430 000000 
010431 000077 
010432 000040 
010433 010523 
010434 000011 
010435 010653 
010436 900000 
010437 777600 
010440 001012 
010441 020001 
010442 010650 
010443 000000 
010444 010461 
010445 377777 
C10446 377776 
010447 701202 
010450 700736 
010451 701203 
610452 003774 
010453 010000 
010454 701400 
010455 010461 
010456 100004 
C10457 000117 
010460 700002 
010461 701400 
010462 003000 
010463 000011 
010464 006133 
010465 000000 
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010427 


7552 


6352 
3752 
KID 
6032 
7352 


2552 


0104 36 


6352 
3752 
6352 
2752 
Loe 


6242 
6002 


00 


11 


010 


000 
000 
000 
010 
000 


010 


000 
000 
000 
000 
010 


000 
010 


000 
000 
000 
000 
000 
000 
000 
000 
010 
000 
010 


000 


000 
000 
000 
000 
000 


H6600J7.002 


RSET2 


INITMB 


+ + + 


NOTLK 


1/0 


S TA RT I 


( 
NULL 
STA 


NULL 
EAA 
ANA 
EAA 
ORA 
STA 


EAX4 
TZE 


LDX2 
ANSX2 
AOS 
AOS 
LXL2 
ANX2 
LDA 
CANA 
TZE 
LDA 
ANA 
AOS 
NULL 


LOA 


ANA 
ARL 
LDP 
EAX2 
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SEND SCON FOR SELECTED ENTRY 


THIS IS AN EXTERNAL CCNNECTION INTO STIO ROUTINE) 


CNECT 43 


2 a a DD ee es ee ee ee ae ee ee ee eee 


PMB 

CHANNEL NUMBER 

DOES IOM CHANNEL# EXCEED 31 
YES» DON’T CONNECT 

CHAN.# IN BITS 3=8,% OTHERS ZERO 


SET CHANNEL # OF PCW ODD 


16FW0520 


THIS IS AN EXTERNAL CCNNECTION pear ROUTINE ace Maes 


0-1 
=0777600.DU 
=0020001,DL 
CNECT 


024 
NOTLK 


TRUE CHANNEL INDEX TO AU 

384 * IOM NUMBER 

ABSOLUTIZE TKE CONNECT CHANNEL ADDRES 
CONNECT CH LPW WITH CONTROL & TALLY B 
CONNECT CHANNEL LPW TO IMAGE 


NO LPW EXT. IS NEEDED WITH ABS. ADDRESS 


RESET PCW OR IOM DIR DATA CHAN COMMAN 


CONNECT CHANNEL IMAGE IS NOW LOADED 


20377777 «DU 
EXMB1=-25EMX,P.EMB 
eCRIOZ,1 +P.CR 
eCRICNooP.CR 
eCRIO4s14P.CR 
oF CHNXsDU 
eoFMLTCSDL 
eCRCT 142 oP. CR 
NOTLK 
eWESCT#4eP.100 
af 5S GF 

2eAUe P.CR 


»CRCT 142 oP.CR 
eFIOCAK,DU 

9 

PO .,SD.KL «DL 
Os AU 


TURN OFF CHAN. STATUS WORD SYNC BIT 
COUNT CONNECT ON CHANNEL 
COUNT TOTAL CONNECTS 


LOGICAL CHANNEL INDEX 
IS THIS MULTI DEVICE CHANNEL 


NOT A MULTI~DEVICE CHANNEL 
ABS. ADDR. DEVICE SCT TABLE 


COUNT CONNECT ON DEVICE 
TOM NUMBER FOR CHANNEL 


GET KL DESCRIPTOR 
IOM NUMBER . 


10805950 


i 


& 
@ 
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START I / 0 --- SEND $CON FOR SELECTED ENTRY 
010466 000133 2203 12 000 6892 LoxOo eKLICN,2 P0 THIS TOM CONNECT CHANNEL ADDEND IN XO & 
6893 * 
6894 * CHECK CONNECT CHANNEL 
6895 * @ 
010467 001706 6776 00 010 6896 LOD P.CReEYPCR USE CR WITH CACHE EYPASS 10805485 
010470 007777 2352 07 O00 6897 LDA =07777eD0L MASK FOR TALLY 10805490 
010471 701010 3153 10 000 6898 CANA ~CRMB1+8,-0-P.CR IS CONNECT CHANNEL FREE 10805495 & 
010472 010471 6012 00 010 6899 TNZ x= NOs LOOK AGAIN 10$05500 
6900 * 10sQs505 
6901 x CONNECT CHANNEL FREE ~ ISSUE CONNECT 10805510 & 
6902 * 10805515 
010473 010650 2372 00 010 6903 LDAQ CNECT CIOC CHANNEL WORD 1 EL8. 
010474 701010 7573 10 000 6904 STAQ oCRMB14+8,0/P.CR EL8. @ 
010475 010652 2372 00 010 6905 LDAQ CNECT+2 GET PCW EVEN/ODD 10805525 
010476 701012 7573 10 000 6906 STAQ ~CRMB3+8,0,P.CR SET IMAGE 3 & 4 10805530 
010477 300004 7563 13 O00 6907 STQ EXMB5,EMX,P.EMB SAVE PCW ODD 10805535 $ 
6908 * 
010500 000100 0153 12 ON0 6909 CIOC aKLCIC.2 -P0 ISSUE CONNECT TO SELECTED IOM 
6910 * 
C10501 006130 4776 07 O00 6911 LOP P.CReSD.CRo DL RESTORE CR SEGMENT DESCRIPTOR 10804870 ° 
010502 6912 CONACT NULL FROM CHANNEL ~ MODULE EXIT #7 
6913 @ 
6914 * REGISTERS 
6915 * Q@R= PMX IMAGE 
6916 * XC= PMX INCDEX ® 
6917 * X1= TRUE CHANNEL INDEX 
6918 * X2= IOM NUMBER 
6919 * X3= DESTROYED @ 
6920 * X4= 1/0 ENTRY 
6921 * X5= DESTROYED 
6922 * Xé6= KPX FROM I/0 ENTRY ® 
6923 * X7= CPUNO 
6924 | 
C10502 700040 4133 00 000 6925 RSCR 32reP.CR GET SCU CLOCK 10804880 e 
010503 701201 7563 11 O00 6926 STQ oCRIO2Z14P.CR SAVE CONNECT TIME FOR CHANNEL 
C10504 Q00000 6352 14 000 6927 EAA 0-4 1/0 ENTRY ADDRESS 14FW1710 
010505 010523 6002 00 010 6928 TZE SEXIT NULL» DON*T TRACE 14FW1720 r 
6929 
6930 
6931 | e 
6932 * * ke *& & & * CONNECT TRACE * & & kk kok & 10806775 
6933 
6934 EXECUTE CIOC TO START I/0 & 
6935 
, 0105C6 6936 »TROPN SEXIT/GREG 17FWC900 
010506 700044 7173 00 o0c XED eCRIRV42 eP.CR & 
C10507 000014 7102 04 .10523 TRA SEXIT+$ 
010510 700312 2203 17 000 6937 LDOXO eCRTEPS7.P.CR 
C10511 000044 2752 07 O00 6938 ORA eYCIOCSOL ADD TRACE TYPE 14FW1740 @ 
010512 700000 7553 10 000 6939 STA O-0-P.CR PUT INTO TRACE 14FW1750 
® 
& 


@ @ 
® ® 
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| START 1/0 --- SEND $CON FOR SELECTED ENTRY 
1 ® 010513 700001 7413 10 000 6940 STX1 120-P.CR SET TRULE CHANNEL INDEX & 
) 010514 300000 2353 13 000 6941 LDA EXMB1,/EMX/P.EMB GET PMBX 10806140 
010515 010653 2362 00 010 6942 LDQ CNECT 43 GET PCW ODD 10806145 
& 010516 700002 7573 10 000 6943 STAQ 2/0eP.CR INTO TRACE 10806150 @ 
C10517 010654 2252 17 010 6944 LOXS ST10347 GET RETURN IC 10806170 
| 010520 700002 4453 10 000 6945 SXL5 270-P.CR PUT IN PCW EVEN» LOWER 10806175 
: @ : 6946 
010521 6947 ~TRPUT PNO 
| C10521 000000 6202 00 o00 EAXO fe) 
& 010522 700052 7173 00 000 XED oCRTIRV48ereP.CR @ 
6948 
6949 
1 @ 6950 * ke ke kk ke kt TRACE EN D r 
6951 
: 6952 
& 6953 ) 
| 010523 6954 SEXIT NULL 17FWC920 
010523 010654 2232 17 01C 6955 LDXx3 ST10347 RESTORE RETURN ADDRESS 17FWC930 
'@ 010524 6956 ~ OPEN ~CROGT»+P.CR 11FWO940 @ 
010526 9006145 4766 07 O00 6957 LOP P.SSA/SD.SSAs DL —11FW0950 
C10527 ON0000 7102 13 000 6958 TRA 0,3 RETURN TO CALLER 11FWC960 
1 © 6959 * ®@ 
: 6960 x TABLE OF CHANNEL PROGRAM CONTROL 
| 010530 6961 CPCT NULL : 
: @ C10530 o000000 0112 00 O00 6962 NOP NO CHANNEL PROGRAM & 
| : 000001 6963 CHN1 EQU *=-CPCT PROGRAM#H 1 DS NORMAL PROCESS , 
C10531 010535 7102 00 010 6964 TRA CHNL1 | 
1 @ : (olelelereran 6965 CHN2 EQU *-CPCT PROGRAMH 2 RQS/RESS COMMAND & 
C10532 010611 7102 00 010 6966 TRA CHNL2 
| : o000c3 6967 CHN3 EQu *=-CPCT PROGRAMH 3 NORMAL 3 WORDS COMMAND 
:@ 010533 010616 7102 00 010 6968 TRA CHNL3 | @ 
| ) 000004 6969 CHN4 EQU *=-CPCT PROGRAMH 4 NON DATA TRANSFER COMMAND 
| 010534 010616 7102 00 010 6970 TRA CHNL4 
| 6971 x 
| e 6972 * e 
| 6973 
: 6974 | 
| e 6975 e 
| 6976 
6977 
| © 6978 * ° 
6979 * CHANNEL PROGRAM FROCESS INTERFACE 
) 6980 * REGISTER CONVENSION 3 @ 
| 6981 x x0 = CHANNEL PROGRAM NUMBER 
a 6982 x x1 = TURE CHANNEL INDEX 
: © 6983 x X2 = LOGICAL CHANNEL INDEX @ 
6984 * RETURN 
: 6985 * Q = PNB IMAGE 
& 6986 * x2 = LPW POINTER @ 
6987 * 
] @ 
e @ 
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12-27-79 
010535 100006 
010536 014072 
010537 010557 
C10540 300005 
010541 300000 
010542 014073 
010543 300000 
010544 000005 
010545 300001 
010546 100001 
010547 000400 
C10550 010555 
C10551 000003 
010552 300003 
C10553 020000 
010554 300002 
010555 000001 
010556 010410 
C10557 000004 
C10560 000003 
010561 000003 
C10562 010540 
010563 000000 
010564 000100 
010565 010574 
010566 100005 
010567 000002 
C10570 010540 
010571 020000 
010572 100011 
010573 010540 


09.357 


010535 ... 
2353 14 000 
3152 00 016 
0112 00 010 


7553 13 O00 
2363 13 000 
2762 00 010 


6222 13 9000 
7102 00 010 


3152 07 000 
6002 04 000 
3152 07 000 
6012 00 010 
6222 01 000 
1022 03 O00 
6012 00 9010 
2223 14 000 
3022 03 000 
6002 00 010 
2222 03 000 
2423 14 900 
7102 00 010 
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6988 
6989 
6990 
6991 
6992 
6993 
6994 
6995 
6996 
6997 
6998 
6999 
7000 
7001 
7002 
7003 
7004 
7005 
7006 
7007 
7008 
7009 
7010 
7011 
7012 
7013 
7014 
7015 
7016 
7017 
7018 
7019 
7020 
7021 
7022 
7023 
7024 
7025 
7026 
7027 
7028 
7029 
7030 
7031 
7032 
7033 
7034 
7035 
7036 
7037 


7.002 


1/0 


S$ TA RT I / 


HNL 1 


CHNLN 


CHNLH 


S UP ERVIS OR 
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0 am=-~ SEND SCON FOR SELECTED ENTRY 


PROGR AM 0 1 


NULL 
LDA 
CANA 
NOP 
NULL 
STA 
LDQ 
ORQ 
STQ 
EAX2 
STX2 
LXL2 
CANX2 
TZE 


LCA 
ANSA 
LDA 
ORSA 


NULL 
EAX2 
TRA 


CANA 
TZE 
CANA 
TNZ 
EAX2 
CMPX2 
TAZ 
LDX2 
CANX2 
TZE 
LOX2 
ORSX2 
TRA 


MASS STORE NORMAL COMMAND SEQUENCE 


SEEK TKEN READ/WRITE 


eWEICMs44 oP. 10Q 
=077777770 
CHNLH 


EXMB6/EMX,/P.EMB 
EXMB1,EMXsP,EMB 
=0340C00720000 
EXMB1+EMX,P.EMB 
EXMB6,EMX 

EXMB2 ,EMX/P.EMB 
oWEPRV>4 »P.10Q 
2 FFOMM,DU 

CNL11 


340L 

EXMB4 sEMXseP.EMB 
=020000.,D0L 
EXMB3sEMXeP.EMB 


EXMB2 sEMX 
TOEX4 1 


4eDL 

31C 

3, D0L 

CHNLN 

QO, AU 

1*646DU 

CHNLZ 
eWEPEP,4 oP, 108 
s FBT34,Dt 
CHNLN 

eFBT4,DU 
oWEFCM,4 oP. I10Q 
CHNLN 


GET SEEK DATA 

IS 1/0 TO PACK HEADER 
MAYBE SO (CTZE WHEN READY) 
NO 

SET IN CHANNEL PROGRAM 


SEEK COMMAND 


SET FIRST DATA ADDRESS (SEEK DATA) 
IN FIRST DCW CONE SEEK DATA) 
TEST DMM SPECIAL INTERFACE 


NO DMM REQUEST 

DMM SPECIAL REQUEST 

RESTRICTED BIT(34) TURN OFF TO ALLOW 
MORE IDCW'S 
AND SECOND IDCW 


LPW POINTER TO EXMB2 


IS BLK 4-7 

NOs 0-3 

IS BLK 4 

NO» NORMAL 1/0 
YES*s HEADER I/0 
IS BLK LIMIT =1 
NO, BAD NEWS 
YES 

IS REQUEST WRITE 
NO 

YES - 

MAKE IT WDOICV 
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IOSO4AAM 
—TOSO4AAM 
IOSOGAAM 


EL?7. 
EL7. 


1OSO4GAAM 
IOSO4AAM 
LOSO4AAM 
IOSO4AAM 
IOSO4AAM 
IOSO4AAM 
IOSO4AAM 
1OSO4AAM 
IOSO4AAM 
—TOSO4GAAM 
IOSO4AAM 
LOSO4AAM 
IOSO4AAM 
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Ver ete Ce 
010574 100004 
010575 003774 
010576 700001 
010577 9000020 
010600 010540 
010601 000070 
C10603 006133 
C10604 300044 
C10605 777775 
010610 005412 
C10611 700201 
010612 300002 
C10613 9000003 
C10614 300001 
C10615 010410 
010616 100006 
010617 014046 
010620 300000 
€10621 770000 
010622 240000 
010623 010637 
010624 040000 
010625 010637 
010626 000006 
C10627 300000 
010630 001000 
010631 010637 
C10632 000100 


09.357 H6600J7.002 1/0 
S$ TA RT I / 
7038 * 
2223 14 000 7039 CHNLZ LDX2 
3622 C3 O00 7040 ANX2 
2223 12 Q000 7041 LOX2 
3022 03 000 7042 CANX2 
6012 00 010 7043 TNZ 
7162 00 010 7044 XEC 
010602 7045 ZOP 
4736 07 O00 7046 LOP 
1063 17 O00 7047 CMPX6 
6012 04 000 7048 TNZ 
010606 7049 2~OPEN 
7102 00 010 7050 TRA 
7051 « 
7052 * PROG 
7053 * 
7054 * 
7055 * 
2222 03 O00 7056 CHNL2 LDX2 
4423 13 000 7057 SXL2 
6222 13 000 7058 EAX2 
2363 13 O00 7059 LDQ 
7102 00 010 7060 TRA 
7061 
7C62 * 
7063 * PRO 6G 
7064 « 
7065 * 
7066 * 
7067 x PRO G 
7068 * 
7069 * 
7070 * 
7071 * 
7072 * 
010616 7073 CHNL3 NULL 
010616 7074 CHNL4 NULL 
2353 14 O00 7075 LDA 
3752 00 010 7076 ANA 
2553 13 O00 7077 ORSA 
3752 07 O00 7078 ANA 
1152 07 O00 7079 CMPA 
6002 00 010 7080 TZE 
1152 07 000 7081 CMPA 
6002 00 010 7082 TZE 
7712 00 O00 7083 ARL 
2553 13 O00 7084 ORSA 
1152 07 O00 7085 CMPA 
6012 00 010 7086 TNZ 
3352 07 O00 7087 LCA 


§ UP ERV IS 0 R 
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0 ~~~ SEND SCON FOR SELECTED ENTRY 


eWESCT+#4-P.10Q 
eFCHNXsDU 
1eo2eP.CR 
eFBT1240U 
CHNLN 

DBUG 

13 
P.KL-SD.KLeDL 
2KLPRGo7 oP. KL 
-~3,1C 

a» CRQGTseF.CR 
IABSA 


R AM C 2 


DEVICE SCT 

SCT1 

IS PACK STRUCTURED 
NO» LET 1/0 THRU 
NOs SHALL WE TILT 
YES 


IS THIS JOB IN EXECUTION 
NOs TILT 

YES» OPEN GATE 

ABCRT JOB WITH .AC107 CODE 


REQS/RESS STATUS CCMMAND 


=0700201 .DU 
EXMB3sEMX,PLEMB 
EXMB4 ,EMX 
EXMB2,EMXeP.EMB 
TOEX41 


RAM 0 3 


NORMAL 3 WORDS COMMAND SEQUENCE 


R AM C4 


NON DATA TRANSFER COMMAND SEQUENCE 


»=WEICM,4-P,10Q 
=0770C00770077 
EXMB1sEMXeP.EMB 
=0770C0O0.-DL 
=0240000,DL 
NDSNL 
=0040000 -DL 
NOSNL 

6 

EXMB1 »sEMXsP.EMB 
=OT00Cs0L 

NDSWNL 

640L 


RETRIVE DEVICE AND CHANNEL COMMAND 


AND RECORD COUNT 
SET IN EXMB1 
GET CHANNEL COMMAND 


IS IT DUAL 

YES 

NOs IS IT STO 
YES 


ALIGN CHNL CHD 

NOs OTHER COMMAND SET IN PCW 
IS SINGLE CHARACTER COMMAND 

NO 

YESs ZERO RECORD CCUNT FIELD 


PAGE 
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IOSO4AAM 
IOSO4AAM 
IOSO4AAM 
IOSO4AAM 
IOSO4AAM 
IOSO4AAM 
IOSO4AAM 
IOSO4AAM 
IOSO4AAM 
I1OSO4AAM 
LOSO4AAM 


IOSO4AAM 


IOSO4AAM 
16FWC940 


— 16FWO9S0 


16FWC960 
16FWC970 
16FWC98O 
16FWO990 
16FW1000 
16FW1010 
16FW1020 
16FW1030 


16FWC870 
16FWC880 
16FWC890 
16FWO900 
16FWC910 
16FWO920 
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12-27°79 09.357 
C10633 300000 3553 13 
010634 100012 2353 14 
C10635 000036 7712 00 
010636 300000 2553 13 

010637 
010637 300000 2353 13 
010640 300002 7553 13 
010641 770001 3362 07 
C10642 300002 3763 13 
010643 700000 2762 07 
010644 300002 7563 13 
010645 000003 6222 13 
C10646 010410 7102 O00 
Ci0647 000000011007 
010650 
010654 
010660 


000 


7088 
7089 
7090 
7091 
7092 
7093 
7094 
7095 
7096 
7097 
7098 
7099 
7100 
7101 
7102 
7103 
7104 
7105 
7106 


7107 
7108 
7109 


H6600J57.002 


NDSNL 


* 


1/0 


S TART I 


ANSA 
LDA 
ARL 
ORSA 


NULL 
LDA 
STA 
LCQ 
ANQ 
ORG 
STQ 
EAX2 
TRA 


INHIB 


CNECT EBSS 


ST103 
DSFLG 


BSS 
BSS 


SUPERVISOR 


7912191 0S0 PAGE 


0 am~- SEND SCON FOR SELECTED ENTRY 


EXMB1sEMXsP.EMB 
eWEFDC44,P, 104 
30 

EXME1sSEMXeP.EMB 


COMPLETE EXMB1 


EXMB1s/EMXsP.EMB 
EXMB3 sEMX,P.EMB 
=0770001.D0L 
EXMB3-EMX/P.EMB 
=0700CCO,DL 
EXMB3Z7EMXs/P.EMB 
EXME4 ,EMX 
TOEX41 


OFF 


PME 


RETRIVE SINGLE CHARACTER 
AND SET IN PMB 


COPY PMB IN EXMB3 
ZERO CHANNEL COMMAND FIELD 
SET IDCW BITS 


COMPLETE EXMB3 
LPW POINTER 


STIO CALLER*S IC SAVE AREA 
WORKING SPACE CHECK FLAF 


178 


10805545 
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EP# 22 COMMON MASS STCRAGE REQUEST HANDLER 


@. ® 
© & 
@ @ 
@ 7111 * t 
7112 * INPUT 
7113 * 1/0 ENTRY 
@ 7114 * »WEIOS = LEGAL CCMMAND FLAGS AS DEFINED BELOW & 
7115 * AND NORMAL BYPASS COUNT FOR DEVICE 
7116 * REGISTERS 
& 7117 * XR3 = SELECT SEQUENCE ADDRESS (VIA GEINOS) & 
7118 * XR4 = ADDRESS OF I/O ENTRY 
7119 * XR5 = FLAG 
e 7120 * POSITIVE - PHYSICAL COMMAND REQUEST @ 
7121 * NEGATIVE = LOGICAL COMMAND REQUEST 
7122 * XR6 = KPX 
& 7123 * XR7 = CPUNO @ 
7124 * A = READ COMMAND FOR DEVICE CONTAINING IOM & RECCNT 
7125 * 
e 7126 * ODR1 = P.10@ @ 
7127 * ODR3 = PLIOCB (VIA CALLIO) 
7128 x ODR6 = P.SSA 
@ 7129 « ODR7 = P.CR e 
7130 * | 
7131 * DEFINITION OF LEGAL COMMAND FLAG WORD 
e 7132 *  ) 
400000 7133 SEKBT BOOL 40000C BIT O SEEK COMMAND 
200000 7134 FSRBT BOOL 200000 BIT 1 FORWARD SPACE RECORD(S) COMMAND 
& 1000C0 7135 BSRBT BOOL 100C00C BIT 2 BACKSPACE RECORD(S) COMMAND Ss 
040000 7136 REWST BOOL 40000 BIT 3 REWIND COMMAND 
020000 7137 RESBT BOOL 20000 BIT 4 RESET STATUS COMMAND 
@ 010000 7138 REQBT BOOL 10000 BIT 5S REQUEST STATUS COMMAND ] 
004000 7139 READB BOOL 4000 BIT 6 READ COMMAND 
002000 7140 WRITB BOOL 2000 BIT 7 WRITE COMMAND 
e 0010C0 7141 WTVFB BOOL 100C BIT 8 WRITE VERIFY COMMAND eS 
000100 7142 WRASC BOOL 100 BIT 11 WRITE ASCII 
000040 7143 RDASC BOOL 40 BIT 12 READ ASCII 
e 000020 7144 RDNSS BOOL 20 BIT 13 READ NON=STANDARD SECTOR SIZE ) 
7145 * 
7146 * BITS 9-10- 14-29 ARE NOT USED AT PRESENT 
@ 7147 x @ 
7148 * EITS 30 ~ 35 CONTAIN SPECIAL BYPASS 
7149 * COUNT TO USE FOR RESS & RE@S COMMANDS 
7150 * 
ad 7151 * e 
000004 7152 WRTG BOOL 4 WRITING COMMAND ACCEPTED FOR FILE 
) 7153 * DEFINITION OF MASKS USED FCR CCMMAND SEARCH & 
7154 * 
C10664 007777777777 000 7155 MASKQ OCT = £.7777777777 
e 7156 * ® 
7157 * COMMAND TABLES 
7158 * 
® 010665 7159 CMDSOQ NULL @ 
010665 340000000000 000 7160 OCT 34c0c00c00c000 SEEK COMMAND 
e @ 
@ @ 


1245T 02 12-27-79 


010666 
C1066? 
010670 
010671 
010672 
010673 
010674 
010675 
010676 
010677 
010700 


010701 
C107 02 
010703 
010704 
010705 
010706 
010707 
C107 10 
C10711 
010712 
010713 
C107 14 


010715 
010716 
010717 


010720 
010721 


010722 
0107 23 
010724 
0107 25 


C107 26 


09.357 


011051 0000 00 010 
440000020000 000 
011034 0000 00 O10 
460000020000 000 
011041 0000 00 010 
700000020001 000 
011044 0000 00 010 
400000020001 000 
011046 0000 00 010 
000000020001 000 
011046 0000 00 010 
000014 


010701 
250000000000 #4000 
0111094001000 010 
310000000000 000 
011110002000 010 
040000000000 000 
011104001000 010 
330000000000 000 
011117002000 010 
320000000000 000 
011117002000 0170 
230000000000 000 
011104001000 010 


000014 


010715 
00 0000 020001 000 
40 0000 020001 000 
70 0000 020001 000 
, 010720 
44 0000 020000 000 
46 0000 020000 000 
0000C5 


010722 


340000240002 000 
25 0000 002400 O00 
000000 000000 000 
23 0000 002400 000 


340000240002 000 


H6600J7.002 


LCMDTR 


LCMDTL 


LOCDT 


1/0 


ARG 
OCT 
ARG 
OCT 
ARG 
ocT 
ARG 
OCcT 
ARG 
OCT 
ARG 
EQU 


NULL 
OCcT 
VFD 
OCcT 
VFD 
ocT 
VFD 
OCcT 


S UP E RVI S$ OR 


CMDUL 
44c000002C000 
CMFSR 
460000020000 
CMBSR 
700C00002C001 
CMREW 
400C0C002C001 
CMREQ 
000000020001 
CMREQ 
*=CMDSO 


250c0Cc000000 
1B/CREAD 49/1 
310000000000 
1E/CWRIT 29/2 
04000ccocoon 
18/RDONSD 9/1 
330000000000 
18/CWIVE 09/2 
320C0000C000 
TE/CWDAC 9/2 
230000000000 
18/CRDAS 49/1 


*-~CMDS3 


0 
0 
*—~LCMET 
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EP# 22 COMMON MASS STCRAGE REQUEST HANDLER 


READ 

WRITE 

READ NON-STANDARD SECTOR SIZE 
WRITE VERIFY 

WRITE ASCII 


READ ASCII DSS190 


LOGICAL COMMAND TABLE 


04 — REQS 

05 — RESS 

06 - REW 

MULTI RECORD COMMAND 
07 - FSR 

10 - BSR 


LOGICAL READ/WRITE COMMAND 


READ BLOCK 
340000240002 


WRITE BLOCK 
34000C24 0002 


FIRST COMMAND 
READ BINARY 
ILLEGAL MODE (BCD) 
READ ASCII 


FIRST COMMAND 


180 


10803725 


CALL8485 
CALL 8490 
CALL&495 


CALL &505 
CALL 8510 


CALL 8520 


CALL &530 


1245T O2 


010727 
010730 
010731 


C10732 
010733 


0107 34 
C10735 
010736 
C10737 
010740 
C10741 
C10742 
010743 
010744 
010745 
010746 
010747 
010750 
010751 
010752 
010753 
010754 
010755 
010756 
010757 
C10760 
0107 61 
C10762 
C107 63 


010764 
010765 
C107 66 
010767 


C10770 
010771 
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EP# 22 COMMON MASS STCRAGE REQUEST HANDLER 


371 000C CO02400 O00 7211 WOIC WRITE BINARY 


000000 000000 000 7212 ZERO ILLEGAL MODE (BCD) 
32 0000 002400 000 7213 WDASC WRITE ASCII 
7214 
000010 7215 LDCDTL EQU *-LDC OT 
7216 * 
7217 * 
7218 * 
7219 
010732 7220 EVEN 
010732 7221 MSCIO NULL 
000000 6250 15 000 7222 EAXS 25 TEST REQUEST TYPE 
011003 6C50 CO O10 7223 TPL PCMD IS PHYSICAL COMMAND REQUEST 
7224 * 
7225 * LOGICAL COMMAND REGUEST 
7226 * 
300000 2351 00 000 7227 LDA ~IWCMD,-P.I0CB TEST COMMAND TYPE 
777000 3750 03 O00 7228 ANA =0777000,DdU RETRIVE COMMAND 
005372 6000 00 010 7229 TZE CMILG ABCRT 
000007 7710 00 O00 7230 ARL 7 | CMD*4 
000014 1150 03 O00 = 7231 CMPA 3*4eDU IS IT R/W (142) 
010770 6C€30 00 010 7232 TRC NLRW NO 
300000 0351 00 000 7233 ADLA o~IWCMDss FLIOCE YES» ADD IN MODE 
000177 3750 03 O00 7234 ANA =0177 DU 
010722 2360 00 010 7235 LDQ LOCODT SET SEEK COMMAND 
100006 7561 14 Q00 7236 STQ eWEICMe44P, 100 IN ENTRY 
300000 2361 00 O00 7237 LDQ a~IWCMDseP.1I0CB RETRIEVE MODE CODE 
000177 3160 03 O00 7238 CANQ 20177.DU IS IT NULL 
000002 6010 04 O00 7239 TNZ 2e IC NO 
000001 6350 01 O00 7240 EAA 1/AU YES» USE BINARY 
000174 3160 03 O00 7241 CANQ =01746DU IS IT 1-3 
005372 6010 00 010 7242 ™NZ CMILG NOs ABORT 
010716 2350 01 O10 7243 LDA LDCDT=4, AU YES» GET 2ND COMMAND 
005372 6000 00 010 7244 TZE CMILG MODE BCD», ILLEGAL 
100011 7551 14 O00 7245 STA oWEFCM% 44 -P.108 SET SECOND COMMAND IN ENTRY 
000400 3160 03 O00 7246 CANQ =04C00,DU IS PRESENT ‘RECORD! 
011003 6000 00 010 7247 TZE PCMD NO SINGL RECORD GC TO PHYSICAL 
777777 3750 03 O00 7248 ANA -1,DU MULTI» IGNORE CHANNEL COMMAND 
060000 2750 07 O00 7249 ORA =0060000.DL SET CHANNEL COMMAND (MULTI) 
100011 7551 14 000 7250 STA oWEFCMs4 oP. 10Q RE-SET SECOND COMMAND 
7251 SET RECORD COUNT 
300003 2351 00 000 7252 LDA @IWGRReo FLIOCB RETRIVE RECORD COUNT 
000077 3750 07 O00 7253 ANA =077,0L 
100011 2551 14 O00 7254 ORSA ~WEFCMs4 oP. 10Q SET IN I/0 ENTRY 
011003 7100 00 010 7255 TRA PCMD COMPLETE GO TO PHYSICAL 
7256 * 
7257 * NON READ/WRITE LOGICAL COMMAND 
019770 7258 NLRW NULL 
005372 6000 00 010 7259 TZE CMILG 3 IS INVALID 
000002 7710 00 O00 7260 ARL 2 CMD*1 


181 


CALL &595 


CALL&360 
CALL 8365 
CALL&370 
CALL &375 
CALL &380 
CALL &385 
CALL8&390 
CALL &395 
CALL E400 
CALL 8405 
CALL &410 
CALL &415 
CALL &420 
CALL 8425 
CALL &430 


CALL 8445 
CALL &450 


1245T C2 


12-27-79 
010772 000011 
010773 005372 
010774 010711 
010775 100006 
010776 000007 
010777 011003 
011000 300003 
C11001 000077 
011002 100006 
C11003 100011 
C11004 770000 
C11005 060000 
C11006 9011011 
011007 240002 
0110710 100011 
C11011 100006 
011012 010665 
011013 010664 
C11014 014300 
C11015 900000 
C11016 9005372 
11017 000000 
011020 100005 
011021 777777 
011022 200000 
011023 037777 
011024 200002 
011025 001000 
011026 911031 
011027 002600 
011030 777777 
C11031 100000 
011032 200000 
C11033 777777 
011034 100006 
C11035 000077 


09,357 H6600J7,002 1/0 S UP ERV IS OR 7912191080 PAGE 1 
EP# 22 COMMON MASS STCRAGE REQUEST HANDLER 
1150 03 Q00 7261 CMPA LCMDTL+4 ,DU IS IT WITHIN LIMITS 
6030 00 010 7262 TRC CMILG NOs ABORT 
2360 01 010. 7263 LDQ LCMDT~44 AU GET COMMAND 
7561 14 Q00 7264 STQ eWEICMs4 PL 100 
1150 03 000 7265 CMPA LCMODTR-LCMDT+4,0U IS IT MULTI~RECORD 
6020 00 010 7266 TNC PCMD NO» NORMAL COOMAND 
2351 00 O00 7267 LDA eI WGRRevP.IOCB GET RECORD COUNT 
3750 07 O00 7268 ANA =077eDL 
2551 14 ON0 7269 ORSA @WEICMs4,P.100 SET IN I/0 ENTRY 
7270 x 
7271 & PHYSICAL COMMAND 
7272 * 
7273 
0110C3 | 7274 PCMD NULL 
2351 14 O00 7275 LDA a@WEFCMs4 oP. 10Q TEST CHANNEL COMMAND 
3750 C7? O00 7276 ANA oF CCMODSDL RETRIVE CHANNEL COMMAND 
1150 C7 OOO 7277 CMPA =0060C00,D0L IS MULTI RECORD COMMAND 
6000 00 O10 7278 TZE «+3 YES 
2210 03 O00 7279 LDX1 =0240002.D0U NOs USE STD CMD 
4411 14 000 7280 SXL1 »WEFCMs4 oP. 10Q SET CHANNEL COMMAND 
2351 14 O00 7281 LDA »eWEICMs4 oP. 10Q COMMAND # 1 
6210 00 010 7282 EAX1 CMDSO 
2360 00 010 7283 LDQ MASKO 
5202 02 000 7284 RPT DSTB2/2e2eTZE SCAN FOR COMMAND 
2110 11 O00 7285 CMK 0-1 
6010 00 010 7286 ~ TNZ CMILG NOT FOUND ~- ILLEGAL COMMAND 
7287 x 
011017 7288 MTCH1 NULL 
6220 00 O00 7289 EAX2 0 CLEAR PAT POINTER 
2201 14 000 7290 LDxO eaWEPEP,4-P. 108 RELATIVE PAT POINTER 
6000 31 000 7291 TZE ~1/1* OKs GO TO COMMAND ROUTINE 
2221 10 000 7292 LDX2 Or0-P.PAT 
3620 03 000 7293 ANX2 oF PTOFSDL GET PAT BODY OFFSET 
7294 * | 
2361 12 O00 7295 LDQ Cvo2ePa.PAT PICK UP PAT FLAG WORD 
3160 03 000 7296 CANQ oF MRNDsDU IS FILE RANDOM 
6000 00 010 7297 TZE SETBS NO, SET BUSY FLAG 
7298 x 
3160 03 O00 7299 CANQ oF MPMF+, FMADP » DU IS FILE TEMP/ALL DESCR IN CORE 
6000 31 000 7300 TZE ~1,1* YES» DONT SET BUSY 
. 7301 INHIB ON 
2362 07 O00 7302 SETBS LD®O @FBSYFeDL SET PAT BUSY FLAG 
2563 10 O00 7303 ORSQ 070/P.,PAT IN PAT POINTER WORD 
7102 31 000 7304 TRA -1,1* GO TO COMMAND ROUTINE 
7305 * 
7306 * SINGLE COMMANDS 
7307 * 
011034 7308 CMFSR NULL FORWARD SPACE RECORDs OK ON ALL DEVIC 
2363 14 000 7309 LDQ »WEIC%s4,P.10Q PICK UP COMMAND 
3762 07 O00 7310 ANQ =O077-0L ISOLATE RECORD. COUNT 


82 


10801200 
CALL &460 
CALL &465 
CALL 8470 
CALL E475 


CALL &605 
CALL &610 


10803555 


10803580 


10803565 


10$03570 
10803572 


1245T C2 


12-27-79 
011036 004762 
011037 000100 
011040 004762 
011041 100006 
011042 014074 
C11043 004762 
C11044 900000 
011045 004762 
C11046 200000 
011047 100004 
011050 005073 
011051 240002 
C11052 100006 
C11053 100011 
011054 770000 
071055 011071 
C11056 200000 
011057 005372 
011060 060000 
011061 011071 
€11062 100011 
011063 000001 
C11064 900077 
C11065 000006 
011066 000000 
011067 100011 
C11070 100071 
C11071. 100071 
011072 010701 
011073 010664 
011074 014300 
011075 000000 
011076 905372 
011077 010000 
011700 100004 
011101 100013 


09.357 


6012 
2362 
6C12 


00 
07 
00 


010 
000 
010 


011041 © 


3363 
2762 
7102 


2 362 
7102 


011046 


2362 
2563 
7102 


011051 


2202 
4403 
2353 
S752 
6002 
1152 
6002 


1152 
6012 


2 363 
1362 
3762 
7362 
6202 
4403 


01711C2 


07 
14 
00 


03 
14 
14 
07 
00 
07 
00 


000 
010 
010 


000 
010 


000 
000 
010 


H6600J7.002 


CMOUL 


NOTMR 


MAT2 


1/0 


TNZ 
LDQ 
TNZ 


NULL 
LCQ 
ORQ 
TRA 


LDQ 
TRA 


NULL 
LDQ 
ORS 
TRA 


5 WORD CALL » 2 COMMANDS,» 


NULL 
LOXO 
SXLO 
LDA 
ANA 
TZE 
CMPA 
TZE 


CMPA 
TNZ 


LDQ 
SBLQ 
ANQ 
QLs 
EAXO 
SXLO 
ORSQ 
NULL 
LDA 
EAX4 
LDQ 
RPT 
CMK 
TNZ 


LDQ 
ORSQ 
LD@ 
NULL 


S UP ERVdIS OR 


INDTR 
64 DL 
INDTR 


eWEICMs4 oP. 108 
=0777777777700 
INDTR 


Or DL 
INDTR 


eFBTIGs0L 
eWESCTA4-P.10@ 
IRESS 


=0240002,DU 
»aWEICM,s4 oP. 108 
eoWEFCM4,P.100 
=0770C00 DL 
NOTMR 
=0200C00 DL 
CMILG 


=060000.0L 
NOTWMR 


@WEFCM+4,P.104 
1, DL 

=077,DL 

6 

0 
eWEFCM44 oP. IT0Q 
oWEFCM 44 oP. 100 


~WEFCM,4 oP, 100 
CMDS3 

MASKO 
DSTB3/2e2eTZE 
0-1 . 

CMILG 


eFBT23-DL 
eWESCT24 oP. 108 
»WEIONS44e6P.108 
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EP# 22 COMMON MASS STCRAGE REQUEST HANDLER 


ZERO = MAXIMUM COUNT 


BACKSPACE RECORD» OK ON ALL DEVICES 
PICK UP COMMAND COMPLIMENT 


SET Q=0 FOR REWIND 


REQUEST STATUS» OK ON ALL DEVICES 
BYPASS COUNT = 1 

SET INTO 1/0 ENTRY 

REQUEST OR RESET STATUS. 


FIRST WAS SEEK» NOW CHECK SECOND 


DUAL COMMANDS» OK ON ALL DEVICES 
MULTI-~PART COMMAND 

SET TO 1/0 ENTRY 

PICK UP SECOND COMMAND 

ISOLATE IOM COMMAND 

NORMAL 

IS IT IOM LOAD 

YES, ILLEGAL 


IS IT MULTI RECORD 
NO» NORMAL COMMAND 


MULTI-RECORD 
DECREASE RECORD COUNT BY 1 
ISCLATE REMAINING RECORD COUNT 


CLEAR CHANNEL COMMAND 
PUT INTO BITS 24-25 OF COMMAND WORD 


NOT FOUND » ILLEGAL SECOND COMMAND 


SETEYPASS COUNT = 1 
PUT INTO WORD 2 OF I/0 ENTRY 
PICK UP DEVICE COMMAND FLAGS 


183 


10$03595 


10803605 


10803615 
10803620 
10803625 
10803630 


10S0 2640 


10803650 


10803665 


1245T C2 


12-27-79 
011102 000000 
011103 777777 
011104 900000 
011105 011130 
011106 500000 
011107 011125 
011110 900000 
011111 011130 
011112 200000 
011113 000002 
011114 011121 
011115 020000 
011116 011121 
011117 000000 
011120 011130 
011121 200002 
011122 200000 
011123 000004 
011124 200002 
011125 100005 
011126 200000 
011127 011135 
011130 777777 
011131 000011 
011132 000077 
011133 100011 
011134 005200 
011135 000002 
011136 200002 
011137 005462 


09.357 


6252 11 000 
7102 31 900 


011104 
011104 


011117 


011125 
2203 14 O00 
3013 10 000 
6002 00 010 


011130 
2362 15 000 
7722 00 O00 
3762 07 000 
7553 14 9000 
7102 00 010 


011135 
2202 03 000 
2403 12 000 
7102 00 010 


7361 
7 362 
7363 
7 364 
7365 
7366 
7367 
7368 
7369 
7370 
7371 
7372 
7373 
7374 
7375 
7376 
7377 
7378 
7379 
7380 
7381 
7 382 
7383 
7384 
7385 
7 386 
7387 
7388 
7389 
7390 
7391 
7392 
7393 
7394 
7395 
7396 
7397 
7398 
7399 
7400 
7401 
7402 
7403 
7404 
7405 
7406 
7407 
7408 
7409 
7410 


H6600J37.002 


CWRIT 


CWDAC 
CWIVF 
WTTST 


CRITE 


ABTPM 


1/0 


EAXS 
TRA 


S UP ERVIS$ OR 


al 


—~141* 


SECOND COMMANDS 


NULL 


NULL 
NULL 
EAX2 
TZE 


LDXx1 
TRA 


EAX2 
TZE 
LOX0 
CANXO 
TZE 
ORA 
TRA 


NULL 
NULL 
NULL 
EAX2 
TZE 
LB@ 


LoXx1 
ORG 
STQ 


NULL 
LDXO 
CANX1 
TZE 


NULL 
LDQ 
QRL 
ANQ 
STA 
TRA 


NULL 
LDXO 
ORSXO 
TRA 


oFRPRM+, FBT 24 DU 
CKPEM 


0-2 

BDOPEM 

Os 2eoP.PAT 
eFBT1E,0U 
CRITE 
«FBT4,DU 
CRITE 


22 
BDPEM 
CvocoP. PAT 


oF WPRMSDU 
WRTGsDU 
2e2eP.PAT 


»WEFEFs4 oP. 108 
O-,OeP.PAT 
ABTPM 


-=195 


9 

=077/0L 
»~WEFCM +4 -P.108 
IDSDR 


eFMILPsDL 
2e2oP.PAT 
PERMS 


7912191080 PAGE 


EP# 22 COMMON MASS STCRAGE REQUEST HANDLER 


SAVE TABLE OFFSET 
GO TO COMMAND ROUTINE 


TEST PAT POINTER 
NO PAT REQUEST 


GET READ/APPEND PERMISSION 
CHECK PERMISSION 


TEST PAT PTR 

NO 

YESs GET 1ST WORD 

IS VERIFY SET 

NO 

YES, MAKE WDIC INTC WDICYV 


TEST PAT POINTER 
NO PAT REQUEST 
GET PAT FLAGS 


PICK UP WRITE PERMISSION FLAG 


184 


XXXX3410 
XXXX2420 


IOSO4AAM 


XXXX3440 
XXXX3450 
XXXX3460 
XXXX 3470 
XXXX 3480 
XXXX3490 
XXXX3500 
XXXX35170 
XXXX3520 
10S03690 
10803695 
10803700 


XXxXx3550 


SET WRITING ACCEPTED IN PAT FLAG WORD 


REPLACE PAT FLAG WORD 


PAT POINTER CFFSET 
IS PERMISSION GRANTED 
NOs ABORT PROCESS. 


GET SEGMENT DESC. PERMISSION 
TO LOWER 


STORE COMMAND INTO I/0 ENTRY 
TWO DS/DR DATA TRANSFER 


PERMISSION ILLEGAL FLAG 
IN PAT FOR FILSYS 
ABORTs PERMISSION NOT GRANTED 


10806850 


le @ 
e ® 
1245T 02 12-27-79 09.357 H6600J7.002 I/O SUPERVISOR 7912191080 PAGE 185 
;° EP # 23 COMMON MASS STORAGE SEEK CALCULATION ° 
ez ) 7412 * @ 
, 7413 * CALLING SEQUENCE CONTAINS ALL INTERNAL STORAGE CELLS USED 
7414 * DEFINED AS FOLLOWS 
e 7415 * e 
000000 7416 BPL EQU 0 BLOCK/LINK ON THIS DEVICE (NEGATIVE) 
000001 7417 BPR EQuU BPL+1 BLOCK/RECORD 
& 000002 7418 ADEND EQU BPR+1 TEMPORARY STCRAGE & 
000003 7419 RESID EQU ADEND +1 TEMPORARY STORAGE 
000004 7420 MRECC EQU RESID +1 TEMPORARY STORAGE | 
7: @ 000005 7421 SAVLC EQU MRECC +1 ANON1980 & 
000006 7422 SAVRB EQU SAVLO+1 : ANON1990 
| 0000C7 7423 ANS EQU SAVRB +1 TEMPORARY STORAGE 
@ 7424 EL8. @ 
7425 * TEMP STORE FOR SEEK COMPUTATION EL8. 
) 7426 * EL8. 
@ 011140 011144 000000 010 7427 SKCLD ZERO FORC EL8. @ 
011741 011154 000000 010 7428 ZERO FOR EL8. 
) 011142 011164 GCO000CO 010 7429 ZERO FOR2 EL8. 
@ C11143 011174 000000 010 7430 ZERO FOR2 EL8. ® 
011144 7431 FORO EBSS 8 EL8. 
011154 7432 FOR1 BSS 8 EL8.. 
: @ 011164 7433 FOR2 BSS 8 EL8. & 
011174 7434 FOR3 BSS 8 : EL8. 
7435 * 
) 7436 * DEFINITION OF MASKS USED eS 
C11204 007777777777 000 7437 RBKMSK OCT 7777777777 RELATIVE BLOCK MASK 
011205 000017777777 000 7438 .FMCRB OCT 17777777 POSITION MASK 
| @ 7439 * ® 
7440 * REGISTERS AT ENTRY TO COMMON MASS STORE SEEK CALCULATION 
7441 * 
: @ 7442 * X3 = ADDRESS OF PAT BODY @ 
) 7443 * 
| 7444 * EXP. = FLAG FOR TYFE OF REQUEST 
® 7445 * r 
| 7446 * IF € = POSITIVEs AND IF LINKED FILE 
7447 * @ = NUMBER OF RECORDS MINUS ONE TO READ OR WRITE 
& 7448 * FOR A MULTI=RECORD REQUEST @ 
7449 * 
7450 * IF E = NEGATIVE, AND LINKED FILE SPACING REQUEST 
® 7451 * Q@ = ZERO = NEXT RECORD OF LINKED FILE @ 
a. 7452 * G = +N = NUMBER OF RECORDS TO FORWARD SPACE 
| 7453 * G@ = -N = NUMBER OF RECORDS TO BACKWARD SPACE 
@ 7454 * ® 
7455 * IF E— = NEGATIVEs AND IF RANDOM FILE 
7456 * Q@ = M = RELATIVE BLOCK OF RANDOM FILE 
@ 7457 * | gS 
7458 * X4 = CATA AREA OFFSET 
7459 * ODR2 = P.PAT PAT SEGMENT DESCRIPTOR 
& 7460 * & 
7461 * 
e ® 
@ @ 


1245T C2 


12-27-79 
011206 600012 
017207 701403 
011210 006131 
011211 0711140 
O11212 000007 
011213 000000 
011214 000010 
C17215 000001 
011216 000003 
011217 000007 
0171220 200002 
0112271 001000 
011222 011237 
C11223 000006 
C11224 000007 
011225 000007 
011226 011233 
011227 000000 
0117230 011260 
011231 300000 
071232 000007 
011233 000006 
0117234 200003 
011235 011205 
011236 011322 


09.357 


7443 56 000 
2203 12 000 
4706 07 000 
2242 17 O10 
3353 10 000 
7552 14 000 
2353 10 000 
7552 14 000 
4502 14 000 
4502 14 000 
2203 13 000 
3002 03 000 
6012 00 9010 
7562 14 000 
4562 14 000 
2342 14 9000 
6052 00 010 
0362 07 000 
6012 00 010 
4112 03 000 
4562 14 000 


011233 
0542 14 000 
011234 
2363 13 000 
3762 00 010 
7102 00 010 


H6600J7.002 


7462 
7463 
7464 
7465 
7466 
7467 
7468 
7469 
7470 
7471 
7472 
7473 
7474 
7475 
7476 
7477 
7478 
7479 
7480 
7481 
7482 
7483 
7484 
7485 
7486 
7487 
7488 
7489 
7490 
7491 
7492 
7493 
7494 


1/0 


S UP ERVIS OR 
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EP # 23 COMMON MASS STORAGE SEEK CALCULATION 


MSCSK 


on *& & e F 


KRW 


LKRW1 


INHIB 


STX4 
LDXxO 
LOP 
LDX4 
LCA 
STA 
LDA 
STA 
STZ 
STZ 
LOX0 
CANXO 
TNZ 
STQ 
STE 
SZN 
TPL 
ADLQ 
TNZ 
LDE 
STE 


ON 


oSSAe IDFA PSSA 
eCRCT442oP.CR 
PO 4SD.DDDs«DL 
SKCLD 7 
7e0ePC 

BPL #4 

82 0-PC 

BPR» 
RESID #4 

ANS 04 
2e3eP.PAT 

a FMRNO,DU 
RNDOM 
SAVRB 44 

ANS +4 

ANS 44 

LKRW 

Oe OL 

SPREQ . 

=0 300000 DU 
ANS #4 


SAVE CALLERS X4 


DDD OFFSET 


GET DATA POINTER 


ZERO RESIDUE IN CASE OF SPACING 
MAKE SURE 36 BITS CLEAR 

PAT FLAGS STAY IN xO 

TEST FOR A RANDOM FILE. 

FILE IS RANDOM ANS-o2 IS. SET 
SAVE ORIGNAL Q@ VALUE 

SAVE ENTRY FLAG FOR NOW 

TEST FLAG FOR EP39 OR EP4O 
MULTI RECORD Q=4 RECORDS ~—1 
TEST FOR NEXT RECORD OR SPACING 
SPACING REQUEST FLAG IS SET 
RESET FLAG AS MULTI 

SAVE FOR NOW 


LINKED FILE MULTI OR NEXT RECORD 


ANS IS SET + 


NULL 
AOS 
NULL 
LDQ 
AN@ 
TRA 


SA VRB #4 


373e0P.PAT 
eo FMCRE 
PATSCN 


SAVRB 


H RECORDS ~1 


UPDATE RECORD COUNT TO ACTUAL 


PICK UP REL. LOCATION WITHIN DESCRIPT 
CLEAN OUT FILE SIZE 
GO FIND IT IN PAT 


86 


ANON1800 


10802280 
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EP # 23 CCMMON MASS STORAGE SEEK CALCULATION 
7496 * 
7497 * RANDOM FILE, Q REGISTER = RELATIVE BLOCK WITHIN FILE 
7498 * CONVERT TO LL INK # PRIOR TC PAT SCAN . 
7499 x ANS =0 , 
7500 * 
011237 7501 RNOOM NULL 
011237 011204 3762 00 010 7502 ANQ RBKMSK INSURE + BLOCK NUMEER 
0171240 000001 5062 14 000 7503 DIV BPR #4 CONVERT TO LLINK # 
011241 000005 7552 14 Q00 7504 STA SAVLO 44 LEFTOVER SECTORS ANON2010 
C11242 000006 7562 14 O00 7505 STQ SAVRB 44 SAVE RELATIVE BLOCK ALWAYS 
011243 7506 RNDOM1T NULL 
01171243 011204 3762 00 O10 7507 ANQ RBKMSK AND OUT ODD BLOCK # 
011244 000200 3002 03 O00 7508 CANXO oFMFDP,DLU IS FILE DESCRIPTOR REWOUND 
011245 011322 6002 00 010 7509 TZE PATSCN START SCAN FOR LLINK A IN Q—REG 
011246 200003 2353 13 O00 7510 LDA 3230P.PAT SEE IF THIS LLINK &#A DESCR. IS IN CORE 
C11247 011205 3752 00 010 7511 ANA oFMCRB LLINK POSITION IN A REG 
011250 oO00002 7552 14 000 7512 STA ADEND 4 SAVE IN TEMP STORAGE 
C11251 000002 1362 14 O00 7513 SBL®@ ADEND 64 NEW BLOCK NOW RELATIVE TO INCORE DES. 
011252 011322 6C52 00 010 7514 TPL PATSCN DESIRED POS IS HERE OR ON FORWARD 
7515 * 
7516 * NEED TO REWIND THE DESCRIPTORS 
7517 * 
011253 9000400 3002 03 9000 7518 CANXO oFMPMF,DU CANNOT REWIND A TEWP FILE 
011254 011467 6012 00 010 7519 T™NZ DOALL BACKSPACE PERM RANDOM FILE 
7520 * 
7521 * CANNOT REWIND A TEMP FILE DENY ACCESS 
7522 * 
011255 000003 4502 14 O00 7523 STZ RESID 64 DONT GIVE ANY RESIDUE 
C11256 600000 2362 03 O00 7524 LDQ =0600000.DU GIVE BACK TOO FAR ERROR 
(11257 011461 7102 00 010 7525 TRA RTN MAKE GRACEFUL EXIT 


e ® 
@ @ 
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® EP # 23 COMMON MASS STORAGE SEEK CALCULATION ° 
@ 7527 * @ 
7528 * SPACING REQUEST 
7529 * XO = PAT ATTRIBUTES 
@ 7530 * FLAG IN ANS IS NEGATIVE @ 
7531 * DIRECTION AND CCUNT OF SPACING IN SAVRB | 
7532 * 
@ 011260 7533 SPREQ NULL @ 
C11260 200003 2353 13 O00 7534 LDA 343-P.PAT PICK UP CURRENT LOC. WITHIN DESCRIPTO 
011261 011205 3752 00 010 7535 ANA ~FMCRB MASK OUT FILE SIZE 
@ C11262 000000 0362 03 O00 7536 ADLQ O,DdU TEST FOR + FCRWARD OR — BACK @ 
011263 011272 6042 00 010 7537 TMI SPRQB BACK IT IS 
C11264 011317 6002 00 010 7538 TZE SPXIT POSITION FOUND SPACE 0 
a 011265 000006 0352 14 O00 7539 ADLA SAVRB +4 ADD IN NEW FORWARD POSITION & 
011266 000020 1152 03 O00 7540 CMPA =020, DU TEST IF OVERFLOW INTO SIZE 
611267 011403 6C32 00 010 7541 TRC FORWDE TOC FAR STOP HIM NCW 
@ 011270 200003 0563 13 O00 7542 ASQ 343-P.PAT UPDATE NEW POSITION WITHIN DESCRIPTOR & 
011271 011234 7102 00 010 7543 TRA LKRW1 MERGE WITH LINKED FILE ENTRY 
7544 * 
e@ 7545 * BACKSPACE REQUESTED SEE IF DESCR. IN CORE CR BACKSP. DESCR,. @ 
7546 * 
011272 7547 SPRQ@B NULL | 
) 011272 000004 7552 14 000 7548 STA MRECC 44 SAVE PRESENT POSITION IN TEMP ® 
011273 000004 0362 14 O00 7549 ADLQ MRECC 64 ADD NEG LLINKS TO GO BACK 
011274 011300 6042 00 010 7550 TMI SPRQB1 BACK TOO FAR TRY TO BACKSPACE DESCRIP 
@ 7551 * | ) 
7552 * DESIRED POSITICN IS IN DESCRIPTORS IN CORE UPDATE AND GO 
= 7553 * 
& (11275 oo0000 2202 03 O00 7554 LDxO Or DU SET ERROR FLAG TO QO. K. & 
011276 000003 4502 14 O00 7555 STZ RESID »4 SET TO GOOD RESIDUE 
C11277 011312 7102 00 010 7556 TRA SPRQFR UPDATE PAT AND RETURN 
& 7557 * @ 
7558 * NEED TO BACKSPACE DESCRIPTORS 
7559 * 
@ 011300 7560 SPRQB1 NULL @ 
011300 000400 3002 03 O00 7561 CANXO .FMPMF,DU IS THIS TEMP OR PERM FILE 
011301 011306 6002 00 010 7562 TZE SPRQBR TEMP FILE CANT REFRESH GIVE ERROR AND 
) 011302 000200 3002 03 000 7563 CANXO .FMFDF,DU IS FIRST DESCR. IN CORE e 
011303 011306 6002 00 010 7564 TZE SPRQBR YES WENT BACK TOO FAR GIVE ERROR AND 
. 7565 * 
) 7566 *  BACKSPACE PAT DESCRIPTORS .CALL .MFS1842 ONLY ON SPACING & 
7567 * 
011304 7568 SPRQB2 NULL 
e 011304 000006 7562 14 000 7569 STQ SAVRB +4 SAVE # LLINKS YET TO GO IN SAVRB @ 
011305 011467 7102 00 010 7570 TRA DOALL BACKUP DESCRIPTORS. 
i 7571 * 
) 7572 * ERROR DURING SPACING SET 3,43 TC LAST ACCESS LEGAL Ss 
7573 * 
011306 7574 SPRQBR NULL 
) 011306 600000 2202 03 000 7575 LDXxO =0600C00,DU SET TOO FAR BACK FLAG & 
011307 000000 5332 00 O00 7576 NEGL MAKE REVERSE RESIDUE POSITIVE 
® @ 
© @ 


1245T 02 12-27-79 09.357 H6600J7.002 1/0 S UP ERV IS OR 7912191080 PAGE 189 


EP # 23 COMMON MASS STORAGE SEEK CALCULATION 


C11310 000003 7562 14 000 7577 STQ RESID s4 SAVE THIS RESIDUE 
011311 O00000 2362 03 O00 7578 LDQ Or DU SET FILE POSITION TO REWOUND 
| 011312 7579 SPRQFR NULL 
011312 777760 2352.03 000 7580 LDA =0777760.DU GET MASK TO SAVE FILE SIZE 
011313 200003 3553 13 O00 7581 ANSA 3e3eP.PAT WIPE OUT PRESENT LOCATION 
| 011314 7582 SPRQF1 NULL 
011314 200003 0563 13 O00 7583 ASQ 3e3eP.PAT UPDATE WITH LAST GOOD POSITION 
011315 O00000 6362 10 O00 7584 EAQ 0-0 SET ERROR FLAG IN @ REG FROM XO 
011316 011461 7102 00 010 7585 TRA RTN RETURN TO CALLER 
7586 * 
7587 * NORMAL SPACE EXIT AFTER PAT SCAN 
7588 * 
| 011317 7589 SPXIT NULL 
011317 O00003 4502 14 O00 7590 STZ RESID 44 ZERO RESIDUE 
011320 9000000 2262 03 O00 7591 LDQ O, DU SET STATUS TC 0. K. 
011321 011461 7102 00 010 7592 TRA RTN RETURN TO CALLER 
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. EP # 23 COMMON MASS STORAGE SEEK CALCULATION 
eS 7594 x @ 
7595 * PAT SCAN ROUTINE 
7596 * CALLING SEQUENCE IS "TRA PATSCN " 
@ 7597 * REGISTERS -- X3 POINTS TO PAT BODY & 
7598 * G-REG = LLINK # TO ACCESS 
7599 * PAT BODY CONTAINS THE FOLLOWING 
& 7600 »* 3,3 IF RANDOM CONTAINS RELATIVE LLINK OF DESCR. IN FILE @ 
7601 * 343 IF LINKED FOSITION WITHIN CORE DESCRIPTORS 
7602 * Ne3 DESCRIPTORS 3 TYPES =SPACE~s/-DEVICE=sL INKAGE 
& 7603 * BIT 1 = 0 SPACE ADD FOR NEW POSITION e 
7604 * BIT 1 =1 TEST FOR OTHER TYPE 
7605 * BITS 4,5=C1 DEVICE UPDATE SCT ADDRESS 
@ 7606 * =00 LINKAGE SET INDEX TO FIND NEXT DESCRIPTOR r 
7607 x 
7608 * 
oo 011322 7609 PATSCN NULL & 
011322 200000 2213 13 000 7610 —LDX1 O-3-P.PAT INITIALIZE TC ORIGINAL SCT ADDRESS 
011323 «4017774 3612 03 O00 7611 ANX1 »FSCT1,DU MASK OUT PAT TYPE 
@ 011324 000004 7412 14 000 7612 STX1 MRECC 44 SAVE SCT TYPE IN TEMP e& 
011325 000002 7562 14 000 7613 STQ ADEND 44 SAVE RELATIVE POSITION WITHIN DESC. 
011326 000004 6212 13 000 7614 EAX1 43 SET X1 TO FIRST DESCRIPTOR IN CORE. 
® | 011327 7615 SCAN1 NULL BEGIN SCAN LOOP & 
011327 200000 2363 11 O00 7616 LDQ Or toP.PAT FETCH DESCRIPTOR IN Q 
011330 200000 3162 03 O00 7617 CANG «FMSPD,/DU WHAT KIND IS IT 
& 011331 011344 6012 00 010 7618 TNZ SCAN3 NOT SPACE DESCR.. TRY OTHERS @ 
011332 077777 3762 03 O00 7619 ANQ oFMLLD-DU DROP ALL BUT # LLINKS IN THIS DESC. 
011333 000022 7322 00 000 7620 QRS 18 POSITION IN @ LOWER 
@ 011334 000000 5332 00 o00 7621 NEGL NEGATE THIS NUMBER © ) 
011335 000002 0362 14 000 7622 ADLQ ADEND 44 ADE TO POSITION DESIRED 
011336 011357 6042 00 010 7623 TMI FNDSC. GUESS SPACE CONTAINED IN THIS DESC. 
@ (011337 «000002 7562 14 O00 7624 STQ ADEND 44 DID NOT FIND IT SAVE NEW VALUE TO GO @ 
011340 200000 2353 11 000 7625 LDA Or1,P.PAT HEY WAS THIS THE LAST DESC. IN CORE 
011341 011374 6052 00 010 7626 TPL FORWD YES IT WAS TRY TO REFRESH FORWARD 
) 7 011342 7627 SCAN2 NULL & 
017342 000001 6212 11 O00 7628 EAX1 1-1 BUMP X1 TO NEXT DESCRIPTOR 
011343 011327 7102 00 010 7629 TRA SCAN FETCH NEXT 
¢ 7630 * @ 
| 7631 * DESCRIPTOR NOT SPACEZ WHICH IS ITs DEVICE OR LINKAGE 
7632 * 
@ | 011344 7633 SCAN3 NULL @ 
011344 000000 6352 02 000 7634 EAA 0-QU GET UPPER DESCRIPTCR IN AtUPPER 
011345 240000 1152 03 O00 7635 CMPA =0240C00.DdU SEE IF DEVICE DESCR. 
a 011346 011353 6002 00 010 7636 TZE SCANG YES GO GET SCT @ 
7637 * 
| 7638 * HAS TO BE LINKAGE AS THATS ALL THAT IS LEFT 
¢ 7639 * ® 
011347 200000 1152 03 O00 7640 CMPA =0 200000, du SEE IF LINKAGE DESCR. 
€11350 011413 6012 00 010 7641 TNZ BDPAT GIVE ERROR PAT CLOBBERED 
& 011351 200000 7213 11 O00 7642 LXL1 Or1-P.PAT SET NEW X1 PCINTER & 
011352 011327 7102 00 010. 7643 TRA SCAN1 FIND NEXT DESCRIPTOR 
© e 
® ®@ 
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EP # 23 COMMON MASS STORAGE SEEK CALCULATION 
& 7644 * @ 
7645 * FOUND A DEVICE DESCRIPTOR,» UPDATE SCT AND CONTINUE SCAN 
7646 * 
& 011353 7647 SCANS NULL & 
011353 000000 6352 06 O00 7648 EAA Or QL MOVE DEVICE SCT ADDRESS INTO A UPPER 
C11354 017774 3752 03 O00 7649 ANA oFSCT14DU MAKE SURE NO EXTRANEOUS JUNK IS HERE 
& 011355 900004 7552 14 000 7650 STA MRECC 64 SAVE THIS SCT ADDRESS AND CONTINUE @ 
011356 011342 7102 00 010 7651 TRA SCAN2 BUMP X1 AND CONTINUE 
7652 * 
 ) 7653 * FOUND LOCATION IN DESCRIPTORS @ 
7654 * X1 POINTS TO THAT DESCRIPTOR 
7655 * Q@-REG CONTAINS NEG # LLINKS LEFT IN DESCRIPTOR 
® 7656 * MRECC CONTAINS THE SCT ADDRESS FOR THE SPACE & 
7657 * ADEND CONTAINS # LLINKS FROM THE START OF THIS DESCRIPTOR 
7658 * 
e 011357 7659 FNDSC NULL © 
011357 000007 2342 14 000 7660 — SZN ANS «4 WHAT TYPE OPERATION WE DOING 
011360 011317 6042 00 010 7661 TMI SPXIT SPACING OP GO TO SPACE EXIT 
@ 011361 200000 2353 11 000 7662 LDA Or1-P.PAT FETCH ENTIRE DESCRIPTOR IN A REG e 
011362 100000 3152 03 000 7663 CANA ~FMRLS*sDU WAS THIS SPACE DEFECTIVE 
011363 011415 6002 00 010 7664 TZE FOUND 1 NO IT IS GOOD SPACE 
& C11364 400000 3002 03 O0C 7665 CANXO .FMFPF,DU IS PROTECTED FILE ® 
011365 011370 6002 00 010 7666 TZE NOPROT NO SEE IF PERM 
011366 000002 2602 03 000 7667 ORXO oFMILP,DU SET ILL PRM FLAG FOR FILSYS. 
& 011367 200002 7403 13 000 7668 STXO 203eP.PAT INSERT ILL PERMS FLAG ¢ 
011370 7669 NOPROT NULL 
011370 000400 3002 03 000 7670 CANXO .FMPMF,DU BAD SPACE, WILL ALLOW ACCESS IF PERM 
e 011371 011415 6012 00 010 7671 TNZ FOUND 1 IT WAS A PERM FILE LET HIM HAVE IT e 
7672 * 
7673 * ACCESS TO TEMP FILE AFTER W OPTION» SOCK IT TO HIM 
& 7674 * @ 
011372 440000 2362 03 000 7675 LDQ =0440000,du REPORT THE BAD NEWS GEPR OPTION NOT V 
011373 011461 7102 00 010 7676 TRA RTN LEAVE HERE WITH ERROR LOADED 
@ 7677 * ) 
7678 * REFRESH FORWARD ALL TYPES OF OPERATIONS 
7679 * IF RANDOM FILE SAVRB CONTAINS RELATIVE BLOCK # IN FILE 
'@ 7680 * IF LINKED @ REQ = # LLINKS TO GO @ 
: 7681 * 
| 011374 7682 FORWD NULL 
) 011374 000400 3002 03 000 7683 CANXO .FMPMFsDU IS IT A PERM FILE @ 
011375 011403 6002 00 010 7684 TZE FORWDE NO TEMP CANT DO IT TO IT 
011376 002000 3002 03 O00 7685 CANXO .FMLDP,DL IS LAST SET OF DESCRIPTORS IN CORE 
@ 011377 011403 6002 00 010 7686 TZE FORWDE YES THEY ARE FILE SPACE EXHAUSTED PHE & 
7687 * 
7688 * FORWARD SPACE POSSI®8LE 
@ : 7689 * 7 & 
011400 000007 2342 14 000 7690 SZN ANS 4 WHAT TYPE OF OPERATION 
011401 011304 6042 00 010 7691 TMI SPRQB2 SPACING SAVE BLOCKS TO BRING IN @ 
® 011402 011467 7102 00 010 7692 TRA DOALL LINKED OR RANDOM QREG HAS OFFSET & 
7693 * 
@ @ 
®@ ® 
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* FOUND REASON WHY FORWARD SPACE IMPOSSIBLE 


* 
FORWDE 


FORWDS 


* 
* 
* 


BOPAT 


NULL 
LDXO 
SZN 
TMI 
EAQ 
TRA 
STQ 
NEGL 
TRA 


FOUND A 
NULL 


LDQ 
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FORWDS 
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LETS LEAVE WITH ERROR 

TELL USER HOW MUCH TOO FAR HE WENT 
NEGATE RESIDUE TO UPDATE PAT 

DO IT TO IT 


SET ERROR FLAG FOR BAD PAT 
EXIT WITH ERROR 


192 


® 
@ 
1245T 02 12-27-79 09.357 H6600J7. 002 1/0 SUPERVISOR 79121910S0 PAGE 193 
] 
EP # 23 COMMON MASS STORAGE SEEK CALCULATION 
7712 * & 
7713 * FOUND THE DESIRED SPACE WITHIN GIVEN SET OF DESCRIPTORS 
7714 * WILL NOW CALCULATE THE SEEK ADDRESS FOR THIS SPACE 
7715 x ] 
011415 7716 FOUND1 NULL 
011415 000000 5332 00 000 7717 NEGL MAKE REMAINING # LLINKS POSITIVE 
011416 001000 3002 03 O00 7718 CANXO .FMRNDSDL IS THIS A RANDOM FILE @ 
011417 011427 6012 00 010 7719 TNZ FOUND 2 YES DONT UPDATE THE NEW REL. LLINK 4 
011420 200003 2353 13 O00 7720 LDA 3e3eP.PAT LINKED UPDATE CURRENT LLINK 
011421 011205 3752 00 010 7721 ANA ~FMCRB WIPE OUT SIZE @ 
011422 000006 0352 14 000 7722 ADLA SAVRBo4 UPDATE # RECORDS : 
(11423 900020 1152 C3 000 7723 CMPA =02C, DU DID IT OVERFLOW INTO SIZE 
011424 011403 6032 00 010 7724 TRC FORWDE YES BOMB OUT DONT LET HIM 00 IT @ 
011425 000006 2352 14 000 7725 LDA SAVRB o& O0.K. TO UPDATE 
011426 200003 0553 13 O00 7726 ASA Ze 3eP.PAT IN WITH THE NEW 
7727 * ® 
7728 * MERGE WITH RANDOM 3434P,.PAT UPDATED FOR LINKED FILE 
7729 * 
011427 7730 FOUND2 NULL @ 
011427 000001 4022 14 000 7731 MPY BPR »o4 FIND THE NUMBER OF BLOCK/RECORD 
011430 000003 7562 14 000 7732 STQ RESID +4 SAVE HERE FOR TIME BEING 
011431 701403 2203 12 000 7733 LDXxO @CRCT4e2 oP.CR GET DDD OFFSET AGAIN 10802440 ® 
011432 200000 2363 11 O00 7734 LD OrteP.PAT PICK UP THIS SPACE DESCRIPTOR 
011433 777777 3762 07 O00 7735 ANG oFMBLKsDL STARTING LLINK LOCATION 
0114 34 000002. 0362 14 000 7736 ADL®Q ADEND 44 ADD A LLINKS IN DESCRIPTOR & 
011435 000001 4022 14 000 7737 MPY BPR»4 CONVERT TO BLOCKS. 
011436 O00003 2352 14 000 7738 LDA RESID +4 GET BLOCK COUNT LIMIT 14FW1450 
011437 NO00007 2342 14 000 7739 SZN ANS 44 WAS THIS A RANDOM FILE & 
011440 911445 6012 00 010 7740 TNZ FOUND3 LINKED (BLOCK IS 0 MOD RECD.~SIZE) 
011441 000002 7562 14 O00 7741 STQ ADEND 44 SAVE BLOCK AT BEGINNING OF LLINKS 
011442 900005 0362 14 O00 7742 ADLQ SAVLO 44 PLUS ODD BLOCKS ANON2030 S 
011443 000005 1352 14 O00 7743 SBLA SAVLO 44 LESS ODD BLOCKS ANON2050 
011444 000003 7552 14 O00 7744 STA RESID s4 ANON2060C 
7745 * | & 
7746 * HAVE BLOCK # FOR SEEK IN Q@ REGs WILL NOW GO TO EP ~4 OF 
7747 * APPRCPRIATE CHANNEL MODULE FOR A SEEK CALCULATION 
7748 * & 
011445 7749 FOUND3 NULL 
011445 000004 4707 10 N00 7750 LDP P0-4,0-PC GET BNLNK PTR 10802300 
(11446 000002 7432 14 O00 7751 STX3 ADEND »4 SAVE X3 SO WE CAN POINT TO SCT FOUND ®& 
011447 000004 2232 14 000 7752 LDXx3 MRECC +4 POINT TO LAST SCT FOUND 
011450 on0000 7013 00 O00 7753 TSX1 Oo PO CALL CHANNEL MODULE 10802320 
011451 000000 0112 00 o00 7754 NOP ERROR STATUS IS IN QU 10802330 ] 
(11452 900002 2232 14 000 7755 LDX3 ADEND 64 RESTORE USERS X3 
| 7756 * 
7757 * SEEK ADDRESS HAS BEEN CHECKED, OPEN GATE ) 
7758 * RESTORE USERS REGISTERS» PUT NEW SCT ADDRESS IN XO AND GO 
| 7759 * 
011453 7760 FOUND4 NULL | & 
011453 000003 2352 14 000 7761 LDA RESID +4 SAVE RESIDUE 
@ 
@ 
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EP # 23 COMMON MASS STORAGE SEEK CALCULATION 


011454 7762 SEKRET NULL 
011454 Q00004 2202 14 O00 7763 LDXO MRECC 4 SCT ADDRESS 10802360 
011455 600012 2243 54 Q00 7764 LDX4 eSSAse DI F.SSA RESTORE CALLERS X4 ANON182C0 
011456 400000 3162 03 O00 7765 CANQ eFBTO,DU TEST ERROR 10802380 
011457 9000001 6002 15 O00 7766 TZE 125 NO 10802390 
C11460 000000 7102 15 O00 7767 TRA 0-5 YES rost2400 
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| EP # 23 COMMON MASS STORAGE SEEK CALCULATION 
1 © 7769 * 
| 7770 * RETURN NOT NORMAL BUT GATE SHUT» DO NOT PASS BACK SCT 
7771 * 
@ 011461 7772 RTN NULL 
011461 000004 4502 14 000 7773 STZ MRECC 64 ZERO SCT POINTER 
011462 011453 7102 00 010 7774 TRA FOUND 4 TAKE EXIT 
7] 7775 * 
| 7776 * PAT FAILED FROM .NFS18/N CALL CATE IS OPEN 
7777 * | 
@ 011463 7778 NOTS1 NULL 
011463 000000 6222 05 000 7779 EAX2 O- AL RESET INDEX 2 
011464 000000 6212 01 000 7780 EAX1 O- AU RESET X1 RETURN 
@ 011465 420000 2362 03 000 7781 LDQ =0420C00.duU SET PAT FAILED FLAG 
| 011466 011454 7102 00 010 7782 TRA SEKRET TAKE USER ERROR EXIT 
| 7783 * 
7 @ 7784 * COMMON ROUTINE TO PACK REGISTERS OPEN GATE IN CALLING 
| 7785 * CHANNEL MODULE. EXPONENT REGISTER WILL NOT BE USED 
| 7786 * IN .MFS18. RETURN FROM .MFS1& XO WILL CONTAIN STATUS 
1 @ 7787 * IF XQ NON ZERO BAD STATUS WILL SET ERROR CODE AND 
| 7788 * TAKE O01 EXIT. GOO STATUS WILL RESTORE REGISTERS 
7789 * AND CONTINUE SEEK CALCULATION 
1 @ 7790 * : 
| 011467 7791 DOALL NULL 
| C11467 000006 2362 14 000 7792 LOG SAVRB 4 ANON1660 
5 @ 011470 900000 2352 14 000 7793 LDA BPL»4 11FW1080 
| 011471 000022 7352 00 O00 7794 ALS 18 11fW1090 
011472 000001 2752 14 O00 7795 ORA BPR»o4 11FW1100 
1 ®@ C11473 600012 7553 56 O00 7796 STA ~SSAs IDS FSSA SAVE BPL & BPR 11FW1110 
| 011474 600221 2353 00 O00 7797 LDA eSVFLT++P.SSA ANON1680 
| 011475 600012 7553 56 000 7798 STA ~SSAs IDs FSSA & ENTRY MODE ANON1690 
@ 011476 000007 4112 14 000 7799 LDE ANS +4 HOLD PARAMETERS ANON1700 
| 011477 O00005 2352 14 000 7800 LDA SAVLO o4 HOLD RESIDUE EL8. 
| : 7801 ANON1720 
1 @ 011500 7802 eCALLY .MFS1&,1 CALL PAT REFRESH ANON1730 
: | INHIB SAVE,/ON 
| C11500 600220 7403 00 000 STXO «STMPXeeP.SSA 
@ 011501 ICLIMB SD.SVYos .MFS18*6441,EAX0 
| (11501 011101713400 000 VFD 18/oMFS1&*6441709/71341/101/001/006/M, 
C11502 000000606123 000 VED 1/09/04 8/001/.N01/.002/002/0012/8SD48SVY 
) INHIB RESTORE 
| 7803 ANON1740 
011503 000005 7552 14 000 7804 STA SAVLO 04 SAVE RESIDUE EL8. 
: ©@ (11504 600012 2353 54 000 7805 LDA »SSAsDIZF.SSA ANON1760 
(11505 600221 7553 00 O00 7806 STA eSVFL Tse F.SSA ANON1770 
(11506 600012 2353 54 000 7807 LDA «SSAsDI+e PSSA RETRIEVE BPL & BPR 17FW1150 
1 @ C11507 000000 6212 05 O00 7808 EAX1 Or, AL 17FW1160 
011510 000001 4412 14 000 7809 SXL1 BPR»4 11fW1170 
011511 000022 7312 00 O00 7810 ARS 18 11FW1180 
& (11512 o00000 7552 14 000 7811 STA BPL +4 11FW1190 
011513 o00000 6202 10 O00 7812 EAXO 0,0 TEST FOR ERROR FROM FS18 
7; ®& 
e 
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EP#24 END OF FILE PROCESSING FOR MASS STORAGE 
6010 00 010 7874 TNZ EOFS YES/NO PAT FOR HIM 
2201 14 O00 7875 LDXxO @WEPEPs4 oP. 10Q 
4704 07 O00 7876 LDP POsSD.PSHADL 
6735 00 O00 7877 LDD P.PATsPH.PATs PO PO HAS PAT SEG. DESC 
2231 10 O00 7878 LOX3 Or0eP.PAT GET PAT BODY OFFSET 
3630 03 O00 7879 ANX3 oFPTOFs,DU UNMASK IT 
1030 03 O00 7880 CMPX3 eFADJ »DU IS IT ADJACENT 
6010 04 O00 7881 TNZ 2e1C NO 
6230 10 O00 7882 EAX3 OFFS 20 YES» SET PTR 
6200 00 000 7883 EAXO -1 SET RANDOM FLAG 
7431 14 O00 7884 | STX3 eWEST o4eP.10Q SAVE PAT OFFSET 
2231 13 O00 7885 LOX3 20 3eP.PAT GET ATTRIBUTE IN X3 
3030 03 O00 7886 CANX3 oFMRNDsDL IS IT RANDUM FILE 
6010 00 O10 7887 TAZ EOFS YES . 
7888 x 
7889 * LINKED FILE TEST EOF TYPE AND SET XO ACCORDING 
7890 * 
6200 00 oO0Cc 7891 EAXO 2 SET FOR BLOCK CNT EXHAUSTED 
2351 14 O00 7892 LDA WEEP 194 oP. 10Q LOAD SRWD#1 
7350 00 O00 7893 ALS 10 TEST STATUS= BLOCK COUNT LIMIT 
6040 00 010 7894 TMI +2 YES 
6200 00 O00 7895 EAXO 1 MUST BE END OF CYLINDER 
7561 14 O00 7896 STQ aWEEND+41 44,P.10Q SAVE Q-REG--BLOCKS XMITTED 
7897 * SET EP. # OF BLOCK PER RECORD 
5061 15 000 7898 DIV BPRFs5,P2 H OF RECORDS IN Q-REG BLOCK RESID 
7899 * IN A~REG 
4501 14 000Q 7900 $72 »WEI0S64 oP. 100 CLEAR .WEILOS 
7350 00 O00 7901 ALS 24 POSITION BLOCK RESIDUE IN A=REG 
6000 00 010 7902 — TZE EOF3 NO BLOCK RESIDUE-NO PROBLEM 
7903 * 
7904 * FOUND END OF FILE NOT ON RECORD BOUNDARY 
7905 * 
1000 03 O00 7906 CMPXO 2/DU WAS IT BLOCK COUNT LIMIT 
6010 00 010 7907 TNZ EOF2 NO» END OF CYLINDER 
7908 * 
7909 * BLOCK COUNT LIMIT BUMP XMITTED BY ONE 
7910 * 
0360 07 O00 7911 ADLQ 1/DL REC = REC+1 
7100 00 010 7912 TRA EOFS RECORD XMITTED IN Q=-REG 
7913 * | 
011570 7914 EOF2 NULL 
7551 14 000 7915 STA oWEIOSs4-P.100Q ODD BLOCKS IN (C-11 IN .WEIOS 
7916 * 
7917 * LINKED FILE QR = # RECORDS XMITTED 
7918 * CMD +1 = # RECORDS REQUESTED 
7919 * CMD4+1 - GR = # OF RECORD LEFT TO XMIT 
7920 * 
011571 7921 EOF3 NULL 
7561 14 O00 7922 STG »~WEICM,4 oP. 10 RECORDS XMITTED IN .WEICM 
2361 14 000 7923 LDQ »WEFCM,4,P.10Q LOAD CMD 


. 


1245T O02 


Te-27-79 
01171573 007700 
011574 100011 
C11575 000006 
011576 000001 
011577 100006 
011600 012043 
€11601 011612 
011602 100013 
11603 000000 
011604 100000 
011605 300003 
C11606 000000 
C11607 000001 
011610 000006 
011611 100011 
011612 100025 
011613 100006 
011614 200006 
011615 000000 
011616 100024 
011617 006013 
011620 100001 
011621 004000 
011622 011673 
011623 040000 
011624 011671 
011625 000020 
011626 100006 
011627 100004 
011630 9000040 
011631 011676 
011632 000016 


09.357 


3760 07 000 
6561 14 000 
7720 00 000 
0360 07 9000 
1361 14 000 
6040 00 010 
6000 00 010 


0561 14 000 
5330 00 000 
2231 14 000 
0561 13 000 
5330 00 000 
1360 07 9000 
7360 00 000 


2561 14 000 


2361 14 000 


011613 
7401 14 000 


011614 


4021 15 000 
5330 00 000 
7561 14 000 
4704 07 O00 
7201 14 000 
3000 03 900 
6010 00 010 
3000 03 000 
6010 00 010 
6210 14 000 
4411 14 000 
7201 14 000 
3000 03 9000 
6010 00 010 
6745 14 000 


011633 


H6600J7.002 


EP#H24 


* *£ M+ Fe HH 


EOF8 


1/0 


ANQ 
ERSQ 
QRL 
ADLQ 
SBL®@ 
TMI 
TZE 


SET RECORD COUNT TO RESIDUE ~1. 


ASQ 
NEGL 
LDX3 
ASQ 
NEGL 
SBLQ 
QLS 
ORSQ 
NULL 
LDQ 


NULL 
STXO 


TEST THE DCW TYPE SUCH LIKE 


THEN» 


NULL 


CONVERT # BLOCKS TO # WORDS +» QR 


MPY 
NEGL 
STQ@ 
LDP 
LXLO 
CANXO 
TAZ 
CANXO 
TNZ 
EAX1 
SXL1 
LXLO 
CANXO 
TNZ 
LOD 


NULL 


S UP ERV IS 0R 


=0770CD0L 
»aWEFCMs4,P. 100 
6 

1/D0L 
eWEICM44 oP, 108 
EOF 24 

EOF4 


eWEIOS24-P.108 


WEST s4eF.100 
373eP.PAT 


14 0L 
6 
eWEFCMs4.P.100 


aWEENCD+1 444P. 108 


eWEICM4 oP, 108 


WPBPsSeP2 


eWEENDs4 oP, 10@Q 
POsSD.IOGSZDL 
»WEPRVs4 oP. 108 
eFFAUXSZDL 
EQFAU 

oF FDCWADU 
EOQFNO 

eWEDRFE 24 
eWEICM4+4,P.10Q 
eWESCT»4-P.100 
oF DSS ADU 

EOF? 
P.DATAs. wEDRI 444P0 


79127191080 PAGE 


END OF FILE PROCESSING FOR PASS STORAGE 


ISOLATE RECORD COUNT 

RESET RECORD COUNT TO ZERO 
RIGHT JUSTIFY RECORD COUNT 
NOW HAVE # RECORDS REQUESTED 
QR HAS RECORDS LEFT TO XMIT 
ALL DONE 

MAYBE ODD BLOCK CASE 


- DECREMENT DAT POSITION 


RECORD RESIDUE 

MAKE RESIDUE NEGATIVE 

GET PAT OFFSET IN X3 

BACK UP PAT POSITION 

MAKE RESIDUE POSITIVE 

CET RIGHT COMMAND RESIDUE 
POSITION FOR COMMAND 

PUT BACK INTO COMMAND 


BLCCKS XMITTED IN QR 


SAVE FILE ACCESS TYPE 


AUX-DCW / NO DCW / DCW IN I/0 ENTRY 
OCW SCAN TC CONTINUE I/0 ACCORDING TO ABCVE DCWS 


= # BLOCKS 


HAS WORDS PER BLOCK Q@ = # WORDS 
MAKE # OF WORD NEGATIVE 

SAVE WORD COUNTER 

LOAD TYPE1 DESC. IN PO 

CHECK THE DATA SEG.TYPE FOR DCW 
TS AUX SPECIFIED 

YES 

IS NO-DCW SPECIFIED 

YES 


SET 1ST DCW POINTER 


IS EOF~DCW ALREADY GENERATED 
YES 


LOAD DATA DESC IN P,DATA 


199 


011633 
011634 
011635 
011636 


011637 
011640 


C11641 
011642 
011643 
011644 
011645 


011646 
011647 
011650 
011651 
011652 
011653 


011654 
011655 
011656 


011657 
011660 


011661 
011662 
011663 
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100007 
400000 
000001 
030001 


020000 
011646 


000040 
071644 
000016 
000000 
011634 


007777 
011651 
010000 
100024 
071654 
011703 


477777 
030000 
012043 


100024 
011634 


400000 
020000 
011700 


09.357 H6600J7.002 1/0 S U PERV IS CR 7912191080 PAGE 


EP#24 END OF FILE PRCCESSING FOR MASS STORAGE 


2231 14 O00 7974 LDX3 eWEOFFs4 -P.10Q 
2351 13 O00 7975 LDA Or3/P.DATA GET DCW 
0230 03 O00 7976 ADLX3 1/DU BUMP POINTER TO NEXT OCW 
3360 07 O00 7977 LCQ =0030001.0L ACTION CODE IN DCW IS MASKED 
7978 * (MASK 777777747777) 
2110 07 O00 7979 CMK TOC We OL Is IT TOCW 
6010 00 010 7980 TNZ EOFS NO» MUST SE DATA DCW 
7981 * 
7982 * | 
7983 * FOUND TOCW,s NEED TO RESET X3 FOR NEXT DCH 
7984 x- 
3000 03 O00 7985 CANXO oF DSSASZDL IS EOF-DCW ALREADY GENERATED 
6000 00 010 7986 TZE +2 NO 
6745 14 000 7987 LDD P.DATAs.WEDRI»4eP0 LOAD DATA DES.WITH CCW 
6230 01 O00 7988 EAX3 O- AU . GET ADDR OF NEXT DCW 
7100 00 010 7989 TRA EOF &+1 GO TO FIND NEXT OCW 
7990 * 
7991 * FOUND DATA DCW » ADD # WORES TO .WEEND IN I/0 ENTRY 
7992 * 
011646 7993 EOF9 NULL 
3750 07 OOO 7994 ANA WOCTsOL ISOLATE AWORDS THIS OCW 
6010 00 010 7995 TNZ *+2 NOT 4096W 
2350 07 O00 7996 LDA =0100CO, DBL 4096Ws SET #4 OF WORDS IN A-REG 
0551 14 000 7997 ASA ~WEENDs4 oP. 10Q UPDATE COUNT TO .WEEND 
6000 00 010 7998 TZE EOF10 DCW EXHAUSTED EXACT SEE IF IOTD 
6050 00 010 7999 TPL EOF14 
8000 * 
8001 * STILL MAY HAVE MORE TO GO TEST FOR IOTD 
8002 * 
011654 8003 EOF1QO NULL 
2351 13 O00 8004 LDA —153eF.DATA WAS IT AN IOTD 
3150 07 OOO 8005 CANA =0300C00-0L ISOLATE IOTD ACTION CODE 
6000 00 010 8006 TZE EOF24 YES» IT WAS RETURN OK STATUS 
8007 * 
8008 * IT WAS NOT IOTD MAY BE MORE TO GO 
8009 x 
2341 14 O00 8010 SZN ~WEENDs4 oP. 108 SEE IF ZERO CASE 
6010 00 010° 8011 TNZ EQF8+1 NO GET NEXT DCW 
8012 * 
8013 * FOUND DCW WHERE OCW INTERRUPTED 
8014 * # WORDS THIS DCW IN AR 
8015 * # WCRES XMITTED FROM THIS OCW IN wWEEND 
8016 * BUILD A NEW DCW AND A TOCW TO NEXT IN STRING 
8017 * 
8018 * DCW EXHAUSTED EXACTLY» USE USERS NEXT DCW 
8019 * : 
011661 8020 EOF11 NULL 
2351 13 O00 8021 LDA O43 e0P.DATA GET THIS OCW 
2110 07 O00 8022 CMK TDCWe DL SEE IF TOCWs QR HAS MASK 
6010 00 010 8023 TNZ EOQF12 NOT TOCW USE NEXT DCW 


200 


1245T O02 12-27-79 


011664 
011665 
011666 


011667 


C11670 


011671 
011672 


011673 
011674 
011675 


011676 
011677 


011700 
C11701 
011702 


011703 
011704 
011705 
011706 
011707 
011710 
0117171 


011712 
011713 
011714 
011715 
011716 
011717 
011720 
011721 


000040 
011667 
000016 


000000 


011661 


100007 
100006 


006204 
000034 
011633 


100000 
011633 


100024 
000001 
011712 


100024 
000022 
477777 
007777 
100024 
002165 
100024 


100001 
040000 
011735 
004000 
011722 
77777? 
100006 
071735 
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3000 03 000 
6000 00 010 
6745 14 000 


6230 C1 000 
7100 00 010 


011671 
2211 14 000 
4411 14 000 

011673 
4704 07 000 
6745 00 000 
7100 00 010 


011676 
6345 00 9000 
7100 00 010 


011700 
7551 14 000 
0230 03 9000 
7100 00 010 


011703 
1351 14 000 
7350 00 000 
0351 13 000 
2360 O07 900 
3561 14 000 


3750 04 14075 


2551 14 O00 


011712 
72071 14 000 
3000 03 9000 
6010 00 010 
3000 03 900 
6000 00 010 
0230 03 000 
4431 14 000 
7100 00 010 


8024 
8025 
8026 
8027 
8028 
8029 
8030 
8031 
8032 
8033 
8034 
8035 
8036 
8037 
8038 
8039 
8040 
8041 
8042 
8043 
8044 
8045 
8046 
8047 
8048 
8049 
8050 
8051 
8052 
8053 
8054 
8055 
8056 
8057 
8058 
8059 
8060 
8061 
8062 
8063 
8064 
8065 
8066 
8067 
8068 
8069 
8070 
8071 
8072 
8073 


H6600J7.002 


EP#24 


* 


1/0 


CANXO 
TZE 
LOD 


EAX3 
TRA 


NULL 
LDX1 
SX1 
NULL 
LDP 
LOD 
TRA 


NULL 
EPPR 
TRA 


NULL 
STA 
ADLX3 
TRA 


BUILD A 


NULL 
SBLA 
ALS 
ADLA 
LDQ 
ANS@ 
ANA 
ORSA 


NULL 
LXLO 
CANXO 
TNZ 
CANXO 
PLE 
ADLX3 
SXL3 
TRA 


BUILD TOCW FOR NEXT IN LIST 


S UP ERVIS OR 


«=F DSSAZDU 
x+? 
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END OF FILE PROCESSING FOR MASS STORAGE 


IS EQF-DCW ALREADY GENERATED 
NO 


P.DATAs.bEDRI 444P0 LOAD DATA DESC, 


O,AU 


EOF11 


DATA DESCRIPTOR 
»WEOF Fe4 oP. I0Q 
»WEICMs4 oP. 10Q 


PO,SD.PSHADL 
P.DATAsrPH.OCWsrePO0 


EOF8 


GET NEXT DCW ADDR 


SHOULD BE IN DCW BUFFER 


LOAD DCW DESC IN PL. DATA 
GO TO CHECK DCW 


1ST DCW CFFSET SHOULD BE A RELATIVE TO I/0 ENTRY POOL 


P.DATAs0+eP.1 08 


EOFS 


eWEEN Co4 oP. I0Q 


12D0U 
EOF13 


LOAD P.I0Q DESC. AS A DATA DESC. 
GO TO CHECK DCW 


WE WILL USE THIS ONE 
BUMP PTR TO NEXT OCW 
MERGE TO BUILD TODCW 


DCW TO FINISH OUT USERS LAST DCW 


eWEENDs4-P.10Q 


18 
~173-P.DATA 
=O7777eDL 


»WEENDs4eP.100 
=07777777700002$ 
»~WEENDs4 oP, I0Q 


»WEPRV24-P.10Q 


oF FOCwWADU 
EOFS 

oF FAUXSZDU 
e+ 

~1,DU 


oWEICM24 oP. 10Q 


EOQF1S 


GET # OF WORDS THIS DCW 

POSITION DCW ADDRESS IN A-UPPER 

HAVE ADDR FOR NEXT WORD IN A-REG 

LOOK OUT FOR 4096 

IT HAS WORDS LEFT TO XMIT THIS DC 
ZERQ WORD COUNT IN A-REG 

NEW DCW NOW IN ,WEEND 


CEBBUG 


IS AUX SPECIFIED 
NO 

ADJUST POINTER 
SAVE DCW POINTER 
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EP#24 END OF FILE PROCESSING FOR MASS STORAGE 
C11722 770000 3150 07 O00 8074 CANA =0770000 »DL TEST IOTD EL8. 
011723 011735 6000 00 010 8075 TZE EOF1S YES EL8. 
011724 600204 0545 00 000 8076 STD P.DATAs2STEMP a eP.SSA STORE SEG BOUND EL8. 
011725 600204 1031 00 O00 8077 CMPX3 eo STEMPssP.SSA IS INDEX VALID EL8. 
C11726 012035 6054 00 010 8078 TPNZ EQF22 NOs» RETURN ECF EL8. 
011727 400000 2351 13 O00 8079 LDA Ov 3eP.DATA FETCH NEXT OCW 
011730 030001 3360 07 000 8080 LCQ =030001.DL FOUND OUT ACTION CODE (7777777477 
011731 020000 2110 07 O00 8081 CMK TDOCWs OL IS IT A TOCW 
011732 011735 6000 00 010 8082 TZE EOFS YES/-USE IT INSTEAD OF BUILDING ON 
011733 Q00000 6350 13 O0C 8083 EAA 0,3 ADDR FOR TDCW IN AsUPPER 
011734 020000 2750 07 O00 8084 ORA TOCWe OL SET TOCW ACTION CODE. 
- 8085 * 
8086 * HAVE DCW PAIR IN DCW BUFFER OR I/0 ENTRY AND AR 
8087 * 
011735 8088 EOF1S NULL . 
011735 100006 7201 14 000 8089 LXLO »WEICMs4 oP 108 RE~LOAD DCW BUFPTR AREA FOR EOF P 
011736 100007 7401 14 O00 8090 STXO eWEOFFs4-P.108 SET 18ST OCW POINTER 
011737 100001 7211 14 O00 8091 Lx o»WEPRVs4-P.10Q 
011740 044000 3010 03 000 8092 CANX1 ~FFOCWH. FFAUX »DU 
011741 011747 6010 00 010 8093 TNZ EOFST 
011742 400000 6355 00 O00 8094 EPPR P520eeP. DATA SAVE P.DATA IN P5 
011743 1900000 6345 QO O00 8095 EPPR P.,DATAsQreP.100 SET DCW DATA DESC. 
011744 400001 7551 10 000 8096 STA icOoP.DATA PUT IN TDCW IN WDO1 OF DCW PAIR 
011745 000040 2360 07 QO00 8097 LDQ oFDSSASDL . 
C11746 100004 2561 14 O00 8098 ORSQ eWESCT+#4oP.100 SET EOF-OCW FLAG SET 
: 8099 * 
011747 8100 EOFST NULL 
011747 100024 2351 14 O00 8101 LDA eWEENDA»4,P. 108 GET DATA DCW IN A=REG 
C11750 400000 7551 10 O00 8102 STA O0-0-P.DATA 
8103 * 
8104 * GET RELATIVE ADDRESS OF PAT IN X3 
8105 * AND ACCESS TYPE IN x0 
8106 * 
011751 100013 2361 14 O00 8107 LDQ oWEIOS+4 oP. 10Q GET BLOCK OR RECORD DATA 
C11752 100000 2231 14 O00 8108 LDX3 eWEST 24 F.10Q PAT OFFSET IN X3 
011753 006204 4704 07 O00 8109 LOP PO»SD.PSHeDL 
C11754 000002 6725 00 O00 8110 LOD P2ePH.sPATss PO LOAD PAT DESC. 
011755 100006 2201 14 O00 8111 LOXxO eWEICM+44P.108 LOAD ACCESS TYPE IN XO 
011756 012005 6000 00 010 8112 TZE EQF18 SYOT NO PAT ABSOLUTE BLOCK 
011757 012014 6040 00 010 8113 TMI EQF19 RANDOM FILE 
8114 * 
8115 * LINKED FILE.» GET SEEK FROM EP=-2 
8116 * 
011760 000077 3160 07 O00 8117 CANQ =077,/0L SEE IF RECORD COUNT ZERO 
011761 011765 6010 00 010 8118 TNZ EOF16 NO 0.4K. TO SUBTRACT 
C11762 777700 3160 03 O00 8119 CANQ =0777700,0U SEE IF ODD BLOCK EXISTS 
C11763 011766 6010 00 010 8120 TNZ EOF17 RESIDUE DONT SUBTRACT 
011764 012071 7100 00 010 =. 8121 TRA EOF30 USER EXCEEDED MOD 320 REC SIZE 
8122 * 
011765 8123 EOF16 NULL 


lie@ceoevoveeveeeeeeeeee eee eo ele le 


1245T C2 12-27-79 
C11765 000001 
011766 000077 
011767 300000 
011770 011206 
C1771 072035 
011772 777700 
011773 100013 
011774 012017 
011775 100013 
011776 012000 
011777 100013 
012000 100006 
C12001 100013 
C12002 000030 
012003 100013 
012004 012020 
C12005 000004 
012006 006131 
012007 701403 
012010 9000005 
012011 900000 
012012 012046 
012013 012017 
012014 777777 
C12015 011206 
C12016 012046 
012017 100006 
012020 720000 
C12021 100004 
Ci12022 100004 


09.357 


1360 07 O00 


011766 
3760 07 000 
4110 03 000 
7050 00 010 
7100 00 010 
2350 03 000 
3551 14 000 
6000 00 010 
1161 14 000 
6020 00 010 
1361 14 000 
7561 14 000 
2351 14 000 
7710 00 000 
0551 14 000 
7100 00 9010 


012005 
6230 14 000 
4704 07 9000 
2201 11 O00 
4705 10 000 
7011 Q0 9000 
7100 00 010 
7100 00 016 


012014 
4110 03 000 
7050 00 010 
7100 00 9010 


012017 
7561 14 000 


012020 
2210 03 O00 
3411 14 000 
2401 14 9000 


H6600J7.002 


EP#24 


EOF17 


1/0 S UP ERVIS OR 7912191080 PAGE 


END OF FILE PRCCESSING FOR MASS STORAGE 


SBL@ T/DL RECORDS -1 IN QR 

NULL 

ANQ =077.DL 63 MAX 

LDE =0300C00.0uU SET SKWPT FLAG 

TSX5 MSCSK GET SEEK ADDRESS 

TRA EOF22 COPS ERROR FOR SEEK 

LDA =0777700.,DdU MASK FOR ODD BLOCK. 

ANSA oWETOS44 oP. 10 WIPE OUT OLD RECORD COUNT 
TZE EOF 20 NO ODD BLOCK NO FUNNY STUFF 
CMPQ eWETOS24sP.10Q TEST BLOCK COUNT LIMIT 
TNC x+2 MUST BE MAX BLCCK COUNT 
SBLQ oWEIOSs4 oP. 108 DECREMENT BLOCK COUNT 

STQ oWEICMs4 oP. 100 SAVE FOR NOW 

LOA »WEIOS¢4 oP, 108 GET ODD BLOCK 

ARL 24 RIGHT JUSTIFY 

ASA eWEIOS#4-P.10Q UPDATE SEEK ADDR. 

TRA EOF 21 


SYOT SPECIAL CET ABSOLUTE BLOCK # 


NULL 

EAX3 eWESCTs£4 NO PAT» USE I/0 ENTRY 
LDP POsSD.DDDADL GET DDD SEGMENT 

LDXO @CRCT441-P.€ER CHANNEL ENTRY 

LOP POs5eCeoPC #5 

TSX1 Os» PO GO TO CHANNEL MODULE 

TRA EOF26 ERROR ON RANDOW SEEK. 
TRA EOF 20 


RUNDOM FILE USE EP=-1 


NULL 

LDE -1,DU SET MSKWPT FLAG 

TSX5 MSCSK GET SEEK ADDRESS 

TRA EOF 26 ERROR ON RANDOM SEEK 


OUT NEW SEEK ADDR 


NULL 


STQ oWEICMs4 P10 NEW ADDR NOW IN I/0 ENTRY 


UPDATE SCT ADCR MAY HAVE NEW DEVICE 


NULL 

LOX4 =0 720000 »dU MASC OWT SCT AND GEPR SIT 
ANSX1 oWESCT+4 oP. 108 OUT WITH OLD SCT 

~ORSXO »WESCT»4-P. 108 IN WITH NEW SCT 


FINISH REBUILDING I/0 ENTRY 


203 


EL8. 
EL8. 


10SC1930 
10801940 
10$01950 
10801960 


EL8. 
EL8. 


] 
1245T 02 12-27-79 09.357 H6600J37.002 1/0 SUPERVISOR 7912191080 PAGE 204 
®& 
EP#24 END OF FILE PROCESSING FOR MASS STORAGE 
8174 * e 
012023 637777 2360 07 O00 8175 LDQ =0637777 DL TURN OFF BIT 0-1720621 
C12024 100000 3561 14 O00 8176 ANS@Q WEST 40 F100 IN WORDO OF I/70 ENTRY 
012025 000000 6210 00 O00 8177 EAX1 0 @ 
012026 100001 7411 14 O00 8178 STX1 ~WEPRVs4 oP. 10Q CLEAR PREVIOUS ENTRY 
8179 * 
8180 * LINK» REISSUE AND EXIT @ 
8181 * 
8182 * 
012027 012031 6360 00 010 8183 EAQ *+2 SET EXIT 10805345 @ 
C12030 004022 7100 CO 010 8184 TRA LINKF LINK FIRST 10805350 
8185 * 
012031 000000 6230 14 O00 8186 EAX3 0-4 ) 
| 012032 8187 EXIT 4 RETURN TO DISP 
INHIB SAVEsON 
012032 000002 6306 04 12034 EPPRO *+2,$ a 
012033 700006 7103 CO 000 TRA @CREXTorF.CR 
012034 000000 000004 #000 ZERO oRGoS 
INHIB RESTORE @ 
8188 * 
8189 * ERROR EXISTS LINKED FILE RETURN RECORD RESIDUE 
8190. x AND LOGICAL EOF .S. 17 e 
8191 x | 
012035 8192 EOF22 NULL 
012035 100013 2351 14 O00 8193 LDA @WEIOS+4sP.10Q GET RECORD RESIDUE & 
C12036 000077 3750 07 O00 8194 ANA =077,0L ISOLATE OTHER GARBAGE 
012037 570000 2200 03 000 8195 LDXO =0570C00,duU GET LOGICAL EOF STATUS 10806660 
012040 100010 7401 14 O00 8196 STXO ~WEEP 144 oP. 10Q SET IN LOGICAL EOF ® 
012041 100010 2551 14 000 8197 ORSA »WEEP 144 oP. 10Q INSERT RECORD RESIDUE 10806670 
012042 012045 7100 00 010 8198 TRA EOF25 
8199 x r 
8200 * 
012043 8201 EOF24 NULL 
(12043 600077 2200 03 O00 8202 LDXO =0600077 DU GET MASK FOR READY STATUS @ 
012044 100010 3401 14 000 8203 ANSXOQ 4WEEP144,P,10@Q WIPE OUT EOF STATUS 
8204 * 
012045 8205 EOF25 NULL RETURN STATUS TO USER e 
C12045 000000 6360 00 000 8206 EAQ a) QR=O/RESULT RETURN STATUS 
8207 * 
012046 8208 EOF26 NULL ) 
012046 100010 2351 14 O00 8209 LDA oWEEP144-P,10Q LOAD STATUS 
C12047 100001 7231 14 O00 8210 LXL3 eWEPRVs4 oP. 10Q MOVE I/0 ENTRY OFFSET TO x3 
012050 100000 1030 03 O00 8211 CMPX3 eFFTYF,DY IS IT SYSTEM I/0 @ 
012051 012056 6010 00 010 8212 TNZ EOF 28 NO-EXIT TO GEPR 
012052 006013 4704 07 O00 8213 Lop PO/SD.IOG/DL SRW MUST BE SPECIFIED-~YES 
012053 000014 6705 14 000 8214 LDD POs WEICE4-P0 DO STATUS RETURN & 
012054 000004 7551 00 O00 8215 STA ~IWST15eF0 
012055 012065 7100 00 010 8216 TRA EOF29 RETURN STATUS TO USER . 
8217 * @ 
8218 * CALLED FROM GEPR PUT SRW #1 IN I/O ENTRY 
®@ 
@ 


liececevvueeeeeeeeee eee ee 8 


1245T 02 


12-27-79 
012056 100010 
012057 260000 
012060 012065 
012061 000000 
C12062 000002 
012063 700006 
012064 000000 
012065 000000 
012066 900002 
012067 700006 
012070 on0000 
012071 100007 
012072 500000 
012073 100012 
012074 012043 


09,357 H6600J7.002 
EP#24 
8219 * 
012056 8220 EOF28 
7551 14 Q00 8221 
3160 03 O00 8222 
6000 00 010 8223 
8224 * 
8225 * 
8226 * 
6230 14 O00 8227 
012062 8228 
6306 04 12064 
7103 00 9000 
000001 000 
8229 * 
8230 * 
8231 x 
8232 * 
012065 8233 E 
6230 14 000 8234 
012066 8235 
6306 04 12070 
7103 00 9000 
000002 000 
8236 * 
8237 * 
8238 * 
8239 * 
012071 8240 E 
2231 14 O00 8241 
2351 13 O00 8242 
7551 14 O00 8243 
7100 00 010 8244 


1/0 S UP ERVIS OR 


NULL 

STA eWEEP 14 6P.108@ 
CANQ =0260C00.DdU 
TZE EQF29 


SEEK ERROR ON RANDOM FILE ABORT 


EAX3 04 

2 EXIT 1 

INHIB SAVEsON 
EPPRO *+2 oS 

TRA eCREX Toes PCR 
ZERO eRGo1 

INHIB RESTORE 


7912191080 PAGE 205 


END OF FILE PRCCESSING FOR MASS STORAGE 


IN WITH SRWA1 
IS IT RANDOM FILE TO FAR OUT 
NOsRETURN STATUS TO USER 


USER 


ABORT EXIT TO GEPR 


RETURN STATUS TO USERs EITHER LOGICAL EOF M.S. 17 
OR GOOD STATUS FROM DCWS EXHAUSTED OR RECORD COUNT O 


NULL 
EAX3 0+4 
a EXIT 2 


INHIB SAVE*ON 
EPPRO et 29S 

TRA »CREXTseF.CR 
ZERO @RGs2 

INHIB RESTORE 


RETURN STATUS TO USER EXIT FROM G 


USER IS TRYING TC ACCESS NEXT BLOCK RECORD+1 


RETURN HIM A READY WITH 


NULL 

LDX3 eWEOFF4-P, 108 
LDA 0,3-P5 

STA eWEEP 24 oP, 100 
TRA EOF 24 


A RESIDUE LIKE TAPE 


GET ADDR OCF DCW 
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EP #30 RESET CISSUE RESET PCW COMMAND TO PSIA CHANNEL) 


8246 * 

8247 * CALLED BY T & D ONLY 

8248 * 

8249 * INPUT REGISTERS 

8250 * A = PCW ODD IMAGE 

8251 * X-1 = TRUE CHANNEL INDEX OF CHANNEL TO BE RESET 

8252 * CDR? = P.CR 

8253 * 

012075 8254 RESET NULL 

012075 701200 2241 11 O00 8255 LDX4 eCRIO1/16P.CR ZERO 1/0 ENTRY ADDR INDICATES RESET P 
012076 012374 6010 00 O10 8256 TNZ RLXIT CHANNEL BUSY» CAN*T DO IT EL8. 
012077 701203 7221 11 O00 8257 LXL2 »=CRIO4+14P.,CR 
012100 003774 3620 03 O00 8258 ANX2 eo FCHNX,DU LOGICAL CHANNEL INDEX 
012101 701400 2361 12 000 8259 LDQ ~CRCT 142 6P.CR 
C12102 003077 3760 03 O00 8260 ANQ =03077,/DL IOM# AND CHANNEL#A 
012103 770000 2760 C7 O00 8261 ORG =0770C00.D0L PME WITH RESET PCW COMMAND 

8262 INHIB ON 

012104 8263 2 SHUT eCRGGTssP.CR 
612107 701002 2203 11 O00 8264 “LDXO ~CRMB241,P.CR INITIALIZE EXTEND MBX REGISTER 
012110 000002 6232 10 O00 8265 E AX EMX e200 
012111 006063 4736 07 O00 8266 LDP P.EMBsSD.RMS2 DL SET EXTEND DESCRIPTOR 
| 8267 

012112 010653 7552 00 O10 8268 STA CNECT +3 SET PCW ODD IMAGE 
012113 770000 2352 07 OQO0C 8269 LDA =0770000,-DL IDCW FOR RESET PCW 
012114 012374 6232 00 010 8270 EAX3 RLXIT SET RETURN Ets. 
012115 010654 7432 17 O10 8271 STX3 STIO0347 

8272 * | 
012116 010427 7102 00 O10 8273 TRA RSET ISSUE CONNECT AND CPEN GATE 


1245T 02 


12-27-79 
012117 701200 
012120 012374 
012121 701203 
O12122 903774 
C12123 040000 
C12124 600215 
012125 700000 
012126 600215 
012127 701400 
C12130 003077 
012131 600215 
012135 701002 
0127136 000002 
012137 006063 
012140 600215 
012141 010652 
012142 014076 
012143 600214 
012144 0900000 
012145 000077 
012146 900011 
012147 600214 
012150 000600 
012151 010653 
C12152 012374 
C12153 010654 
012154 


010436 


09.357 


012117 


2243 
6012 
7223 
3622 
2362 
3563 
2362 
2563 
2363 
3762 
2763 


012132 


2203 
6232 
4736 
2353 
7552 
2352 
5555 
6352 
3752 
7352 
2753 
2752 
7552 


6202 
7402 


7102 


11 


17 


00 


010 


010 


H6600J 


8275 
8276 
8277 
8278 
8279 
8280 
8281 
8282 
8283 
8284 
8285 
8286 
8287 
8288 
8289 
8290 
8291 
8292 
8293 
8294 
8295 
8296 
8297 
8298 
8299 
8300 
8301 
8302 
8303 
8 304 
8305 
8 306 
8307 
8308 
8309 
8310 
8311 
8312 
8313 
8314 
8315 
8316 
8317 
8318 
8319 
8320 
8321 
8322 


72002 


EP #31 


* + £ & + & H HF HH HF H H 


DCCON 


+ + + & 


1/0 


S UP ERV IS OR 
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OCCON CISSUE CONNECT ON IOM DIRECT DATA CHANNEL) 


PRESENTLY CALLED BY 35C CHANNEL MODULE ONLY 


INPUT REGISTERS 


INHIB 
NULL 
LDX4 
TNZ 
LXL2 
ANX2 
LDQ 
ANSQG 
LDQ 
ORSQ 
LDQ 
ANQ 
OR 
« SHUT 
LDXO 
E AX 
LOP 
LDA 
STA 
LDA 
ANSA 
EAA 
ANA 
ALS 
ORA 
ORA 
STA 


EAXO 
STXxO 


TRA 


A-REG 


Q-REG = 

X—1 = 

X-6 = KPX 
X-7 = CPUNO 
ODR6 = P.SSA 
ODR7 = P.CR 


ON 


eCRIO1+1 +P. CR 
RLXIT 

eCRIO4s1 PCR 

eo FCHNX*/DU 
=040000.60L 
eSTEMP4+9 e-P.SSA 
=07COCO0,DL 
»~STEMP4+9eoP.SSA 
eCRCTTe2eP.CR 
=03077,0L 
eS TEMP49 o oP. SSA 
CRAG Tor PCR 
eCRFB341.P.CR 
EMX e200 
P.EMB,SD.RMS,» DL 
aSTEMPH9 soP. SSA 
CNECT #2 

=000 77% ?7P00 
oSTEMPH+8 os oP. SSA 
0QU 

=077,0U 

9 

»STEMPH8 oeP.SSA 
=0600.DL 
CNECT +3 


PAGE TABLE POINTER (PTP) FOR CHANNEL 
IN BITS 9-26 7 STORED AT .STEMP+8 
PCW FOR THE CONNECT CHANNEL AT «STEMP+9 
TRUE CHANNEL INDEX OF CHANNEL TO GET CONNECT 


CHANNEL BUSY» CAN*T DO IT EL8. 


LOGICAL CHANNEL INDEX 

PCW CHANNEL MASK BIT 

ONLY THE MASK CHANNEL BIT CAN BE SET 
PCw CONTROL BITS 

SAVE THE PCW 


TOM # AND CHANNEL & 
GET LOWER HALF OF PMB 


INITIALIZE REGISTER FOR EXTEND MBX 


SET DESCRIPTOR 


10803365 


SET PCW EVEN IMAGE 
GET PTP IMAGE 
PMB 
CHANNEL NUMBER 
CHANNEL# IN BITS 3-84 OTHERS ZERO 
ADD IN PAGE TABLE POINTER 
SET PCW ODD CONTROL BITS. 27-29 
SET 
EITH27 -~"ON"= MEANS A PAGE TABLE IS PRESENT 
EITA28 -~"ON"= MEANS ADDRESS EXT. WILL NOT BE USED 
SQVBITAZO -"OFF"- MEANS AUX. PAGE TABLE WORD NOT USED 
SET RETURN EL8. 


RLXIT 
STI03 67 


RSET2 


ISSUE CONNECT AND CPEN GATE 


. a ae ee ee ee ee ee ee ee er ee er er er er er ke er er er er 
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EP # 32 UNLNK~ ROUTINE FCR UNLINKING OF I/O ENTRIES 


& @ 
® e 
@ @ 
@ 8324 * 3 
8325 * 
8326 * CALLED FROM .MDISP TO UNLINK ENTRY FROM COURTESY CALL 
& 8327 x QUEUE PRIOR TO PAYING THE COURTESY CALL & 
8328 * 
8329 * CALLEC FROM .MPOP TO UNLINK 1/0 FROM CONSOLE QUEUE 
@ 8330 x FOR MOVE VERB FROM OPERATOR @ 
8331 * 
8332 * 
@ 8333 * REGISTER REQUIREMENTS ON ENTRY & 
8334 * A REGISTER 
8335 * If ZERO UNLINK ALL I/O ENTRIES FOR PROCESS 
& 8336 x IF NONZERO ENTRY POINTED TO BY X4 WILL BE UNLINKED & 
8337 * Q REGISTER 
8338 x IF ZERO SET UNLINKED ENTRIES TO OPEN STATUS. 
@ 8339 x IF ONE SET ALL UNLINKED ENTRIES TO BUILDING STATUS @ 
8340 * IF TWC SET ALL UNLINKED ENTRIES TO REMOVED (TO SWAP) 
8341 * ae) DON'T CARE 
8342 * x1 DON'T CARE 
® 8343 * X2 DON'T CARE e 
8344 x X3 DON'T CARE | 
r 8345 x x4 IF NONZERO,» ABS ADDR. OF 1/0. ENTRY TO BE UNLINKED @ 
8346 * X6 KPX 
8347 * X7 CPUNO 
8348 * 
e 8349 INHIB ON e 
012155 8350 UNLNK NULL 
& 8351 * SAVE USER REGISTERS @ 
C12155 006013 4716 07 O00 8352 LOP P.I0Q,SD.10Q, DL 
012156 001761 4716 07 O00 8353 Lop P.,10Q,.CTYPSOL GET 1/0 ENTRY DESCRIPTOR 
e 012157 003434 7532 37 010 8354 SREG ALLREG,7* e 
012160 8355 « SHUT @CROGTs+seP.CR 
C12163 000000 1152 03 O00 8356 CMPA O,DU IS THIS REQUEST TO UNLINK ALL ACTIVE 
 ] 8357 * ENTRIES @ 
012164 012176 6012 00 010 8358 TNZ ACTNT NO» UNLINK ACTIVE ENTRY IN X4 
012165 600007 2243 00 O00 8359 LDX4 »SNIO+sP.SSA GET OFFSET TO USER ENTRIES 
& C12166 600042 7213 00 000 8360 LXL1 oSECNTssP.SSA GET NUMBER OF ENTRIES @ 
8361 * 
012167 8362 NEWNT NULL 
@ 012167 100000 2353 14 O00 8363 LDA »WEST 444 F.10Q GET STATUS OF ENTRY & 
(12170 000077 3752 07 O00 8364 ANA eFIOSTSDL ISOLATE IT 
(12171 012176 6012 00 010 8365 TNZ ACTNT THIS ONE MAY BE ACTIVE 
& 8366 * @ 
012172 8367 NXTNT NULL 
(12172 100002 7243 14 000 8368 LXL4 oWEPLKs4sP,10@ INCREMENT ADDRESS TO NEXT ENTRY | 
@ 012173 000001 1212 03 O00 8369 SELX1 1, DU , DECREMENT ENTRY COUNT | @ 
012174 012167 6012 00 010 8370 TNZ NE WNT NOT THRU YET 
012175 012211 7102 00 010 8371 TRA UNXIT FINISHEDs CHECK COUNT 
@ 8372 * & 
012176 8373 ACTNT NULL 
® © 
® ® 


1245T 02 


12-27-79 
012176 000000 
012177 012321 
012200 100000 
012201 000077 
012202 9000002 
012203 012217 
012204 000005 

~012205 012256 
012206 003434 
C12207 000004 
012210 012172 
012213 003434 
C12214 09000002 
012215 700006 
C12216 900000 
012217 012254 
012220 100004 
Q12221 017774 
C12222 013354 
012223 000000 
012224 020000 
012225 100000 
012226 012252 
Q12227 000001 
012230 012246 
012231. 040000 
012232 100001 
012233 012246 
012234 006204 
012235 000034 
C12236 §©6100007 
012237 777777 
C12240 000000 
012241 100001 
C12242 001000 
012243 012246 
012244 100007 
012245 000000 


09.357 


1042 03 000 
6002 00 010 
2353 14 O00 
3752 07 000 
1152 07 000 
6002 00 010 
1152 07 000 
6002 00 010 


012206 


2202 17 010 


2342 10 000 
6002 00 010 


012211 
012211 
0732 37 010 


012214 


6306 04 12216 
7103 00 000 
000000 000 


012217 
7442 00 010 
2213 14 000 
3612 03 O00 
7002 00 010 
0112 00 000 
2352 07 000 
3153 14 000 
6002 00 010 
1062 03 O00 
6012 00 010 
2362 07 O00 
3163 14 000 
6002 00 010 
4706 07 000 
6707 00 000 
2203 14 000 
2362 03 000 
7563 10 000 
7203 14 000 
3002 03 000 


6002 00 9010 


7203 14 000 
7563 10 9000 


8374 
8375 
8376 
8377 
8378 
8379 


8 381 
8382 
8383 
8384 
8385 
8386 
8387 
8388 
8389 
8390 
8391 
8392 


8393 
8394 
8395 
8396 


8397 


8398 
8399 
8400 
8401 
8402 
8403 
8404 
8405 
8406 
8407 
8408 
8409 
8410 
8411 
8412 
8413 
8414 
8415 
8416 
8417 
8418 


H6600J7.002 


ULNKI 


1/0 


CMPX4 
TZE 
LDA 
ANA 
CMPA 
TZE 
CMPA 
TZE 


NULL 
LDXO 
SZN 
TZE 


NULL 
2 OPEN 
LREG 


@EXIT 
INHIB 
EPPRO 
TRA. 
ZERO 
INHI8 


NULL 
STXx1 
LDX1 
ANX1 
TSXO 
NOP 
LDA 
CANA 
TZE 
CMPX6 
TNZ 
LD@ 
CANQ 
TZE 
LOP 
LDD 
LOXO0 


LD®@ 


STQ 
LXLO 
CANXO 
TZE 
LXLO 
STQ 


S UP ERV IS OR 


0-DU 

CCZOP +71 

»aWEST »4eF.10Q 
»FIOSTADL 
20D0L 

ULNKI 

52DL 

UL NKC 


ALLREG»7 
470 
NX TNT 
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EP # 32 UNLNK= ROUTINE FCR UNLINKIAG OF I/0 ENTRIES 


IS X4 KOSHER 

NO 

GET WORD # 0 

ISCLATE QUEUE STATE 

IS THIS LINKED 1/0 

YESs GO UNLINK IT 

IS IT LINKED COURTESY CALL 
YES» GO UNLINK IT 


GET ADDRESS OF REG STORE 
WAS THIS ONLY ENTRY TO UNLINK 
NO» GET NEXT ENTRY 


ALL LINKED QUEUE ENTRIES HAVE BEEN UNLINKED 


»CRGGTseF.CR 
ALLREGs7* 


SAVEsCN 
+205 
@CREX Tso PCR. 
~RGes 

RESTORE 


QCNT1 
oWESCTs#4oP.10Q 
oFSCT1-0U 
ILPCX 


eFSPECSDL 
oWEST 46 F.10Q 
GTST1 
@PNPOP,ZDU 

UL DCW 
»FFOCWsDL 
eWEPRV24 PL 108 
UL DCW 
POsSD.PSHsDL 
PO sPH.DChreP0 
oWECFFs44P.100 
~1,D0U 

O-0ePC 
eWEPRVs46P.108 
oF FODD2,DU 

UL DCW 
»WEOFFse4eP.10Q 
0-0-PC0 


RESTORE REGISTERS. 


GO BACK TO CALLER 


SAVE ENTRY CCUNT 

GET ENTRY SCT ADDRESS. 

ISOLATE IT . 

GO CALCULATE LOGICAL CHANNEL INDEX 
ERROR RETURN 

WAS THIS ENTRY GESPECED 


NOs GET STATE FOR ENTRY AFTER UNLINK 
IT THIS PNPOP 
NO 

YES, GET MASK 
IS *ZNODCW SET 
NO 

YES» GET PUSH 
DCW SEGMENT 
DCW PTR 

FLAG 

RELEASE OCW 


IS 2ND DCW USED 

NO 

YESs GET POINTER 
RELEASE 2ND DCW 


209 


IOSO4A5R 
IOSO4ASR 


IOSO4AAM 
IOSO4AAM 
IOSO4AAM 
IO0SO4AAM 
IOSO4AAM 
I10SO4AAM 
IOSQ4AAM 
ITOSQ4GAAM 
IOSO4AAM 
IOSO4AAM 
IOSO4AAM 
IOSQ4AAM 
IOSC4AAM 
ITOSO4AAM 
IOSO4AAM 


@ ® 
@ e 
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EP # 32 UNLNK= ROUTINE FCR UNLINKING OF I/O ENTRIES 
& 012246 8419 ULDCW NULL IOSO4AAM & 
C12246 000400 2362 03 000 8420 LOQ «FSPOKsDL IS CHANNEL GESPECAELE 
012247 701400 3163 12 000 8421 CANQ oCRCT142P.CR 
& 012250 012252 6012 00 010 8422 TNZ GTST1 YES» LEAVE BIT ON IN ENTRY ® 
C12251 100000 6553 14 000 8423 ERSA o WEST 44eP.10Q NO» TURN BIT OFF IN ENTRY 
8424 * 
e@ 012252 8425 GTST1 NULL & 
012252 000000 2212 03 000 8426 LOXx1 Q.DU SET 1/0 UNLINK FLAG 
€12253 012330 7002 00 010 8427 TSXO GTSTAT GO GET STATUS AND UNLINK 1/0 
S 012254 000000 2212 03 O00 8428 Q@CNT1 LDX!1 ** 6 DU RESTORE ENTRY COUNT ) 
012255 012206 7102 00 010 8429 TRA CKND GO CHECK IF FINISHED 
8430 * 
@ 012256 8431 ULNKC NULL @ 
C12256 006133 4736 07 O00 8432 LOP PS.KL-SO04KLe-DL | GET KL DESCRIPTOR 
012257 8433 @SHUT = .KLSCCeo+PS.KL 
@ 8434 x @ 
(12262 012314 7412 00 010 8435 STX1 QCNT2 SAVE ENTRY COUNT 
C12263 000001 2212 03 000 8436 LDXx1 16DU SET COURTESY CALL FLAG 
@ 8437 * & 
8438 x DECREMENT COURTESY CALL COUNTS FOR SYSTEM AND PROCESS 
C12264 600027 2363 00 000 8439 LDQ oSCCALss FSSA TOTAL CC COUNT 10806045 
®@ 012265 000001 1362 03 O00 8440 SBLQ 1,0u DECREMENT TOTAL COUNT 10806050 e 
C12266 012320 6042 00 010 8441 TMI cczopP TOTAL COUNT NEGATIVE ILLEGAL 
012267 000220 2352 C7 O00 8442 LDA »FSYOT+, FNABT DL TEST SYSTEM CC COUNT 
& (12270 100004 3153 14 O00 8443 CANA eWESCT44-P.100 IS SYOT CC & 
C12271 012275 6012 00 010 8444 TNZ QCNT22 YES» DECREMENT SYSTEM CC COUNT 
012272 100000 2352 07 O00 8445 LDA oFFTYPsDL TEST IS SYSTEM ENTRY 
& 012273 100001 3153 14 000 8446 CANA oWEPRVs45P. 100 eS 
012274 012276 6002 00 010 8447 TZE QCNT21 NO» USER ENTRY 
012275 8448 QCNT22 NULL 
@ 012275 000001 1362 07 O00 8449 SBLQ TDL DECREMENT SYSTEM CC COUNT 10806065 ) 
8450 * 
8451 * TEST COURTESY CALL REQUEST COUNT 
@ 8452 * IF ZERO» TURN OFF CC REQUEST BIT (.RSYCC>.RCC) e@ 
8453 * IF LOWER ZERO, TURN OFF SYSTEM CC REQUEST BIT (.RSYCC) 
8454 * 
@ 012276 8455 QCNT21 NULL & 
012276 600027 7563 00 000 8456 STQ aSCCALsrF.SSA RESTORE COUNT 10806075 
C12277 012330 7002 00 010 8457 TSXO GTSTAT GET STATE & UNLINK COURTESY CALL 10S06080 
& C12300 000405 3212 03 O00 8458 LCXx1 eRSYCC+ RCC +14DU PREPARE MASK XXXX 3630 @ 
C12301 600027 2343 00 ON0 8459 Q@cNT24 SZN oSCCAL+eF.SSA ANY CC LEFT XXXX3640 
C12302 012313 6002 00 010 8460 TZE QCNT25 NO XXXX3650 
r 012303 012320 6042 00 010 8461 TMI cc zope WOOPS XXXX 3660 @ 
012304 600027 7203 00 O00 8462 LXLO oSCCALseP.SSA YES» ANY SYSTEM CC XXXX 3670 
012305 012312 6002 00 010 8463 TZE QCNT25=1 NO XXXX3680 
r 012306 012320 6042 00 010 8464 TMI CczoP WOOPS XXXX3690 @ 
012307 000400 2612 03 O00 8465 ORX1 -RSYCCADU YES, KEEP FLAG XXXX3700 
012310 600027 1003 00 000 8466 CMPXO .SCCALseP.SSA SYSTEM CC ONLY XXXX3710 
@ 012311 012313 6002 00 010 8467 TZE QCNT25 YES XXXX3720 & 
012312 000004 2612 03 O00 8468 ORX1 »RCC,DU NO» ONLY USER CC LEFT XXXX3730 
e e 
® @ 


~—9245T 02 12-27-79 


012313 


C12314 


012317 
C12320 


012322 
012323 
012324 
012325 
012326 
012327 


012330 
012331 
012332 
012333 


012334 
012335 
012336 


€12337 


012340 
C12341 


012342 
012343 


012344 
012345 
012346 
012347 


612350 
012351 
012352 


600117 


000000 


012206 
000070 


600027 
000003 
000000 
600027 
600027 
012301 


012343 
003434 
000005 


012344 


000000 
420000 
o00d00 


013201 


000077 
012343 


012644 
000000 


00000e 
012350 
012353 
012334 


000000 
000001 
012335 
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EP # 32 UNLNK=~= ROUTINE FOR UNLINKIAG OF I/0 ENTRIES 
3413 00 O00 8469 Q@CNT25 ANSX1 »SRQS Taos P2SSA UPDATE CC FLAGS XXXX3740 
8470 
2212 03 O00 8471 QCNT2 tLOx! ** , DU RESTORE ENTRY COUNT 
012315 8472 OPEN eKLSC Coe FS.KL 
8473 * 
7102 00 010 8474 TRA CKND GO CHECK FOR FINISH 
8475 * XXXX3760 
7162 00 010 8476 CCZ0P_ XEC DBUG TEST DEBUG MCDE XXXX3770 
012321 8477 Z0P 7 YES,» TILT XXXX3780 
7203 00 O00 8478 LXLO »aSCCALseF.SSA NOs FORGE AHEAD XXXX3790 
6052 04 O00 8479 TPL 31C COUNT OK XXXX3800 
6202 00 O00 8480 EAXO 0 SNAFU XXXX3810 
4403 00 O00 8481 SXLO eSCCAL se PSSA FORCE IT TO ZERO XXXX 3820 
7403 00 000 8482 STXxO eSCCALso F.SSA FORCE UPPER TO LOWER XXXX 3830 
7102 00 0710 8483 TRA QCNT24 BACK AT IT XXXX 3840 
8484 * 
012330 8485 GTSTAT NULL 
7402 00 010 8486 STXO GT SVX SAVE CALLING ADDRESS 
2202 17 010 8487 LDXO ALLREGs7 GET ADDRESS OF REGISTER STORE 
2362 10 O00 8488 LDQ 520 GET INPUT Q-REG 
6012 00 010 8489 ~TNZ STKEP XXXX3860 
8490 * 
012334 8491 STFRE NULL SET ALL UNLINKED ENTRIES TO FREE 
6362 11 O00 8492 EAQ 0-1 GET CC OR I/7C€ QUEUE KEY 
2352 07 O00 8493 LDA eFSTOP+., FSPEC DL SAVE STOP AND GESPECED BITS. 
2212 03 O00 8494 LOX1 0OsDU AMOUNT TO DECREMENT IN XMISSION COUNT 
8495 * CUNLINKING ONLY DONE FOR USER) 
7002 00 010 8496 TSXO UL NK GO UNLINK THIS ONE 
8497 x . 
8498 *. TEST STATUS» IF CPEN»s UN—LINK I/0 ENTRY FROM PROCESS 
8499 x 
3162 07 O00 8500 CANQ eFIOSTADL IS OPEN STATUS 
6012 00 010 £8501 TNZ GTSVX NO 
8502 * 
012342 8503 a JULINK UN~LINK FROM PROCESS QUEUE 
7002 00 910 TSxO UL INK 
8504 * 
7102 00 O00 8505 GTSVX TRA a RETURN ENTRY UNLINKED 
8506 * XXXX 3880 
1162 03 000 8507 STKEP CMPQ 20DU DECODE REQUEST XXXX 2890 
6022 00 010 8508 TNC STBLD SET BUILDING XXXxX3900 
6002 00 010 8509 TZE STRMV SET REMOVED (SWAP) XXXX3910 
7102 00 O10 8510 TRA STFRE BUMs TREAT AS FREE XXXX 2920 
8511 * 
012350 8512 STBLD NULL SET ALL UNLINKED ENTRIES TO BUILDING 
6362 11 O00 8513 EAQ 0,1 GET CC OR I/0 KEY 
2762 07 O00 8514 ORG 1eDL SET BUILDING KEY 
7102 00 010 8515 TRA STFRE +1 GO GET MASK AND UNLINK IT 
8516 * 
012353 8517 STRMV NULL 


SET ALL UNLINKED ENTRIES TO REMOVED 
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EP # 32 UNLNK= ROUTINE FOR UNLINKING OF I/O ENTRIES 


C12353 000000 6362 11 O00 8518 EAQ 0-1 GET C.C. OR I/0 KEY TO UPPER 
C12354 400000 2762 07 O0O 8519 ORG eFSTOPSDL SET STOP TO REMOVE | 
012355 012335 7102 00 010 8520 TRA STFRE +1 GO SET MASK AND UNLINK IT 
8521 * 
8522 INHIB OFF 


® 
(4 
e 
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® 
EP # 33 RLKCC— RELINK COURTESY CALL TO CRTSY CALL QUEUE 
8524 * @ 
8525 * REGISTER REQUIREMENTS FOR ENTRY 
8526 * 
8527 * & 
8528 * A DON*T CARE — DESTROYED 
8529 * Q DON'T CARE =~ DESTROYED 
8530 * x0 DON'T CARE ~- DESTROYED @ 
8531 * x1 DON'T CARE = NOT USED 
8532 * X2 DON*T CARE - RESTORED 
8533 * X3 DON'T CARE= DESTROYED @ 
8534 * x4 OFFSET TO I/0 ENTRY TO BE LINKED 
8535 * X6 KPX 
8536 * a CPUNO @ 
8537 * 
8538 * THIS ENTRY POINT WILL LINK ANY COURTESY CALL TO DISPATCHERS 
8539 * COURTESY CALL QUEUE AND ENABLE THE PROCESS» IT WILL @ 
8540 * TAKE CARE OF SYSTEM COURTESY CALL COUNT, PROCESS COURTESY 
8541 * CALL COUNT,» AND PROCESS STATE WORD BEFORE RETURNING 
8542 * & 
012356 8543 RLKCC NULL 
8544 INHIB ON 
012356 012374 6202 00 010 8545 EAXO RLXIT 10s00990 & 
C12357 003434 7532 37 010 8546 — SREG ALLREGs/7* SAVE REGISTERS | 10801000 
C12360 006013 4716 07 O00 8547 LOP P,I0QsSD.10Q,s DL 
012361 001761 4716 07 O00 8548 LOP P.10Qs.CTYPsDL GET I/0 ENTRY DESCRIPTOR @ 
8549 x 
012362 8550 2 SHUT CRAG Tso F.CR SHUT QUEUE GATE 
8551 * e 
C12365 000100 3352 07 O00 8552 LCA oF IOST+1,0L MASK = 77777777770C 
012366 100000 3553 14 000 8553 ANSA »WEST +4eF.,10Q ZERO ENTRY STATE 
012367 100000 0543 14 O00 8554 AOS WEST 446 F.10Q SET TO BUILDING & 
012370 003434 2222 17 010 8555 LOX2 ALLREG,7 LOCATE REGS 10801020 
012371 000007 7526 12 ONO 8556 STws 72 SAVE CURRENT WSR 4-7 10801030 
012372 006133 4736 07 O00 8557 LDP PS.KL6SD.KLeDL GET KL SEGMENT DESC. & 
: 8558 * 
8559 * 
(12373 003233 7102 00 010 8560 TRA LNKCC GO TO STATUS RETURN ROUTINE TO LINK I ®@ 
8561 * 
8562 * BCTH GATES OPENEC BY STATUS RETURN ROUTINE 
8563 * @ 
012374 8564 RLXIT NULL 
012374 8565 oEXIT EXIT BACK TO CALLER 
INHIB SAVEs ON & 
012374 000002 6306 04 12376 EPPRO *+24$ 
012375 700006 7103 00 o00 TRA »CREXTsoP.CR 
012376 o00000 ocn0000 000 ZERO oRGe & 
INHIB RESTORE 
8566 INHIB OFF 
® 
® 
@ 


1245T 02 12-27-79 


C1i2377 


C12400 
012401 
012402 


012534 


000002 
700006 
010200 


09.357 


012377 
7000 00 


012400 


010 


H6600J7.002 
kee EP 37 


8568 
8569 
8570 
8571 
8572 
8573 
8574 
8575 
8576 
8577 EP37 
8578 * 
8579 

8580 * 
8581 


+ + + + e ee 


6306 04 12402 


7103 QO 
000000 


000 
000 


1/0 


EP37 ¢ 


EP37 


INPUT. 
OUTPUT. 


S UP ERV IS OR 7912191080 PAGE 


GET SYSTEM ENTRY *GUEUS* ) 


EP37 
TO GET SYSTEM I/0 ENTRY 


NONE 
X4 1/0 ENTRY ADDRESS 
CDR1 P.~10Q 


QUEUS CALL QUEUS SUBROUTINE 


O07 (X4-P1) RETURN TO CALLER 
SAVE,CN . 

*+2 9$ 

»CREXTssF.CR 

~RGs0 

RESTORE 
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1245T C2 


C12403 
C12404 
012405 
012406 
012407 


0712413 


012416 


12-27-79 


09.357 


012403 


006013 4704 07 


001761 
000000 
000077 
072374 


012644 


012374 


4704 07 
2361 14 
3760 07 
6000 00 


012410 
7002 00 


012414 


7102 00 


000 
000 
000 
000 
010 


01710 


070 


H6600J37.002 


8585 
8586 
8587 
8588 
8589 
8590 
8591 
8592 
8593 
8594 
8595 
8596 
8597 
8598 
8599 
8600 
8601 
8602 
8 €03 
8604 
8605 
8606 
8607 
8608 
8609 
8610 
8611 
8612 
8613 
8614 
8615 


kee EP38 


+ + + & + HF HOF OF 


EP38 


1/0 


EP38 


EP38 


INPUT. 


OUTPUT. 


NULL 


LOP 
LDP 
LDQ 
ANQ 
TZE 
INHIB 
« SHUT 
TSXO 


«OPEN 


TRA 
INHIB 


S UP ERV IS OR 


C UNLINK I/0 


EP38& 


7912191080 PAGE 


ENTRY ) 


TO UNLINK I/O ENTRY FROM PROCESS 


I/O ENTRY ADDRESS 
KP X 

CPUNO 

PSSA 

PCR 


TEST 170 ENTRY ADDRESS AND STATUS 


PO,SD.IOGSDL 
POs.CTYP DL 
aWEST 244F0 
@FIOSTSOL 
RLXIT 

ON 
@~CRQGTseP.CR 
UL INK 


eCROGToesPF.CR 


RLXIT 
OFF 


TEST I/0 ENTRY STATUS. 
IF ALREADY OPENs ILLEGAL 
DON*T UNLINKs EXIT 


SHUT I0Q GATE 
CALL UNLINK SUBROUTINE 


OPEN 1/0 QUEUE GATE 


EXIT 
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EL8. 
EL8 


EL8. 


1245T C2 


12-27-79 

012417 777777 
012420 600012 
012421 000000 
012422 011206 
012423 012425 
012424 012431 
012425 600012 
012426 000002 
012427 700006 
012430 221400 
012431 600012 
012432 000002 
012433 700006 
012434 221400 


09.357 H6600J 7.002 
eek EP39 
8617 * 
8618 * 
8619 x 
8620 * 
8621 * 
8622 * 
8623 * 
8624 
4110 03 O00 8625 EP39 
7451 56 000 8626 
6220 11 000 8627 
7050 00 010 8628 
7100 00 010 8629 
7100 00 010 8630 
8631. 
012425. 8632 EP39N 
2251 54 000 8633 
012426 8634 
6306 04 12430 
7103 GO 9000 
000000 900 
8635 
012431 8636 EP39E 
2251 54 000 8637 
012432 8638 


6306 04 12434 
7193 00 9000 
000001 000 


1/0 


S$ UP ERVIS. OR 7912191080 PAGE 216 


SKWPTCLINK/LLINK SEEK CALCULATION WITH PAT) 


EP39 


INPUT. 


OUTPUT. 


LOE 
STX5 
EAX2 
TSX5 
TRA 
TRA 


NULL 
LDXS5 
2 EXIT 
INHIB 
EPPRO 
TRA 
ZERO 
INHIB 


NULL 
LOXx5 
strlt 
INHIB 
EPPRO 
TRA 
ZERO 
INHIB 


EP 39 
LINK/LLINK SEEK CALCULATION WITH PAT INPUT 
SEE SKWFT 
SEE SKWPT 
-1,BU SET MSKWPT FLAG EL8. 
eSSAs IDs P.SSA SAVE X5 
ai GET LCX 
MSCSK GET SEEK ADDRESS EL8. 
EP 39N 
EP3SE 
»SSAse CIs P.SSA RESTORE X5 


Os (Ar QeXCoX3) 
SAVEsON 

+2 9S 
eCREXTasP.CR 
eRGeD 
RESTORE 


NORMAL RETURN 


RESTORE X5 
ERROR RETURN 


@SSAse TI FLSSA 
1 CAs Ge X0X3) 
SAVEsCN 

+255 
eCREXTseP.CR 
oRGo1 

RESTORE 


1245T C2 12-27-79 09.357 


072435 


012435 300000 4110 03 0900 
012436) 696912420 7100 90 010 


H6600J 


8640 
8641 
8642 
8643 
8644 
8645 
8646 
8647 
8648 
8649 
8650 
8651 


72002 1/0 


S UPERV IS OR 7912191080 PAGE 217 


zee EP4O MSKWPTCMULTIRECORD SEEK CALCULATION WITH PAT) 


* 
* EP40 
* 
* 
* INPUT. 
* OUTPUT. 
* 
EP40 NULL 
LDE 
TRA 


EP40 
MULTIRECCRD LINK/LLINK SEEK CALCULATION WITH PAT INPUT 


SEE MSKWPT 
SEE MSKWPT 


=0300000 /bdU SET SKWPT FLAG EL8. 


EP39+1 EL8. . 


1245T 02 12-27-79 


(€12437 
012440 


C12441 
012442 


000003 
012444 


09.357 


6202 
7102 


000004 6202 


012444 


7102 


00 
00 


00 
00 


000 
010 


000 
010 


H6600J7.002 


8653 
8654 
8655 
8656 
8657 
8658 
8659 
8660 
8661 
8662 
8663 
8664 
8665 
8666 
8667 
8668 
8669 
8670 
8671 
8672 
8673 
8674 
8675 
8676 
8677 
8678 
8679 
8680 
8681 
8682 
8683 
8684 
8685 
8686 
8687 
8688 
8689 
8690 
8691 
8692 
8693 
8694 
8695 
8696 
8697 
8698 
8699 
8700 
8701 
8702 


1/0 


kee EP4T=DBSCR 


+ + £ + e+ He HH HF HH HF HH FE HF He FH HF HH HE EH HF HE HH FH HF HH EH HE HF HH HF HH F HF F 


EP41 


EP42 


EP41 


EP42 


EP43 


EP45 


INPUT. 


OUTPUT. 


NOTE. 


INHIB 
EAXO 
TRA 


EAXO 
TRA 


S UP ERVIS OR 7912191080 PAGE 


EP42=LSKWA EP43=LLSKWA EP45=CHBLK 


EP41(OBSCR) 
DIAGNOSTIC BLOCK SEEK CALCULATION ROUTINE 
(CHANNEL MODULE -3 ENTRY) 
EP42(LSKWA) 
LINK SEEK CALCULATION ROUTINE WITH ABSOLUTE BLOCK 
NUMBER INPUT 
(CHANNEL MODULE ~—-4 ENTRY) 
EP43¢(LLSKWA) 
LLINK SEEK CLACULATION ROUTONE WITH ABSOLUTE BLOCK 
NUMBER INPUT 
(CHANNEL MODULE <5 ENTRY) 


EP45(CHBLK) 
ROUTINE TO MAKE HEADER BLOCK CALCULATION 
(CHANNEL MODULE -17 ENTRY) 


A = RESIDUE CEP42 ONLY) 

Q = ABSOLUTE BLOCK NUMBER 

x1 = LCX 

X2 = DEVICE SCT ADDRESS CEP45 ONLY) 

X3 = SCT ADDRESS 

X6 = KFX 

X7 = CFUNO - 

ODR6é = P.SSA 

ODR? = PCR 

Q = SEEK DATA OR STATUS 

STATUS = 6000C0 BACK TOO FAR 

= 500000 FOWARD TOO FAR 
= 440000 NON EXISTENT LLINK# 

X3 = SCT ADDRESS 

A = DESTROYED 

x0 = DESTROYED 

RETURN 


PEXIT S ERROR RETURN 
EXIT 7 NORMAL RETURN 


ON 
3 
DSINTF 


4 
DS INTF 
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10801750 
10S01760 
10801770 
10$01780 
10801790 
10801800 
10801810 
I0s01820 


1245T 02 


12-27-79 
012443 000005 
012444 006131 
C12445 701403 
012446 000000 
012447 900000 
C12450 012454 
012451 000002 
012452 700006 
C12453 020400 
€12454 000002 
012455 700006 
C12456 020400 
0712457 9000005 
C12460 012374 
012461 000100 
012462 900002 
012463 700006 
C12464 000000 


09.357 


6202 CO 000 


012444 
4706 07 090 
0203 11 O00 
4707 10 000 


7013 00 9000 
7102 00 010 
012451 


6306 04 12453 
7103 00 9000 
000001 000 


012454 


6306 04 12456 
7103 00 000 
o0000c0a 000: 


012457 
1162 07 000 
6032 00 010 
2762 03 000 

012462 


6306 04 12464 
7103 00 000 
000001 000 


8703 
8704 
8705 
8706 
8707 
8708 
8709 
8710 
8711 
8712 
8713 
8714 
8715 


8716 
8717 


8718 
8719 
8720 
8721 
8722 
8723 
8724 
8725 


8726 


H6600J37.002 


EP43 


* 


1/0 


kee EP4G1T=DBSCR 


EAXO 
TRA 


DSINTF NULL 


EP4XE 


EP45 


LDP 
ADLXO 
LDP 


TSX 


TRA 

2 EXIT 
INHIB 
EPPRO 
TRA 

ZERO 
INHIB 


2 EXIT 
INHIB 
EPPRO 
TRA 

ZERO 
INHIB 


NULL 
CMPQ 
TRC 
ORQ 
2 EXIT 
INHIB 
EPPRO 
TRA 
ZERO 
INHIB 
INHIB 


S UP ERVIS 0R 


7912191080 PAGE 


EP42=LSKhA EP43=LLSKWA EP4S=CHBLK 


DINTF 


POsSD.DDD-DL 
eCRCT 441 oP. CR 
PO e0eCoPC 


OPO 

EP4&XE 

1 (QeX3) 
SAVEsON 

+2 oS 
eCREXTerP.CR 
aRGeol 
RESTORE 


0+ (Qe X3) 
SAVEsON 

x+2 05 
«CREXTseF.CR 
«RGD 
RESTORE 


5/DL 

RLXIT 
1*64,0U 

4 

SAVE,CN 

x+2 oS 
~CREXTseP.CR 
oRGo1 
RESTORE 

OFF 


GET CHANNEL DEPENDENT DATA 
GET SD TO TRANSFER 
GET CHANNEL MODULE DESCRIPTOR 


CALL CHANNEL MODULE 
ERROR RETURN 
NORMAL RETURN 


ERROR EXIT 


ID HEADER BLCCK 
NOs NORMAL REQUEST 
SET BLK LIMIT = 1 
ERROR RETURN 
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10801830 
10S01840 
10801850 
10801860 


10$01880 


~—10801890 


10801900 


10801910 


EL8. 
IOSQ4AAM 


a 


1245T 02 


12-27-79 
012465 000020 
(12466 012470 
012467 000022 
012470 006131 
012471 701403 
012472 000000 
012473 000000 
(12474 000002 
012475 700006 
(12476 200400 


09.357 


012465 
6200 00 000 
7100 00 010 


012467 
6200 00 000 


012470 
4704 07 000 
0201 11 000 
4705. 10 000 


7011 00 900 
012474 
6306 04 12476 


7103 00 000 
000000 000 


H6600J37.002 


M+ + + ee eH HH He HH He OH OH OO OH OH OOO 


P44 


EP46 


* 


DSCONV 


1/0 


eee EP4G=CVBCH 


EP4G 
EP46 


INPUT 


CUTPUT 


NULL 
EAXO 
TRA 


NULL 
EAXO 
TRA 
NULL 
LDP 
ADLXQ 
LDP 


TSX1 


2 EXIT 
INHIB 
EPPRO 
TRA 

ZERO 
INHIB 


S UP ERVIS OR 


EP46=CV CHB 


EP44¢(CVBCH) 


7912191080 PAGE 


CONVERT SEEK ADDRESS TO CYLINDERA,s, HEADA 


(CHANNEL MODULE 


EP46( CVC HB) 


-16 ENTRY) 


CONVERT CYLINDER#, HEAD# TO ABSOLUTE BLOCKA 


(CHANNEL MODULE ~18 ENTRY) 
Q = ABSOLUTE SEEK ADDRESS (E P44) 

= CYLINDER#H, KEAD# CEP 46) 
X1 = LCX 
x3 = I/O ENTRY ADDRESS 
X6 = KFX 
X7 = CFUNO 
ODR1 = 1/0 ENTRY P.100Q 
ODR6-= P.SSA 
ODR? = P.CR 
A = DESTROYED 
Q = CYLINDERA, KEADH (EP44) 

= ABSOLUTE BLOCK ADDRESS (CEP46) 
ae) = BPH 

EXTERNAL ENTRY 
16 
DSCONV 
EXTERNAL ENTRY 

18 
DSCONYV 
PO.SD.DDDsDL GET DEVICE DEPENDENT TABLE 
aCRCT4s1 oP. CR GET OFFSET ADDRESS POINTER 
POsC-C-PC GET CHANNEL MODULE ENTRY DESC. 
O--P0 GO TO CHANNEL MODULE 
Or (Qe x0) RETURN 
SAVE,ON 
*+2 7% 
eCREXTsoF.CR 
«RG-0 
RESTORE 
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RDSP2250 
RDSP2260 


RDSP2280 
RDSP2290 


RDSP2310 


1245T C2 


T2e2e=t9 
012502 600012 
012503 600012 
012504 600007 
C12505 777777 
012506 600042 
012507 012527 
012510 012552 
012511 000000 
0125172 012522 
012513 600042 
012514 600007 
012515 012520 
012516 100002 
C12517 100002 
012520 600007 
012521 006013 
012522 600012 
012523 600012 
€12526 Q00000 


09.357 


(012477 


7403 
4453 
2353 
3752 
33:3 
6046 


7052 


1042 
6002 
0543 
2203 
6002 
7403 
4443 
7443 
4716 


51 


000 
000 
000 
000 
000 
010 


010 


000 
010 
000 
000 
010 
000 
000 
000 
000 


012522 


2203 
7253 


012524 


7102 


54 
a4 


10 


000 
000 


000 


H6600J7.002 1/0 §S UP E RVI S$ OR 79121910S0 PAGE 
SUBROUTINE QUEUE 
8770 * 
8771 * 
8772 * 
8773 * 
8774 « 
8775 SUBROUTINE QUEUE 
8776 FUNCTION, TO GET NCRMAL I/0 ENTRY 
8777 INPUT. x0 RETURN ADDRESS 
8778 X6 K PX 
8779 X7 C PUNO 
8780 ODR6 P.SSA 
8781 ODR7 P.CR 
8782 
8783 OUTPUT. X4 ENTRY ADDRESS OR ZERO 
8784 ODR1 SD.I10@ (TYPE=01) 
8785 A/Q DESTROYED 
8786 
8787 NOTE. CALLER'S ODR1 IS SAVED IN ,WEEND, 
8788 
8789 * 
8790 * 
8791 * 
8792 INHIB ON 
8793 QUEUE .SHUT eCRGG Tor P.CR 
8794 STXO «SSAsIeP.SSA 
8795 ~SXL5 »~SSAe IDs P.SSA 
8796 LDA eSNIOQeeP.SSA CHECK HOLDING ENTRY COUNT 
8797 ANA ~1,0L IGNORE» ENTRY ADDRESS 
8798 SBLA @SECNTseF.SSA 
8799 TMOZ QGEPR OVER» TEST GEPR 
8800 * 
8801 QUEG TSX5 GETENT GET AN ENTRY 
8802 * 
8803 CMPX4 O-DU 
8804 TZE QRET CANT GET A ENTRYs .MIOS2 CALLED 
8 805 AOS eSECNTseF.SSA ENTRY FOUNDs COUNT HOLDING 
8806 LOXxO0 eSNIOeeP.SSA GET PREVIOUS ENTRY ADDRESS 
8 807 TZE *+3 ZERO» FIRST ENTRY IN THIS PROCESS. 
8808 $TXO eWEPL Kod oP. 100 RE~CHAINNINGs TO NEXT 
8809 SXL4 eWEPLKs0-P. 108 RE~CHAINNINGs, TO PREVIOUS 
8810 STX4 eSNIOeeP.SSA SET PROCESS CHAIN FIRST ADDRESS 
8 811 LDP P.10Q/SD.1I0Q40L GET P.I0Q (TYPE=01) 
8812 * 
8813 QRET NULL 
8814 LOXxO0 o~SSAse DIs FLSSA RESTORE XRO 
8815 LXLS5 eSSAseIToP.SSA & XR5 
8816 2 OPEN eCRQGTeeF.CR 
8817 TRA 0-0 RETURN 
8818 * 
8819 x 
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10S$02435 
IOSO4AAM 
10802445 
10802450 


XXXX3320 


XXXX3340 


10802465 
10802470 
10802475 


Pi 


1245T C2 12-27-79 09.357 H6600J7.002 1/0 SUPERVISOR 7912191080 PAGE 222 


SUBROUTINE QUEUE 


8820 * 
012527 600017 2203 00 O00 8821 QGEPR LDXO eSTATEss P.SSA GET PROGRAM STATE XXXX3360 
012530 050000 3002 03 OOC 8822 CANXO o TGFRS+. TGEPR » DU IS GEPR IN CONTROL XXXX3370 
012531 012510 6012 00 010 8823 TN2Z QUEG YES» HONOR REQUEST XXXX3380 
012532 8824 QOVER NULL 
012532 Q00000 6242 00 O00 8825 EAX4 0 SET STATUS» ENTRY NOT ASSIGNED 
012533 012522 7102 00 010 8826 TRA QRET RETURN IOSO4AAM 


@ 
® 
1245T 02 12-27-79 09,5357 H6600J7.002 1/0 SUPERVISOR 7912191080 PAGE 223 
® 
SUBROUTINE QUEUS 
& 8828 * 
8829 * 
8830 * 
& 8831 * 
8832 * 
8 833 SUBROUTINE QUEUS 
@ 8834 FUNCTION. TO GET SYSTEM I/0 ENTRY CALLED BY CALLIO 
8835 INPUT. x0 RETURN ADDRESS 
8 836 X6 KFX 
& 8837 X7 C PUNO 
8 838 ODR6 P.SSA 
8839 OOR7 P.CR 
@ 8 840 
8 841 OUTPUT. X4 ENTRY ADDRESS OR ZERO 
8842 ODR1 SD.IO0@ (TYPE=01) 
© 8843 : A/Q DESTROYED 
8844 
8845 NOTE. CALLRE*S ODR1 IS SAVED IN .WEEND. 
@ 8 846 
8847 * 
8848 * | 
) 012534 8849 QUEUS .SHUT .CROGTosP.CR IOSO4AAM 
012537 600012 7403 51 O00 8850 STXO »SSAsIsP.SSA SAVE XRO 10802490 
012540 600012 4453 56 000 8851 SXL5 oSSAsIDeP.SSA &§ XR5 10802495 
@ C12541 600201 2203 00 000 8852 LDXO oSSYICseP.SSA 
012542 012532 6012 00 010 8853 TNZ QOVER 10sd2505 
: ! 8854 * 10802510 
& C12543 012552 7052 00 010 8855 TSX5 GETENT GET ONE ENTRY 
8856 * 
612544 000000 1042 03 900 8857 CMPX4 O,DU CANT GET ENTRY 
€ 012545 012522 6002 00 010 8858 TZE QRET SET ZERO 10802520 
012546 100000 2352 07 O00 88&59 LDA oFFTYFsDL SET FLAG SYSTEM ENTRY 
012547 100001 2553 14 000 8860 ORSA eWEPRVs4 oP. 108 SET 
& 012550 600201 7443 00 O00 8861 STX4 »SSYICs#P.SSA SET ADDRESS AND ENTRY BUSY 
| 8862 INHIB OFF 10802530 
C12551 012521 7100 00 010 8863 TRA QRET=1 10802535 
® 
® 
e 
e 
| 
@ 
] 


@ ® 
@ e 
1245T 02 12-27-79 09.357 H6600J7.002 1/O SUPERVISOR 7912191080 PAGE 224 
@ e 
| SUBROUTINE GETENT (¢ GET ONE ENTRY ) 
& 8865 * @ 
8866 * THIS ROUTINE IS CALLED BY QUEUE/QUEUS PROCESS. 
8867 * 
& 8 868 SUBROUTINE GETENT @ 
8869 FUNCTION, TO GET ONE ENTRY 
8870 2TO MANAGE THE SPACE (PAGE) OF I/0 ENTRY SEGMENT 
® 8871 e 
8872 INPUT. x5 RETURN ADDRESS 
| 8873 X6 K PX 
& 8874 X7 C PUNO @ 
8875 ODR6 P.SSA 
8876 ODR7 P.CR 
& 8877 ~CRQGT MUST BE SHUT IOSO4AAM * 
8878 
| 8879 OUTPUT Be ENTRY ADDRESS OR ZERO 
@ 8880 ODR1 P.10Q (TYPE-00) OR USER*S ODR1 & 
8881 x0 DESTROYED | 
8882 A/Q DESTROYED 
8883 
° 8884 NOTE. ENTRY IS INITIALIZED e 
8885 ENTRY STATUS BUILDING (01) 
e 8886 KPX IS SETED @ 
8887 ODR1 SAVED IN .WEEND 
8888 
iz) 8889 x | S 
000014 8890 NQ@PAG EQU 12 MAX # OF 1/0 QUEUE PAGES 10s0c045 
000057 8891 BUGOPT BOOL 5? DEBUG OPTION | 10sdc050 
& 000062 8892 MONOPT BCOL 62 MONITOR OPTION 10s000ss @ 
| 000040 8893 .WOPEN EQU «WECAV—6 ORIGIN OF AVAIL ENTRY TABLE 1osccoséo 
8894 INHIB ON 10801270 
s © 7 012552 8895 GETENT NULL I1OSO4AAM & 
: 012552 100000 6307 00 000 8896 EPPR POsCe oP 1 SAVE USERS P1 10S0CO070 
012553 014133 7102 00 010 8897 GET! TRA ICHI (ONCE ONLY, THEN LDP P.10Q/SD.10Q) 10800075 
7 © 012554 001761 4716 07. 000 8898 LOP Pe lOQs.CTYP»/DL SET TYPE = 0 1oso0cs8o @ 
612555 100004 7203 00 000 8899 LXLO »WEECTssF.10Q GET FREE ENTRY COUNT 10s00085 
| 012556 000017 1002 03 000 8900 cMPXO FSTTHRsDU ARE MANY ENTRIES AVAILABLE 10socog9o 
: @ 012557 012611 6046 00 010 8901 TMOZ QFEW NO 10s00095 2 
012560 100005 4503 00 O00 8902 STZ oWEMRTseF.10Q YES» CLEAR TIME 10800100 
| 012561 100006 4503 00 000 8903 STZ oWEMR Coe F.10Q & THRESHOLD COUNT 10800105 
1 @ 012562 000000 6352 15 O00 8904 QAVIL EAA 0-5 SAVE XR5 10S0C110 @ 
: 012563 000040 6252 00 O00 8905 EAXS «WOPEN POINT TO AVAIL CHAIN 10s0C115 
012564 030240 5202 01 O00 8906 RPT NQPAG 914 1NZ SCAN FOR AN ENTRY 10S0C120 
* 012565 100000 2243 15 000 8907 LDX4 O,5eP.106 10800125 @ 
C12566 012637 6002 00 010 8908 TZE NGETQ~1 NONE FOUND : 10S0C130 
012567 100000 2203 14 000 8909 LDXO »WEST +4eF.10Q FOUND ONE, GET NEXT ENTRY PTR 10S00135 
& 012570 177777 7403 15 O00 8910 STXO —~145/P.100 SET NEW CHAIN HEAD IN TABLE 10800140 os] 
012571 O00000 6202 14 O00 8911 EAXO 0-4 10800145 
012572 776000 3602 03 000 8912 —ANXO =0776C00,DdU GET PAGE ORIGIN ~10s0C150 
& 012573 000001 6252 00 O00 8913 EAXS 1 | 10800155 ® 
| 012574 100004 0453 10 000 8914 ASX5 »WEECT/O-P.10Q ADD TO PAGE USE COUNT 10800160 
® e 
= @ 
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12-27-79 09.357 H6600J37.002 1/0 S UP ERV IS OR 7912191080 PAGE 225 
SUBROUTINE GETENT C€ GET ONE ENTRY ) 
Ci2575 000000 6252 01 O00 8915 EAX5 O- AU RESTORE XR5 10$0C165 
012576 O00000 6352 14 000 8916 EAA 044 PREPARE 10s0C170 
012577 000002 7352 00 O00 8917 ALS 2 MLR POINTER 10800175 
C12600 000001 3362 07 O00 8918 LCQ 1eDL 10800180 
C12601 100004 0563 00 000 8919 ASQ »WEECTs»-F.I0Q REDUCE FREE ENTRY COUNT 10$00185 
012602 000101 1006 00 O00 8920 MLR e(1eerAU) CLEAR 1/0 ENTRY .1080C190 
012603 900000 0000 00 O00 8921 ADSC9 10800195 
012604 100000 0001 30 Q00 8922 ADSC9 Ors Oe. LIOES*4eP.100 10s0C200 
(012605 100000 0543 14 O00 8923 AOS oWEST s4e F100 SET STATUS=BUILDING 10Ss0C205 
012606 100024 0507 14 Q00 8924 STD PO».WEEND»4,P.10Q SAVE USERS ODR1 10S0C210 
012607 100003 4463 14 O00 8925 SXL6 »WEPIDs4eP,100 10800215 
012610 Q000000 7102 15 O00 8926 TRA 0-5 RE TURN 1o0soc220 
000012 8927 THRCNT EQU 10 THRESHOLD VALUE 10soce4s 
012611 100007 4503 00 O00 8928 QFEW STZ »WERL Tse F100 CLEAR RLSE TIME ~10s0ce2se 
012612 100003 2343 00 O00 8929 SZN eWEPADs- F.10Q IS GROW ACTIVE 10s0C255 
012613 012632 6042 00 010 8930 TMI TNOVER YES 10800260 
012614 100006 2353 00 O00 8931 LDA eWEMR Cor F.10Q NO,» GET THRESHOLD COUNT 10s0C265 
012615 o00012 1152 07 O00 8932 CMPA THRCNTsSDL IS IT EXCESSIVE 10S0C270 
012616 012626 6032 00 010 8933 TRC THROVR YES 1Oosoce7s 
012617 100006 0543 00 O00 8934 AOS aWEMR Cos F.10Q NOs BUMP IT 10S800280 
012620 700040 4133 00 000 8935 RSCR 32eeP.,CR READ CLOCK 10800285 
012621 100005 2343 00 O00 8936 SZN oWEMRT soo F.108 IS THIS THE FIRST TIME 10SO0C290 
012622 012631 6002 00 010 8937 TZE TNOT YES. 10seo295 
012623 100005 1363 00 O00 8938 SBLQ eWEMRTseF.10Q NO» GET DELTA TIME 10S0C300 
012624 012643 1162 00 010 8939 CMPQ THRTIM IS TIME EXCESSIVE 10sdc305 
012625 012632 6C42 00 010 8940 TMI TNOVER NO -1080C310 
012626 400000 2352 03 O00 8941 THROVR LDA 2FBTOsDU YES 10800315 
012627 100003 2553 00 000 8942 ORSA oWEPADss F108 SET FOR PAGE REQUEST 10$00320 
C12630 012632 7102 00 010 8943 TRA TNOVER 10s00325 
012631 100005 7563 00 O00 8944 TNOT STQ oWEMRTs/ F108 SAVE THRESHOLD TIME ~1080C330 
012632 000006 1002 03 O00 8945 TNOVER CMPXO SNDTHRsDU TEST SECOND THRESHOLD 10800335 
0712633 012562 6056 00 010 8946 TPNZ QAVIL NOT REACHED YET 10800340 
012634. 000001 1062 03 O00 8947 CMPX6 » PNPOFZDU IT REQUESTOR POPM 10800345 
012635 012562 6002 00 010 8948 TZE QAVIL YES, GIVE IT A TRY 10800350 
012636 012640 7102 00 O10 8949 TRA NGETQ NOs DENY REQUEST 10s00355 
8950 * 10S00360 
C12637 O00000 6252 01 O00 8951 EAXS O-AU RESET X5 10S0C365 
012640 8952 NGETQ NULL 
012640 9000000 6317 00 000 8953 EPPR P10» 6PO RESTORE P1 ANON1020 
012641 000000 6242 00 O00 8954 EAX4 0 SET STATUS NCT ASSIGNED 
012642 000000 7102 15 O00 8955 TRA 0-5 RE TURN 10S0C235 
8956 * 
8957 * DATA AREA 
8958 * 
000017 8959 FSTTHR EQU 15 FIRST THRESHOLD COUNT 
O000C6 8960 SNDTHR EQU 6 EMERGENCY THRESHOLD ONLY POP 
000055 | 8961 ECNTPP EQU 1024/ .LICES~1 TEMPORARY ENTRY COUNT IN ONE PAGE 


012643 000046113200 000 8962 THRTIM VFD 36/10*10C0* 1000 DENY REQUEST THRESHOLD TIME 
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12-27-79 09.357 
012644 006013 4706 07 
012645 000000 1042 03 
012646 012775 6002 00 
012647 001761 4706 07 
012650 013074 7402 17 
012651 000002 1043 00 
012652 000000 6046 10 
012653 000001 2353 14 
012654 100000 3152 07 
012655 012661 6002 00 
012656 000000 6202 00 
012657 600201 7403 00 
012660 012714 7102 00 
C12661 000010 3152 07 
012662 012670 6002 00 

0126€3 
012663 006155 4706 07 

012664 
012664 000007713400 
(012665 900000601770 
012666 006013 4706 07 
012667 001761 4706 07 

012670 


H660057.002 


1/0 


SUBROUTINE UL 


8964 
8965 
8966 
8967 
8968 
8969 
8970 
8971 
8972 
8973 
8974 
8975 
8976 
8977 
8978 
8979 
8980 
8981 
8982 
8983 
8984 
8985 
8986 
8987 * 


+ + te F 


8988 ULINK 


8989 
8990 
8991 
8992 
8993 
8994 


8995 


8996 
8997 
8998 
8999 
9000 
9001 * 


9002 NENTRY 


9003 
9004 


9005 
9006 
9007 *« 
9008 


— 9009 NXX1 


SU 


INHIB 


LOP 
CMPX4 
TZE 
LDP 
STxXO 
CMPX4 
TMOZ 
LDA 
CANA 
TZE 
EAXO 
STXO 
TRA 


CANA 
TZE 
EXTMEM 
LDP 
ICLIMB 
VFD 
VFD 
LOP 
LDP 


NULL 


SUPERVISOR 7912191080 PAGE 


INK 


BROUTINE ULINK 


FUNCTION. TO UNLINK I/0 ENTRY FROM PROCESS. 
TO MANAGE THE SPACECPAGE) OF I/0 ENTRY SEGMENT 
INPUT. x0 RETURN ADDRESS 
X4 1/0 ENTRY ADDRESS 
X6 P.SSA 
x7 CPUNO 
CDR6 P.SSA 
ODR7 P.CR 
OUTPUT. NONE 
A DESTROYED 
NOTE. 
@CRQGT GATE IS CLOSED 
ON 
POsSD.IOGs0L GET I10Q DESCRIPTOR 
0O,0U | IS X4& KOSHER 
DBZOP NO 
POs.CTYP DL 
WSNXO0 47 SAVE XRO 
@WEEADs» FO IS ENTRY RESERVED 
0-6 YES» DON'T UNLINK IT 
eWEPRVe4 oP GET ENTRY STATUS 
oF FTYFSDL IS IT A SYSTEM ENTRY 
NENTRY NO 
0 
@SSYI Cos F.SSA CLEAR SYSTEM I/0 FLAG 
PPRO 
eFEXTMZDL IS ENTRY EXTENDED 


NXX1 NO» NORMAL 

UNWLWS UNWIRE WORKING SPACE 
POsSD.LEMEsDL 

eDROs re EXeEAXO 

TES EX 205/713 41/101/001/006/M. 

1/09 /048/0 61 /aN01/.002/0-2/0012/.DR0 
POsSD.1IOGrDL RESTORE PO 
PQOs.CTYP DL 


UNLINK ENTRY FROM PROCESS CHAIN 
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10S00385 
IOSO4ASR 
IOSQ4AS5R 
10S0C390 
10800395 
10800400 
EL8. 

10$s0C410 
10800415 
10s00420 
25Fw0600 
25Fwl610 
16FWOS570 
10S0C0445 
10s00450 


-10800455 


10800460 


10800465 
10800470 


1080C475 


10SC0C0480 


~—70s00485 


Pe ee ee ee ee rr er er er re 2 2 ee 2 


1245T 02 


12-27-79 
012670 000002 
012671 012706 
012672 000000 
012673 012705 
012674 777777 
012675 012702 
012676 000002 
012677 Q00000 
012700 000002 
012701 012707 
C12702 000000 
C12703 000002 
012704 012707 
C12705 000002 
C12706 600007 
C12707 600042 
012710 777777 
012711 900002 
C12712 600042 
012713 012772 
C12714 0900000 
C12715 000012 
C12716 000000 
C12717 000040 
012720 012732 
C12721 000040 
012722 000001 
012723 000040 
C12724 777777 
012725) «60012731 
012726 000001 
C12727 000040 
012730 012732 
012731 oO00000 
012732 900004 
012733 000001 
012734 000004 
012735 000132 
012736 012745 
012737 000007 
012740 013074 
012741 776000 
012742 000001 
C12743 000004 
012744 900000 


09,357 


2555 
6002 
6202 
6002 
3152 
6002 
4403 
6202 
7403 
7102 


6202 
7403 
7102 


4403 
2513 


7 203 
6202 
6042 
4403 
0112 


6352 
7712 
4503 
7203 
6042 
4443 
7403 
2363 
3762 
6012 
7563 
7443 
7102 
7443 
7203 
0202 
4403 
1002 
6C32 
4503 
2202 
3642 
aa0.2 
0563 
7102 


9010 
9011 
9012 
9013 
90714 
9015 
9016 
9017 
9018 
9019 
9020 
9021 
9022 
9023 
9024 
9025 
9026 
9027 
9028 
9029 
9030 


9031. 


9032 
9033 
9034 
9035 
9036 
9037 
9038 
9039 
9040 
9041 
9042 
9043 
9044 
9045 
9046 
9047 
9048 
9049 
9050 
9051 
9052 
9053 
9054 
9055 
9056 
9057 
9058 
9059 


H6600N7.002 


SUBROUTINE 


PPRO 


PPIN 


PPINA 


7912191080 PAGE 


GET NEXT ENTRY,» PRIOR ENTRY LINKS 
ONLY ENTRY 


IS FIRST ENTRY 


IS LAST ENTRY 
MIDDLE ENTRY» RECHAIN PREVIOUS. 


RECHAIN NEXT 


IS LAST ENTRY 


SET NO PREVIOUS 
LINK NEW HEAD CIF ANY) 


ENTRY HOLD COUNT 
-4 


(TRA IF DEBUG OPTION SET. (5720)) 


LINK ENTRY INTO AVAILABLE CHAIN 


1/0 S UP ERVI S$ OR 
UL INK 

LDA eWEPL K»4 » PO 
TZE UIE 
EAXO OAL 
TZE UFE 
CANA -1DU 
TZE ULE 
SXLO eWEPLKsAU,PO 
EAXO Oe AU 
STXO eWEPLKsALoPO 
TRA PPRCP 
EAXO 0 
STXO oWEPLKsAL PO 
TRA PPROP 
SXLO eWEPLKsAL PO 
STBA ~SNIO s606P.SSA 
LXLO »~SECNTosrP.SSA 
EAXO -1 0 
TMI 2/IC 
SXLO o~SECNTssP.SSA 
NOP DEBG 
EAA 04 
ARL 10 | 
S$T2 aWEST 444 F0 
LXLO aWCPENZAUAPO 
TMI PPIN 
SXL4 eWOPENSAU SPO 
STXxO oWEPRVs4 oP0. 
LDQ »WOPENsALU SPO 
ANQ ~1,0U 
TNZ PPIN=~1 
STQ e=WEPRV«4 o PO 
STX4 oWOPENSAL APO 
TRA PPIN 
STX4 oWEST »0%P0 
LXLO eWEEC Ts» FO 
ADLXO 1,D0U 
SXLO eWEECTs+ FO 
CMPXO 2* ECNTPP.DU 
TRC PPEX 
§TZ eWERL T+» FO 
Loxo WSNX0 47 
ANX4 =0776C00~,DU 
LCQ 1/0U 
ASQ eWEECT+4 »PO 
TRA 0-0 


CLEAR STATUS 

GET TAIL POINTER 
PAGE IS INACTIVE 
SET NEW TAIL 

SET PRIOR LINK 
GET CHAIN ENDS 
IS THERE A CHAIN 
YES 

NOs CLEAR PRIOR 
SET CHAIN HEAD 


LINK AT TAIL 
ENTRY COUNT 
INCREMENT IT 


SAVE IT 
IS IT LARGE 
YES 


NOs RESET RLSE TIME 
RESTORE XRO 
PAGE ORIGIN 


DECREMENT PAGE USE COUNT 
RETURN TO CALLER . 
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10S0C490 
1osoc49s 
10socs00 
10socsos 
10Ss0C510 
10so0c515 


1080520 


10s00c5s25 
10S$00530 
10S0C535 
10800540 
I0S00545 
10secss50 
10SO0C555 
1osocs75 
10800580 
XXXX3130 
10s0C590 
1oseacs9s 
10s0Cé6é00 
16FWC59C 


.10secéi1C 


EL8. 
10s00620 
1oso0cé25 


10StCé30 


10S0C635 
10800640 


10800645 


1o0sccé5s0 
1os0céss5 
10s00660 
10S0C665 


~10s0cé7e 


10S0C675 
10S0C68&0 
10800685 
10S0C690 
10s0C695 
10s00700 
1o0soc705 
10sec710 
10s0C715 
10s0C720 
rosoc725 


1¢s0c730 
10800735 


10800740 
10s00745 
rescc7s0 


1245T Ce 


T2~27=79 
012745 000003 
012746 012765 
012747 040000 
012750 012740 
012751 000007 
012752 012756 
C12753 700040 
012754 000007 
072755 012740 
012756 700040 
Ci2757 000007 
012760 o000074 
012761 012740 
C12762 040000 
012763 000003 
012764 012740 
012765 100000 
012766 012740 
012767 000003 
012770 000006 
012771 012740 
012772. 000004 
C12773 600007 
012774 012714 
C12776 900000 
012777 600007 
013000 012775 
013001 000001 
€13002 000002 
C13003 777776 
013004 0900000 
013005 012714 
013006 012775 


09.357 


2203 00 9000 
6042 00 010 
3002 03 000 
6C12 00 9010 
2353 00 000 
6012 00 010 
4133 00 000 
7563 00 000 


7102 00 010. 


4133 00 000 
1363 00 000 
1162 03 000 
6022 00 010 
2202 03 000 
2403 00 000 
7102 00 010 


3602 03 O0C 
6012 00 010 
7403 00 000 
4503 00 000 
7102 00 010 


6012 04 000 
2203 00 000 
6002 00 010 
012775 
6352 10 000 
2203 00 000 
6002 00 010 
1352 03 000 
2203 10 000 
6012 04 000 
1152 03 000 
6002 00 010 
7102 00 010 


H6600J7.002 1/0 S UP E RVIS OR 
SUBROUTINE ULINK 

9060 * 
9061 PPEX LoXxO0 eWEPADs»s PO 
9062 TMI PREG 
9063 CANXO eFBT3,0U 
9064 TNZ PP INA 
9065 LDA eWERL Toe FO 
9066 TN2 PNZ 
9067 RSCR 32eeP.CR 
9068 STQ eWERL Tos PO 
9069 TRA PPINA 
9070 x 
9071 PNZ RSCR 32eeP.CR 
9072 SBLQ eWERL Ts FO 
9073 CMPQ 15*4, CU 
9074 TNC PPINA 
9075 LDXxO0 eFBT3 4DU 
9076 ORSXO eWEPADs PO 
9077 TRA PPINA 
9078 * 
9079 PREQ ANXO oF BT24DU 
9080 TNZ PPINA 
9081 S$TxO ~WEPADss FO 
9082 $TZ oWEMRCo-FO 
9083 TRA PPINA 
9084 x 
9085 * CHAIN HANDLING DEBUG CODE 
9086 * 
9087 DEBG TNZ 4e1C 
9088 © LOx0 »SNIOseP.SSA 
9089 TZE PPRO 
9090 DBZOP 20P 9 
9091 EAA 020 
9092 LOx0 »SNIOeeP.SSA 
9093 TZE DBZOP 
9094 SBLA 140U 
9095 LDXO eWEPLKs0-P0 
9096 TN2 ~2IC 
9097 CMPA O.DU 
9098 TZE PPRO 
9099 TRA DBZOP 


7912191080 


GET PAGE STATUS 
REQUEST IS OUTSTANDING 
IS RLSE KNOWN 

YES 

NO» IS TIME ZERO 

NO 

YES, SET T=-0 


YESs GET TIME 
THEN DELTA TIME 
HAS IT BEEN 15 SEC 
NO 
YES 
SET PAGE RELEASE WANTED 


IS REQUEST UNDER WAY 
YES», CANT HELP IT 
NO» CANCEL IT 

CLEAR COUNT 


»SECNT >0 
»~SECNT=04 IS .SNIO ZERO 
YES 


GET .SNIO 

IS ZEROs TILT 

REDUCE CHAIN COUNT 
WALK CHAIN 

MORE YET 

ENDs IS CHAIN KOSHER 
YES 

NOs TILT 


PAGE 
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10s0C755 
10800760 
10800765 
10800770 
1osdc775s 
10800780 
10800785 
10s0C790 
10so0Cc795 
10secsce 
10S00805 
10S00810 
10s0C0815 
10800820 
10s0cses 
10S$0C0830 


10800835 


10S00840 
10S00845 
10S0C850 
10socsss 
10800860 
10800865 
10800870 
10S0C875 
10S0C880 
10800885 
EL8. 


1os0C895 


10seo90e 
XXXX 3610 
10s00910 
rosocots 
10s0C920 
10800925 
10806930 
I0so0c935 
10S00940 
10s00945 
10800950 


1245T 02 


12-27-79 
013007 000016 
013010 013027 
013011 000160 
013012 000004 
013013 013074 
013014 000000 
013015 000000 
013016 006024 
013017 000002 
C13020 013047 
013021 000000 
013022. 013037 
C13023 013074 
(13024 013047 
013025 000777 
613026 000000 
013027 000014 
013030 013034 
(013031 017760 
013032 000004 
013033 000000 
013034 013074 
613035 000007 
013036 013015 
C13037 000033 
013040 000022 
013041 000011 
013042 000000 


09.357 


013007 


3152 
6012 
3752 
7712 
4402 
6202 
6352 
4706 
7372 
7552 
2373 
7162 
7202 
2752 
3752 
7102 


3152 
6012 
3752 
7712 
7102 


4402 
6202 
7192 


Tl2 
7712 
re 
0112 


07 
00 
C? 
00 
17 
05 
16 
07 
00 


H6600J7.002 


000 
010 
000 
000 
076 
000 
000 
000 
000 
010 
000 
010 


~—6010 


01C 
000 
000 


000 
010 
000 
000 
000 


010 
000 
010 


000 
000 
000 
000 


+ + + & 


* 
* 


GETWSN 


WS NO 


GETCO 


GETILT 


* 
WSNS FT 


I/ 


SUBROUTINE 


INHI 


NULL 
CANA 
TNZ 


0 SUPERVISOR 


GETWSN 


SUBROUTINE GETWSN 
FUNCTION. 
INPUT. x0 


OUTPUT. A 


B ON 


=0164DL 
GETIT 
=016040L 
4 
WSNXO «7 
Ov AL 

026 
POsSD.PICADL 
2 

WSNWo 7 
Os AUs PO 
WSNSFT,0 
WSNX0 27 
WSNWe 7 
20777 -0L 
0,0 


7014,0L 
GETILT 
7017760/CEL 


4 
0,0 
WSNXO0 27 


? 
GETCO 


ar 
18 
9 


7912191080 PAGE 


TO GET WCRKING SPACE NUMBER BY KPX 


RETURN ADDRESS 

KFX 

C PUNO 

ORIGNAL DESCRIPTOR IMAGE 


WCRKING SPACE NUMBER 
DESTROYED 


Is T=0/1 
NO 
GET WSR# 


SAVE XO 

WSRA 

KPX 

KPID SEGMENT 

KPID INDEX TO AUs WSQ ADDER TO AL 
SAVE ADDER 

GET WSR O-? VALUES. 
SHIFT *EM 

RESTORE xO 

WSQ ADDER 

TRUE WSQ 

RETURN 


IS T22/3 
NO 
YESs WSR = WSQ 
ALIGN IT 
& RETURN 


SAVE XO 
T>3, USE WSR 7 


WN © 


229 


11FWO060 
11FWOO70 
11FWCO8O 


~11FW0090 
—71FWO100 


11FWO110 
11FW0120 
11FW0130 
11FWO140 
11FWO150 
11FW0160 
11€W0170 
11FWO180 
11FWC190 
11FwW0200 
11FWO210 
11FWC220 
11FWO230 
11FWO240 
11FWO250 
11FWO260 
11FWO270 
11FWO280 
11FWO290 
11FWC300 
11FWC310 
11#W0320 
11FW0330 
11FWO340 


TT FWC350 


11FWO360 


12465T 02 12-27-79 095.557 


013043 
013044 
€13045 
013046 


013047 
013050 
013051 
013052 


000011 7372 OO 
000022 7372 00 
000033 7372 00 
000044 7372 00 


000000000000 
000000000000 
000000000000 


000000000000 


000 
000 
000 
000 


000 
000 
000 
000 


H6600J 7.002 


1/0 S UP ERVIS OR 


SUBROUTINE 


9151 

9152 

9153 

9154 

9155 * 
9156 WSNW 


GETWSN 


9 

18 
27 
36 


0-00.00 


7912191080 


NOU & 


TEMP STORE 


PAGE 
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11FW0370 
11FWO380 
11FWCO390 
11FW0400 
11FWO410 
11FWC420 


é 
. 
1245T 02 12-27-79 09.357 H660057.002 1/0 SUPERVISOR 7912191080 PAGE 231 
£ 
SUBROUTINE ADESC 
& 9158 * 
9159 x 
9160 * 
é 9161 * 
9162 * 
9163 * 
& 9164 SUBROUTINE ACESC 
9165 FUNCTION. TO GET ABSOLUTEC(CTYPE#02403) DESCRIPTOR 
9166 INPUT. xO RETURN ADDRESS 
& 9167 X4 1/0 ENTRY ADDRESS 
9168 X6 KFX 
9169 X7 CPUNO 
e 9170 ODRO ORIGNAL DESCRIPTOR 
9171 ODR1 P.I0Q@ ( TYPE=00 ) 
9172 
@ 9173 OUTPUT. ODRO P.SSA ( TYPE=02 ) 
9174 A/Q DESTROYED 
9175 
a 9176 NOTE. 1/0 ENTRY WORD .WEENDs, .WEEND+1 DESTROYED 
9177 
9178 INHIB ON 
@ 9179 * 
9180 * 
013053 9181 ADESC NULL ? 
eS 013053 100024 0507 14 000 9182 STD POs .WEEND +4 6P.100 10802600 
| 013054 100024 2373 14 000 9183 LDAQ »~WEENDs4,P.10Q 10802605 
013055 000016 3152 07 OOO 9184 CANA =016,0L Is T=0/1 11FWO440 
@ 013056 o00000 6C12 10 O0C 9185 TNZ 0-0 NOs CAN*T HELP 1T1EWC450 
013057 013074 7402 17 010 9186 STXO WSNXO0 47 YESs SAVE RETURN 11FWO460 
013060 013011 7002 00 010 9187 TSXO WSNO RETURN A=WS# 10802710 
9188 x 
e 013061 017761 3362 07 O00 9189 LCQ 8192-156 CL Q@ = 77777760017 
C13062 100024 3563 14 000 9190 ANSQ @WEENDs45P.10@ CLEAR FLAG BITS 
@ 013063 000004 7352 00 o00 9191 ALS 4 
013064 000002 2752 07 O00 9192 ORA =002,0L | 
013065 100024 0553 14 000 9193 ASA »WEENDs4 PL 10Q SET WSN AND TYPE (00-02/01-03) 
r C13066 006013 4706 07 O00 9194 LDP POsSDeIOGsDL GET TYPE 01 I0Q DESCRIPTOR 11FW1030 
013067 177777 2202 03 ON0 9195 LOXxO 20177777 .DU 
013070 100025 3403 14 000 9196 ANSXO ~WEENC41 444P.10@ CLEAR QUARTER OF BASE // COMPLETE 
® 013071 013074 2202 17 010 9197 LDxOo WSNXO 07 RESTORE xO 11FW1050 
013072 000024 6707 14 000 9198 LOD PO» WEEND +4 6P0 GET ABSOLUTE P.SSA 
013073 o00000 7102 10 O00 9199 TRA 0-0 RETURN 
@ 9200 INHIB OFF 
9201 * 
9202 x DATA AREA 
e 9203 * 
| 013074 9204 WSNXO NULL | 
013074 900000 o000C0 000 9205 ZERO 0 FOR CPUNO O 
& 013075 000000 oc00cO 000 9206 ZERO 0 1 
013076 000000 o00000 000 9207 ZERO 9) 2 
® 
© 
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SUBROUTINE ADESC 


013077 Oo00000 000000 000 9208 ZERO 0 3 


1245T 02 


Le= 27-79 
013700 006204 
073101 014077 
013102 200002 
013103 007777 
C13104 000000 
013105 200003 
C13106 200000 
013107 200000 
013110 777400 
C131711 013134 
C13112 000012 
013113 000100 
013114 450000 
013115 000000 
013116 200001 
013117 013122 
013120 777777 
013121 000001 
C1i3122 400000 
013123 900000 
013124 001515 


09.357 


013700 


4724 
3750 
6725 
3150 
6000 
2221 
1221 
2 361 
3160 
6010 
7360 
6200 
3360 
5202 
2171 
6064 
6220 
7100 


3150 
6000 
2110 


07 
00 


00. 


07 
11 
00 
00 


000 
010 
000 
000 
000 
000 
000 
000 
000 
010 


000 


000 
000 
000 
000 


010 


000 
000 


000 
000 
000 


H6 6004 


9210 
9211 
9212 
9213 
9214 
9215 
9216 
9217 
9218 
9219 
9220 
9221 
9222 
9223 
9224 
9225 
9226 
9227 
9228 
9229 
9230 
9231 
9232 
9233 
9234 
9235 
9236 
9237 
9238 
9239 
9240 
9241 
9242 
9243 
9244 
9245 
9246 
9247 
9248 
9249 
9250 
9251 
9252 
92535 
9254 
9255 
9256 
9257 
9258 
9259 


7.002 


SUBROUTINE 


* 
*- 
* 
* 


FNDFC 


FNORM 


1/0 


SUPERVISOR 


FNDFC 


SUBROUTINE FADFC 


NULL 
LDP 
ANA 
LDD 
CANA 
TZE 
LDX2 
SBLX2 
LDQ 
CANQ 
T™NZ 
QLs 
EAXO 
LCQ 
RPTX 
CMK 
TTN 
EAX2 
TRA 


CANA 
TZE 
CMK 


FUNCTION, 


INPUT. XO 


OUTPUT. X2 


NOTE. 


RETURN TRA 


P2oSD.PSH*DL 
=0777777337777 
P27PH.PATss P2 
=O7777e0L 

0-1 
ePTPPTss Fe 
oPNPATs+o F2 
aPNPATs» eo F2 
=0777400 »DU 
FPART 

10 

64 4QU 
=0450000.,DL 
0O+1 

1Te2ePe 

NOMCH 

~12 

101 


~FBTO,DU 
0,1 
=015152DL 


TO FIND FILE CODE IN PAT POINTER LIST 


RETURN ADDRESS 
KFX 
C PUNO 
FLAG AND FILE COD BIT 30-35 
BIT 0 =O FROM CALLIO 
=1, FROM GEINCS 
P.sSSA 
P.CR 


PAT POINTER 
PH.PAT 
DESTROYED 
DESTROYED 


0-0 NORMAL . 
1,0 ERROR FILE CODE NOT FOUND 


GET PUSH SEGMENT 

DROP SYSOUT & RLSD BITS 
GET PAT SEGMENT 

IS FILE CODE NULL 

YES» PUNT 


GET PAT ORIGIN 

H FILES 

ARE THERE 256 FILES 

YES 

NO» FORM RPT COUNT 

RPT COUNT +. TZE FLAG 

FILE CODE MASK (777777330000) 
SCAN PAT FOR FILE | 


NOT FOUND 
GOT ITs ADJUST X2 
TAKE GOOD EXIT 


IS THIS CALLIO. ENTRY 
YESs TAKE ERROR EXIT 
NOs IS I/0 INTERCOM FILE 


79121910580 | PAGE 


233 


29FW1230 
10802720 
29FW1250 
T6OFWC840 
16FWC8&50 
10802730 
10S02735 


10802740 


10802745 
10802750 
10s02755 
10802760 
10802765 
10802770 
10S02775 
10802780 
10802785 
10802790 
10802795 
10802800 
10802805 
10S02810 


2 
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227779 
013125 9000000 
013126 600043 
013127 010000 
013130 600012 
013131 000002 
C137132 700010 
013133 000540 
C13134 000377 
0137135 000003 
013136 000400 
013137 013112 
€13140 000010 
013141 013147 
013142 777777 
013143 450000 
C13144 000300 
013145 200000 
€C13146 013120 
013147 000000 
013150 777777 
013151 013147 
073152 013144 
013153 200000 
013154 013112 


09.357 H6600J 
6010 11 O00 9260 
2361 00 O00 9261 
2760 07 O00 9262 
7561 56 O00 9263 
9264 
013131 9265 
6306 04 13133 
7103 00 000 
000001 000 
9266 
3160 03 O00 9267 
6010 04 000 9268 
1360 03 O00 9269 
6000 00 010 9270 
7720 00 O00 9271 
7520 60 010 9272 
6220 12 000 9273 
3360 07 O00 9274 
5202 01 000 9275 
2171. 12 000 9276 
6070 00 010 9277 
2200 03 000 9278 
6200 10 9000 9279 
7400 00 010 9280 
6010 00 O10 9281 
2361 00 O00 9282 
7100 00 010 9283 


791219T0S0 PAGE 


NO 


MAKE STACK ENTRY 


YESs CALL INTER-COM PROCESSOR 


IS IT 0 MOD 256 
NO 

YESs ADJUST COUNT 
EXACTLY 256 


SET RPT TIMES 
ADJUST INDEX 
CMK MASK 

SCAN 256 FILES 


FOUND IT 
GET TIMES 


-1 
DO NEXT 2256 
RESTORE COUNT 


72002 1/0 S UP ERVIS OR 
SUBROUTINE FNDFC 

INZ 0.1 

LDQ 2eSELVLoeo PLSSA 

ORQ eFBT23,0L 

STQ e@SSAsIDsePF.SSA 
* 

~GOTO «MSCM161 

INHI8 SAVEsON 

EPPRO *+2 9S 

TRA e@CRGTCsosrP.CR 

ZERO «MSCM101 

INHIB RESTORE 

256 OR MCRE FILES IN PAT 

FPART CANQ 20377,0U 

TNZ 341C 

SBLQ 256eDU 

TZE FNORM 

QRL 8 

STCQ FTIMS 460 

EAX2 -1,72 

LCQ =0450000,Dt 
FLOOP RPT Orv 1TZE 

CMK Or2eP2 

TTF FOUN 
FTIMS LDxO wey DU 

EAXO -140 

STXO FTIMS 

TNZ FLOOP 

LD oPNPATss F2 

TRA FNORM 


DO REMAINDER 
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10S02815 
10$02820 
10S$02825 
10802830 


CALL 8645 
CALL &650 


-1080C510 
CALL 8657 


10800530 
CALL 8660 
CALL 8665 


CALL &670 


CALL &675 
10S00550 


CALL &685 
CALL 8690 


CALL &695 
CALL &700 


CALL&705 
-CALL8710 


CALL&715 
CALL 8720 


] 
® 
9245T 02 12-27-79 09.357 H660047.002 1/0 SUPERVISOR 79121910S0 PAGE 235 
e 
SUBROUTINE OCWCK 
9285 * @ 
9286 * 
9287 * 
9288 * @ 
9289 SUBROUTINE DCWCK 
9290 
9291 FUNCTION. LIST DCW VALIDATION @ 
9292 
9293 INPUT. x4 DCW POINTER 
9294 — X2 RETURN ADDRESS & 
9295 X4 1/0 ENTRY ADDRESS 
9296 ODRO DCW HOLDING SEGMENT 
9297 ODR1 1/0 ENTRY SEGMENT P.,10Q e 
9298 eWEEND UPPER 
9299 BCUNDS OF SEGMENT 
9300 & 
9301 OUTPUT. X1 DCW POINTER 
9302 XO/A DESTROYED 
9303 S 
9304 NOTE. oSTEMP+8 DESTROYED 
9305 INHIBITED CODING 
9306 | & 
9307 * 
9308 INHIB ON 
“ 013155 9309 DCWCK NULL ® 
013155 100001 7203 14 000 9310 LXLO oWEPRVs4 oP. 10Q TEST AUX 
013156 004000 3002 03 O00 9311 CANXO oFFAUXS/DL IS AUX REQUEST 
013157 013171 6002 00 010 9312 TZE DCWPT NO» NORMAL CHECK & 
013160 006204 4706 07 O00 9313 LDP PO-SD.PSHsDL GET PUSH | 
013161 001761 4706 07 O00 9314 LOP POs.CTYP SDL CHANGE TYPE TO GET DCW BOUND 
013162 000034 2203 00 000 9315 LDXxO PHsDC hss FO GET DCW SEGMENT BOUND @ 
013163 100024 7403 14 000 9316 STXO oWEEND/44P.10@ SET 
013164 006204 4706 07 O00 9317 LOP PO-/SD.PSHsDL 
013165 000034 6707 00 O00 9318 LOD POsPH.DC Woe P0 GET DCW SEGMENT DESCRIPTER @ 
013166 013370 7002 00 010 9319 TSXO PTRVL CHECK DCW POINTER 
013167 000043 2362 07 O00 9320 LDQ »ACO43,DL K4 ~- INVALID DCW POINTER EL8. 
013170 005373 7102 00 010 9321 TRA INABQ INVALID DCWP » ABORT K4 r 
013171 O00000 2353 11 000 9322 DCWPT LDA OrtePC GET DCW 10804570 | 
C13172 020000 3152 07 O00 9323 CANA =0020000,DL TEST TDCW 10S00060 
013173 000000 6002 12 000 9324 TZE Ore NOs I10TD OR IOTP 10s0C070 @ 
013174 010000 3152 07 O00 9325 CANA =0010000-DL TOCW OR IONTP 10s00c0n80 
013175 000000 6012 12 000 9326 TNZ 0-2 IONTP 10s0cog90 
013176 O00000 2213 11 O00 9327 LDX1 O-1-PC GET DCW PTR 10800100 & 
(13177 OO0000 2353 11 O00 9328 LDA 0-1-P0 GET OCW 10800110 
C13200 000000 7102 12 000 9329 TRA 0-2 RETURN 
9330 INHIB OFF @& 
® 
@ 
@ 


12465T 02 


12-27-79 
013201 000000 
013202 012775 
013203 013225 
€13204 100000 
013205 100001 
013206 013244 
013207 100000 
013210 900000 
013211 013253 
013212 100001 
013213. 777777 
013214 100000 
C13215 100000 
C13216 400000 


09.357 
013201 
1042 03 000 
6002 00 010 
7412.00 010 
2213 14 Q00 
2233 14 000 
6002 00 010 
7413 13 000 

013210. 
1012 03 O00 
6002 00 010 
7433 11 4000 

013213 
3762 07 000 
3553 14 000 
2563 14 000 
2352 03 000 


H6600J 


9332 
9333 
9334 
9335 
9336 
9337 
9338 
9339 
9340 
9341 
9342 
9343 
9344 
9345 
9346 
9347 
9348 
9349 
9350 
9351 
9352 
93535 
9354 
9355 
9356 
9357 
9358 
9359 
9360 
9361 
9362 
9363 
9364 
9365 
9366 
9367 
9368 
9369 
9370 
9371 
9372 
9373 
9374 
9305 
9376 
9377 
9378 
9379 
9380 
9381 


7.002 1/O SUPERVISOR 7912191080 PAGE 236 
SUBROUTINE ULNK 
* 
* 
* 
* 
SUBROUTINE ULNK 
FUNCTION, UNLINK ROUTINE TO UNLINK I/0 ENTRY FROM 
CHANNEL QUEUE AND DECREMENT LINKED AND 
IN TRANSMISSION QUEUE COUNT. 
INPUT. A MASK TO RESET STATUS IN I/O ENTRY 
Q NEW STATUS I/0 ENTRY 
x0 RETURN ADDRESS 
x1 AMOUNT IN TRANSMISSION COUNT TO BE 
DECREMENTED (0 0R 1) 
x2 LCGICAL CHANNEL INDEX 
x4 1/0 ENTRY ADDRESS 
X6 KPX 
x? CPUNO | 
ODR1 1/0 ENTRY SEGMENT 
ODR6 P.SSA 
ODR7 P.CR 
CUTPUT. A DESTROYED 
Q DESTROYED 
x3 DESTROYED 
ODRO DESTROYED 
NOTE. ~CRQGT IS STILL SHUT 
INHIB ON 
* 
ULNK = NULL 
CMPX4 O,DU IS X4 KOSHER | IOSO4ASR 
TZE DBZOP NO IOSO4A5R 
STX1 DEXMS SAVE AMOUNT TO DECREMENT IN 
Lox1 WEST +40 F.10Q TRANSMISSION COUNT 
LDX3 »WEPRV4 oP. 10@ NEXT ENTRY » PREVIOUS ENTRY 
TZE UNLKF ENTRY IS FIRST IN QUEUE 
$TX1 oWEST +34 F100 SET FORWARD POINTER IN PREVIOUS ENTRY 
* 
UNLK1 NULL 
CMPX1 O»DU ENTRY IS LAST IN QUEUE 
TZE UNLKL 
STX3 oWEPRVs1+P.10Q SET BACKWARD POINTER IN NEXT ENTRY 
UNLK2 NULL | 
ANQ =-1,D0L ISOLATE NEW STATUS FOR ENTRY 
ANSA ~WESTo4eF.10Q RESET CURRENT STATUS 
ORSQ »WEST4,F.10Q SET NEW STATUS 
LDA o FSLNKs DL IS LINKS REQUESTED, 


1245T 02 12-27-79 


013217 
013220 
013221 
013222 
013223 


013224 
013225 
013226 
013227 
013230 
C132 31 
013232 
013233 


013234 
013235 


013236 


013237 
013240 
013241 
013242 
013243 


013244 
013245 
013246 
013247 


013250 
013251 
013252 


013253 
013254 
013255 
013256 


013257 
013260 
013261 


100004 
013224 


600017. 


777776 
600017 


7?77?7?7 
000000 
600160 
013277 
600160 
000000 
6001760 
013277 


013225 
000000 


013262 


100004 
000001 
100004 
000000 
000000 


Cae le ae 6 
013250 
701401 
013210 


006133 
000050 
013210 


777777 
013257 
701402 
013213 


006133 
000050 
013213 


09.357 


3153 14 000 
6002 00 010 
7213 00 000 
3612 03 000 
4413 00 000 
013224 
2352 03 000 
1352 07 000 
0353 00 000 
6042 00 010 
7553 00 000 
6352 05 000 
1153 00 000 
6056 00 010 


6002 10 000 


0112 00 010 


2353 14 000 
3752 07 000 
6553 14 000 
6212 05 000 
7102 10 000 


013244 
3162 03 000 
6012 00 010 
7413.12 000 
7102 00 010 


0713250 
4706 07 000 
7413 00 000 
7102 00 010 


013253 
3162 03. 000 
6012 00 010 
7433 12 000 


7102 00 010 


013257 
4706 07 000 
4433 00 000 
7102 00 010 


9382 
9383 
9384 
9385 
9386 
9387 
9388 
9389 
9390 
9391 
9392 
9393 
9394 
9395 
9396 
9397 
9398 
9399 
9400 
9401 
9402 
9403 
9404 
9405 
9406 
9407 
9408 
9409 
9410 
9411 
9412 
9413 
9414 
9415 
9416 
9417 
9418 
9419 
9420 
9421 
9422 
9423 
9424 
9425 
9426 
9427 
9428 
9429 
9430 
9431 


H6600J7. 002 


DECACT 


DEXMS 


UNLKF 


UNLKFC 


UNLKL 


* 
UNLKLC 


1/0 


SUBROUTINE 


CANA 
TZE 
LXL1 
ANX1 
SXL1 
NULL 
LDA 
SBLA 
ADLA 
TMI 
STA 
EAA 
CMPA 
TPNZ 
NULL 
LDX1 


TZE 


NOP 


LDA 
ANA 
ERSA 
EAX1 
TRA 


NULL 
CANQ 
TNZ 
STX1 
TRA 


NULL 
LOP 
STX1 
TRA 


NULL 
CANQ 
TNZ 
STX3 
TRA 


NULL 
LDP 
SXL3 
TRA 


S UP ERV IS OR 


oWESCT»£4-P,108 
DECQCT 
eSTATEse PASSA 
=07777766DU 
oSTATEs eo PSSA 


-1/DU 
wey DL 
oSRQC Tse PSSA 
ZOP17 
eSRQCTseF.SSA 
Ov AL 
eSRQC Toe FSSA 
ZOP17 


DEXMS 
0,0 


CHECK 


WESC Ts4 oP. 10Q 
oF SCMSe/DL 
»WESCT44 oP, 108 
Os AL 

020 


=-1,DU 


UNLKFC 
eCRCT2e2 oP CR 
UNLK1 


PO,SD.KL DL 
eKLSCCe+PO 
UNLK1 


-1.DU 

UNLKLC 
eCRCT342eP,CR 
UNLK2 


PO /SD.KL DL 
eKLSCCrePO 
UNLK2 


7912191080 


NO» 


LINKS» RESET LINKS FLAG 


DECREMENT .~SRQCT 
DECREMENT LINKED COUNT 
TRANSMISSION COUNT 


NEW COUNT 


NEGATIVE LINK COUNT 


OKs/STORE IT 


IN~TRANSMISSION 
COMPARE WITH LINKED 
IN“TRANS GREATER..«ERROR 


CALL WAS FROM EP#32 UNLINK == NO 
SPECIAL I/0 TO BE LINKED 

- RETURN TO CALLER 
(TSX3 IF 57=0) 


GET SPECIAL COMMAND FLAG 


TURN OFF 


PUT FLAG INTO X1 BIT17 
RETURN TO CALLER 


STORE FORWARD POINTER 


IS 1/0 QUEUE REQUEST 


NO,» CC QUEUE 


I/O ENTRY FIRST POINTER 


COURTESY CALL FIRST POINTER 


STORE LAST POINTER 


IS 1/0 QUEUE REQUEST 


NO CC QUEUE 


I/O ENTRY LAST POIATER 


COURTESY CALL LAST POINTER 
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16FWC610 
16FWC620 
16FWC630 
16FWC640 
16FW0650 


—16F WO66E0 


ITOSC4GAAM 
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SUBROUTINE ULNK 
9432 * IOSQ4AAM 
9433 * IOSO4AAM 
013262 100000 2353 00 O00 9434 CHECK LDA OP. 100 IOSO4AAM 
013263 777760 3752 03 O00 9435 ANA =0777760 -dU DROP # OF PAGES IOSO4AAM 
013264 013276 6012 00 010 9436 TNZ ZOP?77 GARBAGE IOSO4AAM 
013265 000000 6352 00 O00 9437 EAA 0 PREPARE AU IOSO4AAM 
013266 701402 2253 12 000 9438 LDX5 oCRCT 342 0P.CR GET CHAIN TAIL TOSQ4AAM 
013267 013273 6002 00 010 9439 TZE CHEKIT NULL IOSO4AAM 
013270 O00000 6352 15 O00 9440 EAA 0-5 OK» SAVE LINK IOSO4AAM 
013271 100001 2253 15 O00 9441 LOX5 1e5eP.10G NEXT LINK IOSO4AAM 
013272 777776 6012 04 O00 9442 TNZ -~2IC MORE YET IOSO4AAM 
013273 OQ00000 6252 01 O00 9443 CHEKIT EAX5. O-AU FINAL LINK IOSO4AAM 
013274 701401 1053 12 O00 9444 CMPXS eCRCT2e26P.CR IS IT KOSHER IOSO4AAM 
013275 000000 6002 13 O00 9445 TZE 03 YES -TOSO4AAM 
013276 9446 ZOP77 20P 63 NO, TILT TOSOQ4AAM 
9447 * 

9448 * 16FWC680 
013277 0900070 7162 00 010 9449 Z0P17 XEC DBUG TEST OPTION 16FWC690 
013300 9450 ZOP At DEBUG MODE T6FWC700 
013301 600160 7213 00 O00 9451 LXL1 aSRGC Tse FsSSA PRODUCTIONsCLEAN UP .SRQCT 16FW0710 
C13302 000003 6052 04 O00 9452 TPL 341C 16FWC720 
013303 000000 6212 00 O00 9453 EAX1 0 SET ZERO IN 16FWC730 
013304 600160 4413 00 O00 9454 SXL1 oSRQCTssP.SSA | IN~TRANSIT COUNT 16FWC740 
013305 600160 7413 00 000 9455 STX1 eSRGC Tse FSSA SET LINKED = IN TRANSIT 16FWO750 
013306 013234 7102 00 010 9456 TRA CHKOK 16FWC760 

9457 INHIB OFF 


1245T 02 


12-27-79 09.357 
013307. 

013307 000160 2760 07 
013310 100022 7561 14 
013311 006204 4704 07 
013312 001761 4704 07 
013313 013323 2360 00 
013314 000013 3761 O00 
013315 100023 7561 14 
013316 000012 2361 QO0 
013317 003776 3760 Q3 
013320 000007 7360 00 
013321 100023 2561 14 
013322 900000 7100 15 
C13323 000377777770 


H660057.002 


I/ 


SUBROUTINE 


9459 
9460 
9461 
9462 
9463 
9464 
9465 
9466 
9467 
9468 
9469 
9470 
9471 
9472 
9473 
9474 
9475 
9476 
9477 
9478 
9479 
9480 
9481 
9482 
9483 


+ + & 


9484 x 
9485 BLDCC 


9486 
9487 
9488 
9489 
9490 
9491 
9492 
9493 
9494 
9495 
9496 
9497 
9498 x 
9499 * 


9500 MSKDT 


NULL 
ORQ 
STQ 
LDP 
LOP 
LDG 
ANQ 
STQ 
LDQ 
ANQ 
QL$ 
ORSQ 
TRA 


OCT 


0 S UP ERV IS OR 


BLDCC 


SUBROUTINE BLOCC 


FUNCTION. TO BUIL 


7912191080 PAGE 239 


D A ENTRY DESCRIPTOR FOR COURTESY CALL. 


INPUT. X4 1/0 ENTRY ADDRESS 
xs RETURN ADDRESS 
X6 KP X 
X7 CPUNO 
ODR1 P.10Q 
ODR6& P.SSA 
ODR7 P.CR 
OUTPUT. TO BUILD ENTRY DESCRIPTOR IN A I/0 ENTRY 
WORD .WEIOE. 
A/Q DESTROYED 
ODTO DESTROYED 
ODR3 DESTROYED 
NOTE. PH.JUSL USED 
=0160,DL 
»WEIOEs4 oP. 108 
PO/SD.~PSHoDL 
POs .CTYP DL 
MSKDT 
PH.USL41 2 oP0 
eWEIOE*1 -4eP. 108 
PH.USLss FO 
=037764DU 
7 
eWEIOEF17 64eP. 100 
0-5 RE TURN 
000377777770 


® 
@ 
~4245T C2 12-27-79 09.357 H6600J 7.002 1/0 SUPERVISOR 79121910S0 PAGE 240 
@ 
SUBROUTINE TYNAM 
9502 * ) 
9503 * 
9504 * 
9505 * @ 
9506 SUBROUTINE TYNAM 
9507 
9508 FUNCTION. TO GET CURRENT SCT FOR MASTER CONSOLE & 
9509 THIS ROUTINE USES THE PAT POINTER OFFSET TO 
9510 DETERMINE IF THE FILE IS A SYSTEM CONSOLE. 
9511 IF SO» THE CURRENT SCT IS RETRIEVED FROM @ 
9512 THE SD.JSCN TABLE. 
9513 
9514 INPUT. x0 RETURN ADDRESS & 
9515 x1 PAT POINTER OFFSET 
9516 X6 K PX 
9517 Xx? CFUNO eS 
9518 ODR2 P.PAT 
9519 ODR6 P.SSA 
9520 ODR7 P.CR @ 
9521 
9522 OUTPUT. IF SYSTEM COLSOLE, 
9523 x1 SCT ADDRESS & 
9524 A/Q DESTROYED 
9525 ODRO DESTRCYED 
9526 & 
9527 NOTE. SD.SCN USE 
9528 INHIBITED CODING 
9529 2 
000002 9530 P.PAT SET 2 PAT SEGMENT DESCRIPTOR 
9531 INHIB ON 
| 9532 * e 
013324 9533 TYNAM NULL 
013324 200004 1013 00 OQ00 9534 CMPX1 ePTOTYssP.PAT BEGINNING OF /T FILE | 
013325 000001 6022 10 O00 9535 TNC 10 NOT TTY PAT 10806200 r 
013326 200003 1013 00 O00 9536 CKPX1 oPTPPToeF.PAT | 
013327 000001 6056 10 O00 9537 TPNZ 10 NOT TTY PAT 10806210 
013330 200004 1213 00 O00 9538 SELX1 ePTOTYs oP. PAT GET TYX OFFSET 10806215 @ 
013331 006140 4706 07 O00 9539 LDP PO+SD.SCNoDL GET SYSTEM NAME TABLE 10806220 
013332 637001 6352 11 O00 9540 EAA TY161 FORM TYX NAME 10806225 
013333 000022 7712 00 9000 9541 ARL 18 10806230 e 
013334 000000 2363 00 O00 9542 LDQ O»7FPO GET TABLE SIZE 10806235 
013335 000004 7362 00 000 9543 QLS 4 | 10806240 
013336 600214 7403 00 000 9544 STXO oSTEMP4+BoeP.SSA SAVE RETURN ADDRESS 10806245 @ 
013337 000100 6202 06 000 9545 EAXO 64 QL GET RPT COUNT 10806250 
013340 777777 2362 03 O00 9546 Lda -14DU MASK 10806255 
013341 000000 6212 00 000 9547 EAX1 0 10806260 ) 
013342 000000 5202 01 ON0 9548 RPTX 0-1 SCAN FOR NAME IN TABLE 10806265 
013343 oOo000 2113 11 O00 9549 CMK O-1-P0 7 10806270 
013344 013350 6C12 00 010 9550 TNZ TYNOT NOT. THERE 10806275 @ 
013345 600214 2203 00 O00 9551 LDXO @STEMFt+8seP.SSA RESTORE RETURN ADDRESS 10806280 
@ 
@ 
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013346 
013347 


013350 


013352 
013353 


077777 
000000 


000070 


600214 
000001 


09.357 


2213 11 000 
7102 10 O00 


7162 00 010 
013351 
2203 00 9000 
7102 10 000 


637001 


S UP ERVIS OR 


oSTEMP+8oeP.SSA 


H6600N7.002 1/0 
SUBROUTINE TYNAM 

9552 LDOX1 -~112F0 
9553 TRA 040 
9554 * 
9555 TYNOT XEC DBUG 
9556 ZOP 18 
9557 LDXxO 
9558 TRA 10 
9559 INHIB OFF 
9560 TY1 BOOL 637001 
9561 


7912191080 


GET DEVICE SCT ADDRESS 
TAKE CONSOLE RETURN 


CHECK DEBUG MODE 


GET RETURN LINKAGE 
CONSOLE NOT FOUND 


TY1 BIAS 


PAGE 
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10806285 
10806290 
10806295 
EL8. 

16FWC790 
16FWC800 
16FWC810 
10806305 
10806310 


f 


1245T 02 


12~27+79 
C13354 776400 
013355 700000 
013356 040000 
013357 013362 
013360 000000 
013361 003774 
013362 900000 
C13363 000003 
C13364 000140 
013365 000001 
013366 000114 
013367 000000 


09.357 


013354 
6222 11 
2353 11 
3192 07 
6002 00 - 
6222 05 
3622 03 
1022 03 
6032 04 
3022 Q3 
6012 10 
2362 07 
7102 10 


H6600J 


S UP ERVIS OR 


7912191080 PAGE 


(CKECK SCT AND CALCULATE LPCX) 


CALCULATE LOGICAL PRIMARY CHANNEL INDEX 
CHECK SCT ADDRESS 


x0 RETURN ADDRESS 

X1 SCT ADDRESS 

ODR7 P.CR 

x1 SCT ADDRESS. 

X2 LOGICAL PRIMARY CHANNEL INDEX 
A SCT ENTRY 
INHIBITED CODING 
RETURN 

RETURN C (0,0) ERROR 

RETURN 1 €140) OK 


72002 1/0 
SUBROUTINE ILPCX 
* 
* 
* 
* 
SUBROUTINE ILPCX 
FUNC TION. 
INPUT. 
OUTPUT. 
NOTE. 
INHIB ON 
* 
ILPCX NULL 
EAX2 ~.CRCT1,1 
LDA — Oot sP.CR 
CANA eFPRCK*DL 
TZE CKVLS 
EAX2 Oe AL 
ANX2 eFCHNXZDU 
CKVLS CMPX2 xe 9 DU 
TRC 3,1C 
CANX2 =70140,0U 
TNZ 1,0 
LDQ eAC1144DL 
TRA 00 
* 
INHIB OFF 
x 


LCX IF A PRIMARY CHANNEL 
SCT ENTRY 

IS THIS A PRIMARY CHANNEL 
YES 

NO 


TEST MAXIMAM SCT INDEX 
INVALID 

TEST OVERHEAD CHANNEL 
NOs SCT OK 

INVALID 1/0 SCT POINTER 
TAKE ERROR EXIT 


242 


EL8. 
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V2=27279 
013370 100024 
C13371 000002 
013372 000002 
C13373 000002 
013374 100024 
C13375 000000 
013376 777777 
013377 000002 


09.357 


013370 


1013 
6022 
6002 
7402 
2203 
6012 
2202 
7102 


H6600J57.002 


000 
000 
000 
000 
000 
000 
000 
000 


9604 
9605 
9606 
9607 
9608 
9609 
9610 


9626 
9627 
9628 
9629 
9630 
9631 
9632 
9633 
9634 
9635 
9636 


SUBROUTINE 


* + + 


PTRVL 


1/0 


S UP ERV IS OR 7912191080 


PTRVL ( BOUND VALIDATION > 


SUBROUINTE PTRVL 


NULL 
INHIB 
CMPX1 
TNC 
TZE 
STXO 
LOX0 
TNZ 
LDxO 
TRA 
INHIB 


FUNCTION. TO CHECK ANY POINTER VALIDITY 
INPUT. x0 RETURN ADDRESS 
X1 RELATIVE POINTER 
X4 1/0 ENTRY ADDRESS 
ODR‘1 P.I0Q 
«WEEND UPPER 
UPPER ~ BOUND 
OUTPUT. NONE 
NOTE. RETURN 
0-0 NOT VALID 
220 VALID 
ON 
eWEENDs4 PL 100 TEST 
200 LEGAL 
270 LEGAL 
2/IC 
eWEENDs4 oP, 108 TEST 256K SEGMENT 
*& NOs INVALID 
-1,IC YES» IT'S OK 
20 TAKE VALID RETURN 
OFF . 
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10807175 


10807185 
10807190 
10Ss07195 
10807200 
10807205 
10807210 


1245T 02 12-27-79 


09.357 H6600J 7.002 1/0 S UP ERVIS OR 7912191080 PAGE 244 
SUBROUTINE UNWIRE 
9638 * 
9639 x 
9640 * 
9641 * 
9642 SUBROUTINE UNWIRE 
9643 FUNCTION. UNWIRING WIRED SEGMENT 
9644 RELEASE DCW IN DCW SEGMENT 
9645 UN-LINK I/0 ENTRY 
9646 CALLED BY REGUEST HANDLER BEFORE BE ABORT 
9647 
9648 INPUT. X4 1/0 ENTRY ADDRESS. 
9649 rae) RETURN ADDRESS 
9650 ODR1 P,108 
9651 ODR6 P.SSA 
9652 OOR7 P.CR 
9653 
9654 OUTPUT. Q RETURN 
9655 
9656 NOTE. SSA STACK USED 
9657 
9658 INHIB ON 
013400 9659 UNWIRE NULL 
013400 600012 7563 56 O00 9660 STQ @«SSAr IDs P.SSA SAVE ABORT CODE 
013401 600012 7403 56 O00 9661 STXO oSSAs+ IDs P.SSA SAVE RETURN ADDRESS 
013402 100001 2353 14 O00 9662 LDA eWEPRV54,P.108 GET ANY BIT 
C13403 040000 3152 07 O00 9663 CANA oF FDOCWSDL IS HOLD DCW IN DCW SEGMENT 
013404 013420 6002 00 010 9664 TZE UNW1 NO » NORMAL 1/0 REQUEST 
€13405 100007 2203 14 O00 9665 LDxO aWEOFF,4.P. 100 GET DCW ADDRESS 
013406 0713420 6002 00 010 9666 TZE UNW1 IS ZERO» DCW NOT HOLD YET 
013407 006204 4706 07 O00 9667 LOP POsSD.PSHsDL 
013410 000034 6707 00 O00 9668 LOD POsPH.DChsePO GET DCW DESCRIPTOR 
013411 777777 2352 03 000 9669 LDA -1,0U SET OCW WORD TO FREE 
013412 000000 7553 10 O00 9670 STA O-C-PC 
C13413 100001 7203 14 O00 9671 LXLO aWEPRVs4 oP. 108 
013414 0901000 3002 03 O00 9672 CANXO oF FOD2,0U 
013415 013420 6002 00 010 9673 TZE UNW1 
013416 100007 7203 14 O00 9674 LXLO »WEOFFs4 oP. 108 GET SECOND DCW ADDRESS 
013417 oO00000 7553 10 O00 9675 STA O0-0,-PC SET DCW FREE 
9676 * 
013420 9677 UNW1 NULL 
9678 
013420 9679 2» SHUT @CRQGTsorF.CR SHUT I/0 QUEUE GATE 
013423. 9680 2ULINK UN-LINK I/0 ENTRY 
013423 012644 7002 00 010 TSXO UL INK 
013424 9681 «OPEN @CRGG Tor F.CR OPEN GATE 
9682 
C13426 600012 2203 54 O00 9683 LDXO -SSAeDI s+ P.SSA RESTORE RETURN ADDRESS 
013427 600012 2363 54 O00 9684 LDQ oSSAs DI F.SSA RESTORE ABORT CODE 
2 9685 * 
013430 9686 UWRET NULL 


1245T 02 12-27-79 | 09.357 H6600J7.002 1/0 SUPERVISOR 79172191080 PAGE 245 
SUBROUTINE UNWIRE 


013430 000000 7102 10 O00 9687 TRA 0-0 RETURN 
9688 INHIB OFF 


1245T O2 


12-27-79 09.357 
013431 
013431 000000 6200 00 000 
013432 000000 6350 02 000 
013433 000000011007 000 
013434 000001 6200 10 000 
013435 000001 7350 00 000 
013436 013434 6054 00 010 
013437 000000 6000 11 000 
013440 013444 3160 10 010 
013441 013434 6000 00 010 
013442 000215 2360 07 O00 
013443 005373 7100 00 010 
012437 
2000C3 
| 013444 
013444 777777777777 000 
013445 412477200003 000 
013446 412437200003 000 
013447 412437200003 000 
C13450 412437200003 000 
013451 777777777777 000 
013452 413437200003 000 
013453 777777777777 000 


H6600J7.002 1/0 SUPERVISOR 79121910580 PAGE 
SUBROUTINE IOCBCK 
9690 * 
9691 * 
9692 x 
9693 * 
9694 SUBROUTINE ICCBCK 
9695 
9696 FUNCTION. TO CHECK COMMAND BLOCK DESCRIPTOR AND ANY 
9697 INFORMATION. | 
9698 (CALLED BY CALLIO PROCESSOR) 
9699 
9700 INPUT. x1 RETURN ADDRESS 
9701 XG 1/0 ENTRY ADDRESS 
9702 ODR1 P.IOQ 
9703 X3 oFEPRV 
9704 OUTPUT X0/A/Q DESTROYED 
9705 
9706 NOTE. COMMAND BLOCK ILLEGAL = ABORT 
9707 DESCRIPTOR TYPE ILLEGAL 
9708 SIZE ILLEGAL 
9709 PERMISSION ILLEGAL 
9710 @IWCBT BIT CONFIGURATION ILLEGAL 
9711 
9712 
9713 * 
9714 IOCBCK NULL 
9715 EAXO 0 
9716 EAA 0-QU 
9717 x 
9718 CKAGN EEAXO 1-0 BUMP INDEX 
9719 ALS 1 TEST NEXT BIT 
9720 TPNZ CKAGN NOT ON 
9721 TZE 0,1 THATS ALL FOLKS 
9722 CANQ IBSTB.0 TEST BIT CONFIGURATION 
9723 TZE CK AGN VALID 
9724 IBCNF LDQ woAC215e/DL K14 - INVALID IOCB FLAGS. 
9725 TRA INA8Q ABORT 
9726 
9727 URBST SET eT FRSIF LI FSRL ELI FRS2+ LT FRS SHI EFRSGH+CIFRSS+.1 FRS6421 FRS7 
9728 LRBST SET oI FRSB+,.IFRSC+ LI FL2T 
9729 
9730 IBSTB NULL 
9731 VFD 18/-1418/-1 alfTyp 
9732 VFD 1B/ITFTY P+. LE CNStURBST/18/LRBST ~IFCMD 
9733 CTLMSK VFD 18/1 FTYPFURBSTs 18/LRBST IF DD1 
9734 VFD 1B/.TFTYPHURBST»18/LRBST oI FDD2 
9735 VFD 18/01 FIYPFURBST»18/LRBST a~IFODC 
9736 VFD 18/-1218/~1 2 IFRS1 
9737 VFD 1E/TFTYF+. IF RODF+URBST+»18/LRBST elFRLC 
9738 VFD 18/-1,18/~1 alFSRL 
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10802060 


10802070 
CALL &2 80 


CALL 8285 
CALL &290 


CALL &295 


CALL &300 
CALL 8305 


CALL&310 
.EL8. 


CALL &320 


29Fw1020 


10$02210 


4245T C2 12-27-79 


013454 
013455 
013456 
013457 
013460 


013461 
013462 
013463 
013464 
013465 


C134 66 
013467 
0713470 
013471 
013472 
C13473 
013474 
013475 
C13476 
013477 
C13500 
013501 
C13502 
C13503 


C13504 
013505 
C13506 
013507 


416437200003 


777777777777 
412437200403 
412437 200003 
612437200163 


T7T777TC77777 
T7777 7 C7777 
T77TT7PTT ITT? 
777777 IAT? 
77777777777 


412437200003 
T7777 A 
412437240003 
412437300003 
412437214003 
412437224003 
412437230003 
412437200003 
412437200003 
412637200003 
412437200143 
412477200243 


412477200303 


412477200003 


412777634123 
777777777777 
T7777777 7777 
V7 777777777 


09.357 


H6600J 


9739 
9740 
9741 
9742 
9743 
9744 
9745 
9746 
9747 
9748 
9749 
9750 
9751 
9752 
9753 
9754 
9755 
9756 
9757 
9758 
9759 
9760 
9761 
9762 
9763 
9764 
9765 
9766 
9767 
9768 
9769 


72002 1/0 


SUBROUTINE 


VFD 
VFD 
VFD 
VFD 
VFD 


VED 
VFO 
VFD 
VFD 
VFD 


VFD 
VFD 
VFD 
VFO 
VFD 
VFD 
VFD 
VFD 
VFD 
VFD 
VFOD 
VFD 
VFD 
VFD 
VFD 
EEC 
VFD 
VFD 
VFD 


SUPERVISOR 79121910S0 


IOCBCK 


1B/IFTYF+. IFRLC+HURBST 4 18/LRBST 
18/-1418/-1 

18/21 FTYFtURBSTs18/. 1 FAUX+LRBST 
18/1 FTYPHURBSTA»A18/LRBST 


PAGE 


wl FROD 
ol FRS2 
wo T FOCW 
2 IFSPC 


TE/.TFTY Pt, TF CMDtURBST 4618/1 FPAT+. I FONM+ IT FPCDFLRBST 


18/-1418/-1 
18/-118/-1 
18/-1418/-1 
18/-1.18/-1 
18/-1418/-1 


18/1 FTYP+URBST/18/LRBST 

18/=118/=1 

18/1 FTYPFURBST» 18/41 FLKS+LRBST 

18/1 FTYP+URBSTs18/,1 FLKF+LRBST 
1B/.LFETYPHURBST» 18/1 FSYT+e1FTADtLRBST 
IB/.IFTYPFURBSTs18/, 1 FGPRHaIFTADtLRBST 
18/1 FTYFFAURBST418/.1FGPREe I FSYT#LRBST 
1B/.1FTYP4URBSTs18/LRBST 

18/1 FTYP4URBST»18/LRBST 

18/1 FTYP4+, LE DCWHURBST,»18/LRBST 
1B/.TFTYP+URBSTo18/, 1 FPAT+.I FDNM4LRBST 


TE/TFTYFHL IF CNS+URBST418/,1FSCT+. 1 FONM+LRBST 
1E/ IT FTYP+. ITF CNStURBSTA»18/,1FPAT#. 1 FSC T+LRBST 


18/1 FTYP4. TF CNStURBST»18/LRBST 
18/1 FTYP+ IE CNS +. IFDCWH I FSPC+URBST, 


TE/ IT FGPREIFSYT+ I FTADF+. I FIOE +. IFPAT+.1 FPCOFLRBST 


18/=-1418/-1 
138/-1.418/-1 
18/-1418/-1 


oT FCNS 
al FRS3 
wa lFRS4 
2 TFRSS 
al FRS6 
al FRS7 


«IT FIOE 


oT FLKE 
wT FLKS 
«I FGPR 
2lFSYT 
oT FTAD 
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«IT FNAB 
ol FAUX 
ol FSCT 
a TFPAT 
el FDONM 
a TFPCD 
a lFRSI 


a IFRSA 
«oT FRSB 
aI FRSC 


®@ 
e 
97245T C2 12-27-79 09.357 H6600J7.002 I/O SUPERVISOR 7912191 0S0 PAGE 248 
EP #34 LKBYTE=SHARED ACCESS MPC LOCK BYTE REQUESTS ° 
9771 * @ 
9772 x INPUT REGISTERS 
9773 * A-REG BITS O-1 =1,L0CK 
9774 * =2 UNLOCK e] 
9775 * BIT 2 =1,/WAIT UNTIL LOCKED 
9776 * BIT 3 =1,ACCESS SECONDARY MPC 
9777 * BITS 4-8 UNDEFINED @ 
9778 * BITS 9-17 LOCK BYTE NUMBER 
9779 x BITS 18-20 CALLER ID 
9780 * =Q-ALLOCATION MODULES» GEPR @ 
9781 * =1-FMS 
9782 * =2-SYSTEM SCHEDULER 
9783 * =3-GEOT ) 
9784 x =4-LOCK BYTE ABSOLUTE 
9785 *- BIT 21 =1, VIRTUAL LOCK BYTE CLEAR 
9786 * BIT 22 UNDEFINED e 
9787 * BITS 23-33 SECONDARY SCT (ALC MODULES +/GEPR/HEALS) 
9788 * BITS 34-35 UNDEFINED 
9789 * | | @ 
9790 * ODR2 COMMAND BLOCK DESCRIPTOR 
9791 * ODR4 ENTRY DESCRIPTIR FOR COURTESY CALL 
9792 x @ 
9793 * ROUTINE RETURNS 
9794 * Q-REG BITS 30-35 =01 INVALID PARAMETER(S) 
9795 x =02 L/B 1/0 TEMPORARILY STOPPED & 
9796 * 
9797 * CALLING SEQUENCE 
9798 x eCALL .MI0S +34 @ 
9799 x TRA DENIAL 
9800 * (GOOD RETURN) 
9801 * @ 
000002 9802 P.STAT SET 2 1/0 COMMAND BLOCK DESCRIPTOR 
000004 9803 P.CC SET 4 ENTRY DESCRIPTOR FOR COURTESY CALL 
ooo00cs 9804 P.KL SET 5 KL SEGMENT DESCRIPTOR @ 
ooocoa 9805 ALCGPR BOOL oooo0oc ALLOCATION AND GEPR 
100000 9806 FMS BOOL 10000C FILE MANAGEMENT SUPERVISOR 
200000 9807 SSCHED BOOL 200000 SYSTEM SCHEDULER @ 
300000 9808 GEOT BOOL 300000 GEOT 
4000C0 9809 ABSLB BOOL 40000C LOCK BYTE ABS RATHER THAN VIRTUAL 
600000 9810 LOKUNL BOOL 60000C LOCK/UNLOCK PARAMETER @ 
7000C0 9811 CALLID BOOL 700C0C CALLER ID 
000377 9812 BYTENO BOOL 000377 LOCK BYTE NUMBER 
200000 9813 LOCK BOOL 200000 USER WANTS TO LOCK & 
4000C0 9814 UNLK BOOL 40000C USER WANTS TC UNLOCK 
1000C0 9815 WATE BOOL 100000 USER WANTS TO WAIT 
040000 9816 SCNDRY BOOL 040000 SECONDARY CONTROLLER @ 
: 040000 9817 VCLEAR BOOL 04000Cc VIRTUAL LOCK BYTE CLEAR 
013510 340000400001 000 9818 CWLB OCT 34000C400001 CONDITIONAL WRITE LOCK BYTE CMD 
013511 140000400001 000 9819 wLB OCT 140C0C400001 WRITE LOCK BYE.CMD & 
9820 * ZERO MAX VIRTUAL L/BsTRUE ORIGIN 
e 
& 


1245T 02 


lee eae 9 
013512 000040 
C13513 000041 
013514 000017 
C13515 000000 
013516 600214 
013517 200004 
C€13520 000000 
013521 700000 
013522 500000 
013523 014035 
013524 000000 
013525 013531 
013526 400000 
013527 013531 
C13530 700463 
013531 000000 
073532 017774 
013533 013354 
013534 013362 
013535 014035 
013536 000000 
C13537 200004 
013540 700000 
013541 000000 
013542 013560 
013543 400000 
C13544 013566 
013545 200004 
013546 000377 
013547 200004 
C13550 700000 
C13551 000003 
013552 013512 
013553 013555 
013554 014035 
013555 013512 
013556 200004 
C13557 013566 
013560 700000 
013561 007700 
C13562 000006 
013563 200004 


09.357 


000237 000 
000000 000 
000042 000 
000074 000 
013516 


2353 00 9000 


7551 00 000 


6200 C5 000 
3600 03 000 


1000 03 900 


6030 00 010 
1000 03 00 
6000 00 010 
1000 03 9000 
6000 00 010 
2351 00 000 
O39 31 
6210 05 000 
3610 03 000 
7000 00 O10 
7000 00 010 
7100 00 010 
0110 00 000 
72071 00 000 
3600 03 9000 
1000 03 000 
6000 00 010 
1000 03 9000 
6000 00 010 
2201 00 000 
3600 03 000 
2351 00 000 
3750 C7 900 
7350 00 000 
1000 01 010 
6000 00 O1C 
6030 00 010 


7210 01 £010 


0471 00 000 
7100 00 010 


7710 00 900 
2551 00 000 


H6600J7.002 


1/0 


9821 LOKTBL ZERO 


9&22 
9823 
9824 
9825 
9826 
9827 
9828 
9829 
9830 
9831 
9832 
9833 
9834 
9 835 
9836 
9837 
9838 


9839. 


9 &40 
9 841 
9842 
9 843 
9844 
9845 
9846 
9847 
9848 
9 &49 
9850 
9&51 
9852 
9853 
9854 
9855 
9856 
9857 
9858 
9859 
9860 
9 861 
9862 
9 863 
9864 
9 865 
9866 
9867 
9 868 
9 &69 
9870 


LKBYTE 


* 


CKSCT 


LOKMAX 


LBBASE 


DVCNO 


ZERO 
ZERO 
ZERO 
NULL 
INHIB 
LDA 
INHIB 
STA 


TRA 
NULL 
LOA 
ANA 
ARL 
ORSA 


S UP ERVIS OR 


322159 
33C 
15,34 
0,60 


ON 


@STEMP+8eeP.5SA 


OFF 


eI WST1e7F.S TAT 


7912191080 PAGE 


EP #34 LKBYTE~SHARED ACCESS MPC LOCK BYTE REQUESTS 


ALLOCATION/GEPR 
FMS 
SYSTEM SCHEDULER 
GEOT 


INPUT PARAMETERS 


SAVE CALLING PARAMS IN STATUS WORDS 


VALIDATE INPUT PARAMETERS 


Or AL 


CALLIC,DU 
=0500C00, du 


INVAL 


ALCGPRsDU 


CKSCT 


ABSLB.DU 


CKSCT 


eCRSSNeoeF.CR 


Os AL 


eFSCT1/0L 


ILPCX 
CKVLS 
INVAL 


oI WST1+eeP.STAT 
CALLICs,DU 
ALCGPRsDU 


DVCNO 


ABSLB.DU 


LOXOK 


»~IWST1s4-F.S TAT 
BYTENCsDU 
eIWST1eeF.STAT 
CALLICe DL 


> 


LOKTBLsAU 


LBBASE 
INVAL 


LOKTBLsAU © 
oIWST1 oo FASTAT 


LOXOK 


0,1 oP CR 
eFOVNCsDL 


6 


eIWST Tos FeSTAT- 


XOC18-20)=CALLER ID 
CALLER ID 


OUT OF LIMITS 


USE MAST CONT SCT FOR 
FMS, SSCHED AND GEOT 


USE MASTER CONTROLLER SCT 


SCT ADDRESS. 

X1=SCT ADDRESS 
CALCULATE LPCX (X2) 
CHECK FOR VALID SCT 
BAD 


RELOAD PARAMETER 1 (LOWER) 


USE DEVICE NO. FOR ALC/GEPR 
LOCK BYTE ALREADY ABS 
VIRTUAL LOCK BYTE NUMBER 


CALLER ID 

POSITION 

VALIDATE 

OK 

BYTE NUMBER INVALID 

GET TRUE LOCK BYTE ORG 

A~REG IN STATUS WORD 1 
HAS TRUE LOCK BYTE 


SCT WORD 1 

DEVICE NUMBER 

POSITION 

VIRTUAL LOCK BYTE COMPUTED 
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1245T OQ2 


T2= 27°79 
013564 000000 
013565 013547 
€13566 200004 
013567 600000 
013570 014035 
013571 600000 
013572 014035 
013573 012477 
013574 000000 
€13575 000000 
013576 000000 
013577 013573 
C13600 006013 
C13601 001761 
013602 100014 
C13603 0900000 
013604 014041 
013605 014040 
013606 100016 
C13607 200004 
013610 000004 
013611 100004 
013612 400000 
013613 013616 
0136714 01713510 
013615 013621 
C13616 9000200 
013617 100004 
C13620 013511 
013621 100006 
013622 100011 
C13623 000012 
C13624 100007 
013625 000013 
013626 100012 
013627 100012 
C13630 100000 
013631 013633 
013632 100022 


09.357 H6 600372002 1/0 SUPERVISOR 7912191050 PAGE 


EP #34 LKBYTE-SHARED ACCESS MPC LOCK BYTE REQUESTS 


6200 01 O00 9871 EAXO O- AU 
7100 00 010 9872 TRA LOKMAX=3 
013566 9873 LOXOK NULL 
2351 00 O00 9874 LDA eo IWST1+eF.STAT TEST LOCK/UNLOCK CODE 
3750 03 000 9875 ANA LOKUNLsDU 
6000 00 010 9876 TZE INVAL NONE SPECIFIED—ERROR 
6750 03 O00 9877 ERA =0600000.,bduU 
6000 00 010 9878 TZE INVAL BOTH SPECIFIED=ERROR 
9879 * 
9880 * ALL PARAWETERS HAVE BEEN VALIDATED 
9881 * INPUT VIRTUAL LOCK BYTE NOW ABSOLUTE 
9882 * LOCK BYTE COMPUTED FOR ALLOCATION/GEPR 
9883 x 
013573 9884 GETAQ NULL 
013573 9885 eQUEUE 
7000 00 010 TSXO QUEUE 
9886 * 
0240 03. 000 9887 ADLX4 0,DU 
0110 00 O00 9888 NOP PREVENT LOCKUP 
0110 00 O00 9889 NOP 
6000 00 010 9890 TZE GETAQ TRY AGAIN 
4714 07 000 9891 LDP P.~10Q,SD.10Qe4 DL 
4714 07 Q00 9892 LOP P,TOQs.CTYPsDL 
0525 14 000 9893 STD PeSTATs.hEI CB s4eP,108 
6210 14 000 9894 EAX1 oWEST #4 
7410 00 010 9895 STX1 VECDAT+1 
6754 00 010 9896 LOD PS/VECDAT 
0555 14 000 9897 STD PS eWEDRI44-P.10Q 
2211 00 000 9898 LDX1 eI WST1+eP.STAT A~REG UPPER 
2350 07 O00 9899 LDA oF CCMNMsDL CCA OFFSET/PAY CC 
2551 14 O00C 9900 ORSA eWESCT#4 oP. 100 MASTER MODE 
3010 03 O00 9901 CANX1 UNLKs DU 
6010 00 010 9902 TN2 UNLOCK USER WANTS TO UNLOCK 
2350 00 010 9903 LDA CWLB CONDITIONAL WRITE LOCK BYTE CMD 
7100 00 010 9904 TRA STOCMC GO PUT IT AWAY 
013616 9905 UNLOCK NULL 
2350 07 O00 9906 LDA eo FNABTSDL DO NOT ABORT THIS I/0 
2551 14 Q00 9907 ORSA eWESCTA44P.100 
2350 00 O10 9908 LDA WLB UNCONDITIONAL WRITE LOCK BYTE CMD 
013621 9909 STOCMD NULL 
7551 14 O00 9910 STA »WEICMs4 oP. 100 
7551 14 O00 9911 STA oWEFCMo4 oP. 10Q 
2350 03 O00 9912 LOA eWEFDCsDL DCW POINTER 
7551 14 Q00 9913 STA oWECFFs4 oP, 10 
6350 00 000 9914 EAA eWEIOS 
7551 14 O00 9915 STA eWEFDC+4 oP. 108 SET DCW IN I/0 ENTRY 
0541 14 000 9916 AOS eWEFDC+44P.I100 
3010 03 O00 9917 CANX1 WATEs DU IGNORE COURTESY CALL ADDRESS 
6070 00 010 9918 TNZ *+2 IF USER WANTS TO WAIT 
0545 14 000 9919 STD P.CCeo WEIOE +4 oP. 100 


250 


LOSO4AAM 
IOSO4AAM 
1OSO4AAM 
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013633 
013634 
013635 
013636 
013637 
013640 
013641 
013642 


C13643 
013644 
013645 
013646 
013647 
013650 
013651 
013652 
013653 
013654 
013655 


013656 
013657 
013660 
013661 
013662 
013663 
013664 
013665 
013666 
013667 
013670 


013671 
013672 
013673 


013674 
013675 
013676 
C13677 


013700 
013701 
C13702 
013703 


013704 
C13705 
013706 


200004 
400000 
013643 
000000 
700463 
000000 
000002 
100013 


000377 
000012 
100013 
200004 
700000 
100000 
013654 
200000 
013656 
700463 
013660 


701402 
777774 
017774 
100004 
700001 
000374 
200004 
040000 
913704 
700410 
000004 


014100 
700000 
013700 


000001 
014034 
000001 
013671 


700000 
000374 
013674 
000000 


000000 
400000 
100013 


09.357 


21171 11. O00 
6010 00 010 
013674 
1200 03 000 
6000 00 010 
0210 03 9000 
7100 00 010 
013700 
2361 11 900 
3760 03 000 
6000 00 9010 
6350 02 000 
013704 
6200 01 000 
2690 03 O00 
4401 14 000 


9920 
9921 
9922 
9923 
9924 
9925 
9926 
9927 
9928 
9929 
9930 
9931 
9932 
9933 
9934 
9935 
9936 
9937 
9938 
9939 
9940 
9941 
9942 
9943 
9944 
9945 
9946 
9947 
9948 
9949 
9950 
9951 
9952 
9953 
9954 
9955 
9956 
9957 
9958 
9959 
9960 
9961 
9962 
9963 
9964 
9965 
9966 
9967 
9968 
9969 


H6600J7.002 


INSBYT 


INSSCT 


CMPMPC 


NX TONE 


SECOND 


MPCX 


1/0 


LDA 
CANA 
TNZ 
EAQ 
ORQ 
EAQ 
Q@Ls 
STQ 
NULL 
ANA 
ALS 
ORSA 
LXLO 
ANXO 
CMPXO 
TZE 
CMPXO 
TNZ 
LXLO 
TRA 
NULL 
LXLO 
EAXO 
ANXO 
ORSXO 
LDA 
ANA 
LOXxO 
CANXO 
TZE 
EAX1 
LOXxO0 
NULL 
LDQ 
CMK 
TNZ 
NULL 
SBLXO 
TZE 
ADLX1 
TRA 
NULL 
LDQ 
ANQ 
TZE 
EAA 
NULL 
EAXO 
ORXO 
SXLO 


S UP ERVIS OR 


oIWST1seF.STAT 
UNL Ks CU 

INSBYT 

076 

eC RSSNoe F.CR 
0, QU 

2 
eWEIONOS 44 oP. 108 


BYTENCsDL 

10 
»WETOS44 oP. 10Q 
CALLICDADU 

FMS /DU 
INSSCT=-2 
SSCHEDsDU 
INSSCT 
eCRSSNoo PLCR 
INSSCT+2 


@CRCT2426P,CR 
-4,0 

oF SCT1-0U 
eWESCT246P.108 
120P.CR 

=0374 DU 
oIWST1e-F.STAT 
SCNORYsDU 

MP CX 
»CRCSTs#*AUsP.CR 
4&4DU 


=0777403777777 
OveteP.CR 
SECOND 


1,0U 
KILL®Q 
1.DU 
CMPMPC 


O1P.CR 
2037400 
NX TONE 
0/4QU 


O» AU 
eFBTOs4DU 
aWEIOS*%4,P, 100 


7912191 0S0 PAGE 251 


EP #34 LKBYTE=SHARED ACCESS MPC LOCK BYTE REQUESTS 


KPX 

SYSTEM ID 

THROW AWAY LOWER HALF 

FORMAT IT FOR THE MPC FIRMWARE 
STORE IN ENTRY 


BINARY FORMAT FOR THE MPC FIRMWARE 


CALLER ID 
USE MASTER CONTROLLER SCT 


USE SUBSYSTEM SCT 
USE SCT FOR MASTER CONTROLLER 
GO PuT IT AWAY 


SCT FOR THE FIRST CEVICE 
BACK OFF TO THE CONTROLLER 


INSERT CONTROLLER SCT IN Q 
CONTROLLER SCT 
PRIMARY CONTROLLER NO. 


DOES USER WANT SECONDARY 
PRIMARY CONTROLLER 

USER WANTS SECONDARY CONTROLLER 
ITERATION COUNT 


THERE IS NO SECONDARY CONT 
TRY IT AGAIN 


SECONDARY CONTROLLER NO, 
LOOK AT NEXT PSIA XBAR 


MPC NUMBER 
PRESELECTED MPC FLAG 
SAVE IN ENTRY 


1245T 02 


12-27-79 
C13707 200004 
013710 200000 
013711 013752 
013712 006133 
013713 500115 
013714 013752 
013715 100013 
013716 000374 
013717 000026 
013720 000000 
013721 500115 
013722 100013 
013723 776000 
013724 000014 
013725 600214 
013726 600214 
013727 000000 
013730 9000020 
013731 377000 
013732 000001 
C13733 6013736 
013734 9000011 
013735. 013732 
013736 700000 
013737 013752 
013740 200004 
013741 100000 
C13742 013750 
013743 701000 
013744 702000 
013745 703000 
013746 704000 
013747 013736 
013750 530402 
013751 014026 
013752 200004 
013753 700000 
013754 900000 
013755 013764 
013756 400000 


09.357 


2351 00 900 
3150 03 000 
6000 00 010 
4754 07 000 
2341 00 000 
6000 00 010 
2351 14 0900 
3750 07 9000 
7350 00 9000 
6200 01. 000 
0201 00 000 
2351 14 000 
3750 03 000 
7710 00 O00 


7553 00 000 
0203 00 9000 


6350 05 000 
7710 00 000 
2360 03 O00 
1350 03 000 
6040 00 010 
7720 00 000 
7100 00 010 
013736. 
3761 10 9000 
6000 00 010 
2351 00 000 
3150 03 000 
6000 00 0170 
3761 10 000 
3761 10 000 
3761 10 000 
3761 10 Q00 
7100 00 010 
013750 
2350 03 000 
7100 00 010 


013752 


2351 00 000 


3750 07 O00 
1150 07 000 
6000 00 010 
1150 07 000 


9970 
9971 
9972 
9973 
9974 
9975 
9976 
9977 
9978 
9979 
9980 
9981 
9982 
9983 
9984 
9985 
9986 
9987 
9988 
9989 
9990 
9994 
9992 
9993 
9994 


9995 


9996 

9997 

9998 

9999 
10000 
10001 
10002 
10003 
10004 
10005 
10006 
10007 
10008 
10009 
10010 
10011 
10012 
10013 
10014 
10015 
10016 
10017 
10018 
10019 


EP 


H6600J7.002 


+ + + & 


TSTBYT 


1/0 


S UPERVIS OR 


7912191080 PAGE 


#34 LKBYTE=SHARED ACCESS MPC LOCK BYTE REQUESTS 


I/0 QUEUE NOW CONSTRUCTED 
SEE IF IT WILL REALLY FIRE 


eI WSTTooP.STAT 
LOCKs OU 

QBILT 
P.KLoSD.KLs DL 
eKLLBTseP.KL 
QBILT 
eWEIOS 4 oP. 108 
=0374,0L 

4+18 

Os AU 

eKLLBToe F.KL 
»@WEIOS44 oP. 108 
=0776000,DdU 
10+2 

ON 
»STEMP4+8oeP.SSA 


oSTEMP4+8 oP. SSA : 


OFF 

Ov AL 

16 
=0377000 DU 
14DU 
TSTBYT 

9 

x—3 


O-0eP.CR 

QBILT 
eIWST1s+4P.STAT 
WATE, DU 

$5304 
512-0eP.CR 
102440,P.CR 
15360/P.CR 
20484C-P.CR 
TSTBYT 


=0530402 -DdU 
FAKEIT+1 


eI WST1eeF.STAT 
CALLIDsDL 
ALCGPR»eDL 
TSTSHR 
ABSLB-,DL 


WAS THIS A LOCK REQUEST 
NO 


NO LOCK BYTE TABLE IMAGES 


MPC # 

TIMES 64 THEN INTO A-UPPER 

TRANSFER TO XO 

BEGINNING OF LOCK BYTE TABLE 
FOR THIS MPC 

LOCK BYTE # 

RELATIVE WORD # 


HOLD TEMPORARILY 

XO NOW HAS ABSOLUTE WORD 
RIGHT JUSTIFY BYTE # 

BYTE CONTENTS MASK 

POSITION FOUND 

POSITION TO REFERENCED BYTE 
FIND OUT WHAT*S THERE 

IT*S PRESENTLY UNLCCKED 


DOES USER WANT TO WAIT 
NO 


CACHE COLUMN CLEARED 


GENERATE BYTE LOCKED 
OUT STATUS 


GET CALLER ID 


SHIP ALC/GPR ONLY IF SHRD DEV 
UNCONDITIONALLY SHIP 
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12-27-79 09.357 H6600U7.002 1/0 S UP ERV IS OR 7912191080 PAGE 
EP #34 LKBYTE=SHARED ACCESS MPC LOCK BYTE REQUESTS 
C13757 013771 6000 00 010 10020 TZE SHIFIT ABS. LOCK BYTE I/O 
013760 700521 2351 00 O00 10021 LDA »CRFIGs+eP.CR SHIP THE REST IF WE ARE RUNNING 
013761 100000 3150 03 O00 10022 CANA eFSENVADU IN A SHARED ENVIRONMENT 
013762 013771 6010 00 010 10023 TNZ SHIPIT 
C13763 014025 7100 00 010 10024 TRA FAKEIT 
013764 10025 TSTSHR NULL 
013764 200004 7201 00 000 10026 . LXLO eI WST1+eP.STAT 
013765 017774 3600 03 O00 10027 ANXO oF SCT140U 
C13766 000010 2350 03 000 10028 LDA eFNASTs*DU 
013767 700000 3151 10 000 10029 CANA O-0eP.CR SEE IF DEVICE IS SHARED 
013770 014025 6000 00 010 10030 TZE FAKEIT NO 
013771 10031 SHIPIT NULL 
013771 200004 2201 00 000 10032 LDOXO eI WST1oeP.STAT 
013772 400000 3000 03 O00 10033 CANXO UNLK»s CU IS THIS UNLOCK REQUEST 
013773 014002 6010 00 010 10034 TNZ LINKIT YES 
10035 INHIB ON 
013774 10036 2 SHUT eCRSCTs#-P.CR 
013777 600010 0543 00 000 10037 ACS eSPASSaeF.SSA REFLECT OUTSTANDINE LOCK 
014000 10038 «OPEN eCRSC Toe P.CR 
10039 INHIB. OFF 
014002 10040 LINKIT NULL 
014002 200004 2211 00 000 10041 0x1 oIWST1eeF.STAT 
014003 200004 7231 00 000 10042 LXL3 eI WST1e4P.STAT 
10043 * oa LINK LINK IT UP 
C14004 014006 6360 00 010 10044 EAQ x+2 SET RETURN 
C14005 004024 7100 00 010 10045 TRA LINK LINK 1/0 
10046 * 
074006 100000 3010 03 O00 10047 CANX1 WATE.» DU 
C714007 014013 6010 00 010 10048 TNZ GTSAT 
014010 10049 ALLDUN NULL 
014010 10050 aEXIT 1 SUCCESSFUL EXIT BACK TO USER 
INHI8 SAVEsCON 
C14010 000002 6306 04 14012 EPPRO *4+24% 
014011 700006 7103 900 9000 TRA eCREXTseF.CR 
C14012 000000 000001 000 ZERO eRGot 
INHI8 RESTORE 
014013 10051 GTSAT NULL 
014013 200004 2351 00 000 10052 LDA eIWST1+eF.STAT GET THE STATUS 
014014 014020 6040 00 010 10053 TMI CMPLTD IT*S DONE 
014015 10054 eARELC WAIT FOR IT 
014015 @CALLX .MDISFs4.N 
INHIB SAVEsCN 
014015 ICLIMB SD.wSVXee.MDISP*644+4,EAX0 
014015 005704713400 000 VFO T38/.MDISP#644+4,09/71341/101/001/026/M. 
014016 000000606122 000 VFD TIO e900 Fe B/D oT Nol /.0e21/022/0012/8D.SVX 
INHIB RESTORE 
014017 0714013 7100 00 010 10055 TRA GTSAT TRY AGAIN 
014020 10056 CMPLTD NULL 
C14020 014101 3750 00 010 10057 ANA =0370000770000 CHECK STATUS 
014021 014010 6000 00 010 10058 TZE ALLDUN CHANNEL READY 
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ANON2090 


10$05360 
10805365 


29FW1070 


‘ 


" 

: @ 
7 

1 

MW 

i 

f 

f 

: & 
1 

' 

| & 
fi 

| € 
i 
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014022 
0140 23 
014024 


014025 
014026 
C14027 
C14030 
014031 
014032 
C14033 


014034 


014035 
0140 36 
014037 
C14040 
C140414 


L2=27=79 


09.357 


200004 7411 OO 
200004 4431 00 
013573 7100 00 


400002 2350 03 
100013 2361 14 
776000 3760 03 
000030 7720 00 
100012 2761 14 
003036 7000 Q0 
014010 7100 00 


100000 4501 14 


000001 2360 07 
012374 7100 00 
000000011007 
000025750640 
000000006013 


000 
000 
010 


H6600J7.002 


10059 
10060 
10061 
10062 
10063 
10064 
10065 
10066 
10067 
10068 
10069 
10070 
10071 
10072 
10073 
10074 


10075 


STX1 
SXL3 
TRA 
FAKEIT NULL 
LDA 
LDQ 
ANQ 
QRL 
ORQ 
TSXO 
TRA 
KILLQ@ NULL 
STZ 
INVAL NULL 
LDQ 
TRA 


VECDATEVEC 


1/0 


S UP ERV IS 


EP #34 LKEYTE-SHARED ACCESS MPC 


eIWST lee PeSTAT 
eIWST1eeF.STAT 
GETAQ 


=0400C02,DdU 
»WEIOSs4 oP. I0Q 
=0776C000.,DU 

24 

»WEEP 2.4 oP, 108 
STRET 

ALLDUN 


~WESTs»4,P.108 


1/DL 
RLXIT 


OR 7912191080 PAGE 


LOCK BYTE REQUESTS 


RETRY THE 1/0 

CHANNEL READY» INITIATE 
LOCK BYTE NO. 

POSITION TO BITS 24-31 
REFLECT IN STATUS WORD #2 
RETURN STATUS TO USER 
MARK QUEUE OPEN 


INVALID PARAMETERCS) 
EXIT 


SD.IOQs.WEST».LIOES» (RoW) 
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10806460 


€18. 
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014042 
014043 
014044 
C14045 
014046 
C14047 
C14050 
014051 
014052 
014053 
C14054 
014055 
014056 
014057 
014060 
C14061 
C14062 
C14063 
C140 64 
C14065 
014066 
014067 
014070 
014071 
014072 
014073 
C140 74 
C14075 
C140 76 
C14077 
C14100 
014101 


400077777777 
377700770000 
200000770000 
377777770000 
770000770077 
310000 240002 
653124254617 
340000000002 
200000000020 
007774377777 
330000040002 
230000040001 
202020202020 
130000040002 
030000040001 
000005 770000 
377763777777 
774000777777 
007777000077 
7700007700 76 
770000000077 
770000777777 
000077777700 
000077700000 
900077777770 
340000720000 
777777777700 
777777770000 
000777777000 
777777337777 
777403777777 
370000770000 


09.357 


000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 


000 


000 
000 
000 
000 
000 
000 
000 
000 
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10077 
10078 
10079 


00 


000 
000 
000 
000 
000 
00C 
000 
00C 
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CON S TANTS 


LIT 


7912191080 


PAGE 
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H6600J37.002 1/0 SUPERVISOR 7912191080 PAGE 256 
PATCH AREA 
10081 
10082 
014102 014102 0000 00 010 10083 PATCH ARG PATCH RDSP2760 
014103 10084 DUP 2420 RDSP2770 
10085 
10086 ISERH /LOGH /##eREREKPATCHAAA RA REAR ER KKH /—-——=—COMMENTS= 
10087 / / /XFR.FROM CONTENTS / 
C14103 000000 O000C0 000 10089 ZERO / / / OCTAL / 
10089 : ‘ ‘ 
(14104 000000 000000 000 ZERO / / / OCTAL / 
10089 - js 
C14105 000000 co0000 000 ZERO / / / OCTAL / 
10089 . : 7 ‘ 
(14106 000000 000000 000 ZERO / / / OCTAL / 
10089 : . : : 
C14107 000000 coD00Cc 000 ZERO / / / OCTAL / 
10089 ‘ ; a ‘ 
014110 000000 000000 000 ZERO / / / OCTAL / 
? 10089 . . i 
(14111 000000 coo000c 000 ZERO / / / OCTAL / 
, 10089 a ‘ é r 
014112 000000 000000 x00 ZERO / / / OCTAL / 
| 10089 ‘ “ 7 i 
C14113 000000 000000 #900 ZERO / / / OCTAL / 
10089 ‘ . ‘ * 
014114 000000 000000 000 ZERO / / / OCTAL / 
10089 : : ‘ ‘ 
C14115 000000 000000 000 ZERO / / / OCTAL / 
014116 000000 000000 000 ZERO / / / OCTAL / 
10089 ‘ s : 
014117 000000 c00000 000 ZERO / / / OCTAL / 
10089 ‘ s F ‘ 
014120 000000 000000 000 ZERO / / / OCTAL / 
10089 . : ‘ ‘ 
C14121 000000 000000 #000 ZERO / / / OCTAL / 
10089 : : é : 
014122 000000 000000 000 ZERO / 4 / OCTAL / 
10089 ‘ : : ‘ 
C14123 000000 coD00C 000 ZERO / / / OCTAL / 
| 10089 - 2 . : 
014124 000000 000000 000 ZERO / / / OCTAL / 
7 10089 : P ; 
C14125 000000 000000 000 ZERO / / / OCTAL / 
(14126 000000 000000 o00 © ZERO / / / OCTAL / 
10090 * 
10091 * 


@ 
® 
1245T 02 12-27-79 09.357 H6600N7.002 1/0 SUPERVISOR 7912191080 PAGE 257 
e 
ONE-TIME INIT CODE, THEN REGISTER STORAGE 
014127 900001710004 000 @ 
014120 10093 EIGHT 10800190 
014130 10094 REGS BSS 32 10s0C200 
014170 10095 POREG BSS 32 10$00210 @ 
014130 10096 ORG REGS 1osCC220 
014130 000026 000000 000 10097 DELTA ZERO eLIOES 10800230 
014131 000026 On0000 000 10098 ZERO eLIOES 10800240 t ] 
614132 000260 01736 000 10099 ILINK ZERO eLIOE S*8e.LIOES*45 25Fw0260 
001300 10100 .WSSA EQU eLIOE $*32 10S0C260 
000177 10101 .WPAGE EQU 127 10s0C270 @ 
10102 INHIB ON 10S0C280 
014133 700002 2203 00 000 10103 ICHI LDXO eCRCALseF.CR »MODISP SEGID 10800290 
014134 000370 7402 00 010 10104 STXO DISP9 10800300 @ 
014135 001754 7402 00 010 10105 STXO DISPA 10800310 
014136 001762 7402 00 010 10106 STXO DISPB 10800320 
014137 003412 7402 00 010 10107 STXO ENAB2 10800330 e 
014140 004733 7402 00 010 10108 STXO CROD 10S0C340 
014141 006204 4716 07 O00 10109 LOP P1sSD.PSHsDL GET PUSH SKELETON 25FwC280 
014142 005614 0516 00 010 10110 STD P1,DPUSH 25FWO290 r 
014143 000161 3352 07 O00 10111 LCA =0161,DL 777777777617 25FW0300 
014144 005614 3552 00 010 10112 ANSA DPUSH CLEAR WSRH FOR SKELETON 25FW0310 
C14145 006024 4716 07 000 10113 LDP P1/SD.sPID-DL Ioscc3so r 
C14146 100005 7203 00 000 10114 LXLO SerP1 SET .PNPOP WSR 607 10S0C360 
014147 024000 2602 03 000 10115 ORXO 20*512,D0U SIGNATURE 10800370 
C14150 100001 4403 00 000 10116 SXLO Teo PI FOR IHLR USE 10800380 e 
10117 * -10$80C39C 
10118 * ESTABLISH I/0 ENTRY AVAILABLE CHAIN 10800400 
10119 x 10$00410 @ 
614151 006013 4716 07 000 10120 NI LOP P.10Q,/SD.10Q4 DL 10$0C420 
014152 001761 4716 07 O00 10121 LoP P.IOQs.CTYPsDL 10S0C430 
C14153 001764 2352 03 000 10122 LDA 4G6*x.LIOES/DU NEXT LINK POINTER 10800440 & 
(14154 001710 2362 03 000 10123 LDQ 44%. IOES,/DU PRIOR LINK POINTER 10800450 
014155 001456 2202 03 O00 10124 LDXxO 37*. LIOES/DU ENTRY COUNT 25FwC200 
014156 100260 7573 10 ON0 10125 STAQ eWEST4.L I0ES*8,0-P.10Q SET LINKS 25FwC210 & 
014157 014130 1372 00 010 10126 SBLAQ DELTA 10s0C480 
014160 000026 1202 03 000 10127 SBLXO .JLICES,DOU 10s0C490 
014161 777775 6052 04 000 10128 TPL -3,r1 MORE YET rosocsoo @ 
014162 O00000 6202 00 9000 10129 EAXO oO 10SCC510 
014163 100261 7403 00 000 10130 STXO eWEPRV+.LIOES *84 eP.10Q 25FWC230 
014164 101736 7403 00 O00 10131 STXO eWEST+.LIOES* 454 9P.10Q 10$00530 @ 
014165 000100 1006 00 000 10132 MLR (1) ESTABLISH PAGE LINKS 10S0C540 
014166 014132 0000 04 010 10133 ADSC9 ILINK 6004 1080C550 
€14167 100040 0000 60 000 10134 ADSC9 ~WOPENs0448,P.10Q 10800560 & 
014170 014151 2352 00 010 10135 LDA NI 10800570 
014171 012553 7552 00 010 10136 STA GET1 CLOSE ONE-TIME SWITCH 10$0C580 
014172 700271 2203 00 000 10137 LDXC oe CRNPCooF.CR # PROCESSORS 10800590 e 
014173 777777 6202 10 000 10138 EAXO -1,0 -1080C600 
014174 014230 6002 00 010 10139 TZE SAN ONLY ONE 10$0C610 
10140 * 10800620 @ 
10141 * SET UP DUMMY SSA SEGMENT FOR IHLR USE 10800630 
@ 
@ 


-1245T 02 


1es2t= 79 
C14175 901532 
014176 101252 
014177 001252 
014200 101533 
014201 000007 
C14202 100004 
014203 000100 
014204 000000 
014205 101300 
014206 000050 
0714207 101312 
014210 014130 
014211 014131 
014212 000006 
014213 777777 
014214 200060 
014215 101477 
C14216 914131 
014217 000012 
014220 006002 
014221 000014 
014222 100000 
014223 100003 
014224 0906024 
014225 024003 
Ci4226 100001 
C14227 001703 
014230 006063 
014231 100010 
C14232 014130 
014233 000017 
014234 000100 
014235 014130 
C14236 001000 
C14237 100010 
C14240 000000 
0714241 900000 
C14242 09014130 
014243 012553 


(7372 OO 


09.357 


6202 00 
7403 00 
6202 O00 
7403 00 
3352 07 
0553 00 
1006 00 
0000 00 
0011 00 
6352 00 
7553 00 
0516 O00 
2352 00 
7352 00 
atoe 5 
2752 07 
7553 00 
2352 00 
7352 00 
4716 07 
6352 01 
2752 07 
7553 Q0 
4716 07 
6202 00 
4403 00 
4402 00 
4716 07 
4133 00 
7572 QO 
3762 07 


2772 00 
2762 Q3 
0573 00 
1006 00 
0000 ON 
0004 54 
000113 
7102 00 


014250 
014250 


000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
010 
010 
000 
000 
000 
000 
010 
000 
000 
000 
000 
000 
000 
000 
000 
010 
000 
00.0 
010 
000 


000 


0170 
000 
000 
000 
000 
000 


010 


H6600J7.002 


1/0 


S$ UP ERVI S$ OR 


7912191080 PAGE 


ONE-TIME INIT CODE» THEN REGISTER STORAGE 


10142 * 
10143 
10144 
10145 
10146 
10147 
10148 
10149 
10150 
10151 
10152 
10153 
10154 
10155 
10156 
10157 
10158 
10159 
10160 
10161 
10162 
10163 
10164 
10165 
10166 
10167 
10168 
10169 
10170 SAN 
10171 
10172 
10173 
10174 
10175 
10176 
10177 
10178 
10179 
10180 
10181 XXX 
10182 
10183 
10184 
10185 * 
10186 IORG 


EAXO 
STXO 
EAXO 
STXO 
LCA 
ASA 
MLR 
ADSC9 
ADSCY 
EAA 
STA 
STD 
LDA 


39*,LIOES BRIDGE 
aWEST+.LIOES*314,P.10Q DUMMY 
31*,LIOES SSA 


»WEPRV+.LIOES*394e-P.108 


77 DL 


eWEEC Tse FP. I0Q 


0 (1) 


40 


eo SSAF WS SAr oP .10Q 
P,TOQsREGS 


REGS+1 
6 
-1,DU 


SPACE 


REDUCE ENTRY COUNT 
CLEAR SSA IMAGE 


SET STACK TALLY. 
GET SEGMENT DESCRIPTOR 


BASE 


MOD 1024 


oe FBT3C+. FBT31+,FBT1,DL CEL 


oWPAGE+.uSSAs oP. 106 


REGS+1 
10 


P1s4SD.PTDsDL 
14+.WSSA/E4, AU 


3eePi 


P1/SDePIDsDL. 


20*512+3 
Teo Pl 
IHWS 


P14SD.RMSoDL 


»~FBT84DU 
CFGoeF1 


REGS~.210Se 04 XXX #4 


#-REGS 
GET1 
OFF 


REGS+E€4+16 


SET PTW 
RETRIEVE 
MOD 64 
GET PAGE 


BITS 


BASE 


TABLE DIRECTORY SEGMENT 


PAGE TABLE ORIGIN 
CONTROL BIT 


SET wS#3 


PIP 


SET WSR 7 FOR IHLR 


REAL MEMORY DESCRIPTOR 
READ CONGIF SWITCHES 


SAVE IT 


PORT MASK 4~7 


TO AU 4-7 


DISABLE MASK 8B 
ENABLE ALL PROCESSORS 
CLEAR REGISTER STORAGE 


BACK TO MAIN CODE 


10S0C640 
10800650 


10800660 


10so0cé70 
10S0C680 
10800690 
10soc700 
10s0C710 
10S$0C720 
10800730 
10soc740 
10S$00750 


10S0C760 


10$00770 
10800780 


10800790 
—10socsoo 


10800810 
10S00820 


10800830 


10S$00840 
10so08s50 
10S0C860 


. 10800870 


10S00880 
10s00890 


10S0C900 


1OSC4AAW 


ANONC880 


ANONC890 
ANONCIOO 


ANONCIIC 
ANONO920. 


ANONO930 
ANONC940 
ANONO9SO 
ANONO960 
10scog920 
10S0C930 
10800940 
10SQC9SO0 
10800960 
25FWC630 


~—1245T C2 12-27-79 09.357 H6600J7.002 1/0 S UP ERVIS OR 7912191080 PAGE 259 


STATUS RETURN WORDS & DCW INSERT LISTS 


10188 * EACH CONFIGURED PAYLOAD CHANNEL HAS AN EIGHT WORD BLOCK 
10189 * ASSIGNED FROM THIS AREA. CRMB3 OF THE MAILBOX (SCW) 
10190 * POINTS AT THE BEGINNING OF THIS BLOCK WHERE THE 
10191 * TWO STATUS WORDS ARE STORED. FOLLOWING THE STATUS. 
10192 * WORDS ARE FOUR WORDS FOR THE OCW INSERT LIST CEXMB1~4),5 
10193 * FOLLOWED BY A COPY OF CCNNECT CHAN. PCW WDH2 AT EXMBS» 
10194 »* FOLLOWED BY A ONE WORD SEEK ADDRESS DATA WORD AT EXMB6, 
10195 * 
10196 * 

014250 10197 BSS 768 . MAXIMUM SYSTEM WITH 4 IOM*S AND 
10198 * ALL PAYLOAD CHANNELS CONFIGURED 
10199 * 

015650 10200 BSS 64 MAX. SYSTEM WITH PSI CHANNELS CONFIGU 
10201 * ON EACH IOM AND SPECIAL INTERRUPT 
10202 * QUEUES OF 16 WORES EACH 


| 


e 
@ 
1245T C2 12-27-79 09.357 H6600J37.002 1/O SUPERVISOR 7912191080 PAGE 260 
INITIALIZATION OF .MICS ' 
10204 * THIS CODE IS LSEL ONLY DURING START~UP. & 
10205 * THE ROUTINE IS CALLED BY STARTUP VIA A TSX1 .IIOS 
10206 * WHEN THE MODULE HAS BEEN LCADED. 
10207 * @ 
10208 * INPUT REGISTERS 
10209 « X1= TRANSFER 
10210 * ODR3= 10S MODULE SEGMENT DESCRIPTOR (TYPE=1) ® 
10211 * ODR4= 10S MODULE SEGMENT DESCRIPTOR (TYPE=0) 
10212 * ODRS= START-UP MODULE SEGMENT DESCRIPTOR (BASE=0) 
10213 * ODREé= SYSTEM LINKAGE DESCRIPTOR & 
10214 * ODR7= .CR SEGMENT DESCRIPTOR 
10215 * 
10216 * RETURN VIA X1 r 
10217 * AR=ADDRESS OF DEPENDENT MODULES/# ENTRIESCTALLY COUNT) 
10218 * QR=PRCCESS LAST ADDRESS+1 -IN UPPER 
10219 * FIRST AVAILABLE CELL AFTER MODULE IN LOWER € 
10220 * X1 ADDRESS MINUS 11 CONTAINS ADDRESS OF BEGINNING 
10221 * OF TABLE OF ADDRESSES AND THE FOLLOWING WORD IS 
10222 * TO BE STORED INTO THAT ADDRESS == USED TO LOAD ) 
10223 * MAILEOX SCW AND TO ZERO INITIAL DCW AREA 
: 10224 x 
000001 10225 INITSW SET 1 @ 
000000 10226 INITM1 SET 0 
| 10227 
ooo0001 10228 PI.KL SET 1 KL SEGMENT DESCRIPTOR @ 
ocooce 10229 PI.LABS SET 2 REAL MEMORY SEGMENT DESCRIPTOR 
10230 | 
015750 10231 INITM NULL BEGIN 1/0 SUPERVISOR INITIALIZATION 8 
C15750 006063 4724 C7 000 10232 LDP PILABSsSERMS o DL GET REAL ADDRESS DESC. 
015751 016432 6724 00 010 10233 LOD PI.ABS/ABVEC2 CHANGE TYPE 
015752 006133 4714 07 000 10234 LDP PIKE «SD .KL DL GET .KL SEGMENT DESCRIPTOR @ 
015753 016430 0544 00 010 10235 STD P4,DE SCWK 
015754 016431 2350 00 010 10236 LDA DESCWK+1 GET I0S MODULE BASE 
C15755 000020 7350 00 000 10237 ALS 18-2 & 
015756 100113 7551 00 000 10238 STA  @KLIOBs + FILKL SET IOS MODULE BASE 
C15757 016430 0574 00 010 10239 STD P. CRs DES CWK | 
015760 016431 2350 00 010 10240 LDA DESCWK+1 GET .CR SEGMENT BASE @ 
015761 000020 7350 00 000 10241 ALS 18-2 
015762 016425 7550 00 010 10242 STA CRBASE SET .CR BASE 
€15763 000000 6200 01 000 10243 EAXO 0 AU INITIALIZE CONNECT CHANNEL MBX & 
015764 010440 0400 90 010 10244 ASXO INITMB 
015765 016430 2350 00 010 10245 LDA DESCWK 
015766 016626 3750 00 010 10246 ANA =0777777 700000 ISOLATE BOUND e@ 
015767 09001706 5510 60 010 10247 STBA BYPCR +60 SET BP.CR SIZE 10806920 
015770 001672 6350 00 010 10248 EAA EP1RET INTERRUPT HANDLER RETURN ADDRESS 
015771 000013 7550 00 010 10249 STA 22 10S +11 | , @ 
015772 002200 6350 00 010 10250 EAA MAP FOR DNET EL8, 
C15773 000032 7550 00 010 10251 STA 2s 10S +26 EL8. 
C15774 002240 6350 00 010 10252 EAA IMW FOR DNET EL8. & 
015775 000033 7550 00 010 10253 STA «210S8+27 EL8. 
e 
® 


1245T 02 


12-27-79 
C15776 700726 
015777 100140 
C16000 016433 
C16001 016016 
016002 9000002 
016003 000000 
C16004 000000 
C16005 002200 
C16006 900000 
016007 000014 
C16010 000240 
C16011 000676 
C16012 100140 
C16013 506203 
C16014 0007141 
016015 000000 
C16016 000062 
016017 000003 
016020 9002754 
C16021 001672 
016022 000057 
C16023 016035 
016024 701200 
016025 005672 
016026 710200 
C16027 012713 
016030 703200 
016031 004270 
016032 013236 
C16033 011203 
C16034 003051 
016035 000000 
016036 100133 
016037 701007 
016040 900000 
016041 000634 
C16042 000640 
016043 000006 


09.357 


4501 00 000 


2201 00 000 
2350 10 010 
6000 00 010 
7350 00 000 
1004 01 000 
0002 00 000 
0002 00 010 


6350 10 9000 


7350 00 000 
6220 01 000 
7420 00 010 
2351 00 000 
2750 07 9000 
7550 00 010 
6200 01 000 
016016 
2340 00 000 
6010 04 000 
6200 00 010 
7400 00 010 
2340 00 000 
6010 00 010 
2200 03 000 
4400 00 010 
2200 03 000 
4400 00 010 
2200 03 000 
4400 00 010 
4400 00 010 
2200 03 000 
4400 00 010 


2220 03 000 
2241 12 0900 
2351 14 000 
6200 01 000 
7400 12 010 
7400 12 010 
7350 00 000 


H6600J7.002 


10254 « 


10255 
10256 
10257 
10258 
10259 
10260 
10261 
10262 
10263 
10264 
10265 
10266 
10267 
10268 
10269 
10270 
10271 
10272 
10273 
10274 
10275 
10276 
10277 
10278 
10279 
10280 
10281 
10282 
10283 
10284 
10285 
10286 
10287 
10288 
10289 
10290 
10291 
10292 
10293 
10294 
10295 
10296 
10297 
10298 
10299 
10300 
10301 
10302 
10303 


* 


ONEIO 


INMB4 


1/0 


STZ 


LDXO 
LDA 
TZE 
ALS 
MLR 
ADSC9 
ADSC9 
EAA 
ALS 
EAX2 
STX2 
LDA 
ORA 
STA 
EAXO 
NULL 
SZN 
TNZ 
EAXO 
STx0 
SZN 
TN2 
LOXO 
SXLO 
LOXO 
SXLO 
LOXO 
SXLO 
SXLO 
LDXO 
SXLO 


LOXe 
LDX4 


LOA 


EAXO 
STXO 
STXO 
ALS 


S UP ERVIS OR 


INITIALIZATION OF .MICS 


7912191080 


FILE SYSTEM INITIALIZE 


aCRFSXoeP.CR 


SET ZERO*S FOR FILSYS 
IN CASE PROTECTED FILES 
ARE NOT USED THIS SYSTEM 


INTERRUPT HANDLER INITIALIZE 


eKLNICaoe FIL KL 
NMAP=-1,0 
ONEIO 

2 

CoecrAl) 
0,0432%4 

MAP 20432%4 
0,0 

12 

160AU 
GTCHN4 

eKLNI Cor PI. KL 
=0506 203,-DL 
INTCV 

O» AU 


MONOPT 

341C 

XTST 

EPTRET 
BUGOPT 
INMB4~1 
=0701200.DU 
CBKMON 
=0710200,DU 
PPROQ-1 
=07C3200.-DU 
LOK 

QCHEK 
2011203, DU 
BUGSR 


FAULT 


0,0U 


eKLICNe2 oPI.KL 
eo CRMB 444 44eP.CR 


Os AU 
MYME4 v2 
MYREF «2 
6 


GET MAP ADDRESS 
MAP IS OK 

GET BYTE ADDRESS 
SET MAP FOR # IOMS 


NIOC 

RPT COUNT 

+ TNZ BIT 

SET RPT COUNT 


SET DIVIDE 
NIOM TO XO 


TEST MONITOR OPTION 
NO 
YESs SET TRA 


TEST DEBUG OPTION 
NO 
YES» SET TSX1 IOCBCK 


SET TRA 


SET TSX3 


NOP 
STATUS RETURN TRACE 
CHANNEL PROCESSOR 


GET HARDWARE DCW ADDRESS> 
STORE IN SOFT DCW ADDRESS 
AND IN REFRESHER 

SHIFT WRD CNT TO TALLY 


261 


10802840 
10S02845 
10$02850 
10802855 
10$02860 
10802865 


. 10802870 
. 10802875 


10802885 
ANONC790 
IOSQ4AAM 


-ITOSQ4AAM 


IOSO4AAM 
IOSO4AAM 


IOSO4AAM 


IOSO4AAM 
10S02915 
10802920 
10802925 
10$02930 
10802935 
108029706 
10802090 


~10so0210C 


10S02110 
10802120 
10802985 
IOSQ4AAM 
IOSO4AAM 
IOSC4AAM 
IOSO4AAM 


ICSC4AAM 


i 


42457T C2 


12-27-79 
016044 016046 
C16045 016047 
016046 000634 
C16047 9000640 
016050 000001 
016051 100140 
C16052 016036 
016053 002341 
C16054 701403 
016055 001750 
C16056 700430 
C16057 016423 
016060 700271 
C16061 000001 
016062 016066 
016063 011203 
016064 003100 
C16065 001750 

C16066 014250 
016067 100113 
C16070 016424 
016071 000000 
C16072 100132 
C16073 100132 
016074 900001 
016075 000000 
C16076 000000 
C1607? 900002 


09.357 


0420 00 010 
0420 00 010 
7510 Q2 010 
7510 02 O10 
0220 03 9000 
1021 00 000 
6020 00 010 


6350 00 010 
75517 00 000 


2360 07 000 
7561 00 000 


7420 00 010 


016060 


2221 00 000 
1020 03 000 
6000 00 010 
2350 07 000 
7550 00 010 


3360 07 . 000 
016066 


6270 00 9010 
0271 00 000 
7470 00 010 
2230 03 000 


016072 
2241 00 000 
7251 00 000 
7450 04 000 
1240 03 000 
6350 15 000 
7350 00 000 


10327 
10328 
10329 
10330 
10331 
10332 
10333 
10334 
10335 
10336 
10337 
10338 
10339 
10340 
10341 
10342 
10343 
10344 
10345 
10346 
10347 
10348 
10349 
10350 
1354 
10352 
10353 


H6600J7.002 


NOTID 


INSC AN 
* 


IMOD1 


1/0 


ASX2 
ASX2 
STCA 
STCA 
ADLX2 
CMPX2 
TNC 


EAA 
STA 


LDQ 
STQ 


STX2 


NULL 


LDX2 
CMPX2 
TZE 
LDA 
STA 


LCQ 
NULL 


EAX7 
ADLX? 


STX7 


LOX3 


NULL 
LDX4 
LXL5 
STX5 
SBLX4 
EAA 
ALS 


INITIALIZATION OF .NIOS 


§S UP ERV IS OR 7912191 C0S0 PAGE 262 
+2 ADD IN IOM# 

x+2 . 

MYMB4 ,02 STCRE WRD CNT IN TALLY FIELD 

MYREF 202 

1-D0U 


oKLNICsePIZ KL HAVE ALL IOMS BEEN CHECKED 
INMB4 NOs CONT MOVE 


CHSUB SUBROUTINE 
CHSUB ABSOLUTE ADDRESS OF THIS SUBROUTINE 
»CRCT4seF.CR SAVE TRANSFER ADDRESS FOR CHAN. MODS. 


LOST INTERRUPT CHECK 
MAXLC DL 


eCRLI Tse PCR SET UP COUNT FOR LOST INTERRUPT CHECK 


$-2000 EMULATCR INITIALIZATION 
IcMm1 SAVE STU INT. VECTOR IMAGE FOR S=2000 


INITIALIZE CACHE CODE TO CLEAR FOR MULTIPLE 
— PROCESSOR SYSTEMS 


oCRNPCooP.CR GET # OF PROCESSORS CONFIGURED 
1/DU IS THIS A SINGLE PROCESSOR SYSTEM 


INSCANA YES, CACHE CLEAR CCDE IS OK. NOW 
=0011203 -DL NO» GET REPLACEMENT INSTRUCTION 
INIT STORE INTO CODE 

MAXLC DL 


SCAN IOM FOR CONFIGURED CHANNELS AND 
A) DEVELOP MODULE LOAD LIST 
B) SETUP S.Rw~ & EXMBI-6 WORDS FOR CHAN, 
IORG FIRST AVAILABLE SPACE FOR STATUS TABL 
«KLIOEs/FILKL ADD I0S BASE TO BUILD REAL ADDRESS 
ISVQR 
0, D0U IOM #0 


SET UP CHANNEL SURVEY 
MAXIMUM CHANNEL NUMBER ON IOM 
FIRST PAYLOAD CHANNEL ON IOM 


eKLICLs FIZ KL 
oKLICLs/PI.KL 


1,-1C 

** DU TOTAL PAYLOAD CHANNELS 

0-5 FIRST PAYLOAD CHANNEL 

2 4 TIMES FIRST AVAIL PAYLOAD. CHANNEL 


1245T C2 


12-27-79 
C16100 000000 
016101 100133 
C16102 701200 
016103 020000 
C16104 016154 
C16105 001002 
C16106 016425 
016107 200000 
016110 000000 
C16111 200001 
016112 000002 
016113 200000 
016114 200001 
C16115 000002 
016116 200000 
016117 200001 
016720 000002 
C16121 200000 
016122 200001 
016123 000002 
C16124 016537 
016125 701400 
016126 016627 
016127 072300 
016130 9000000 
C16131 000002 
C16133 016575 
016134 777777 
016135 016574 
C16136 016145 
016137 900012 
016140 000100 
016141 900000 
C16142 000000 
C16143 016154 
016144 016574 
016145 016575 


7912191080 PAGE 263 


4 * CHANO COMITTING OVERHEAD CHANS.) 
+384 * IOM # = CHANNEL INDEX 


IS THIS CHANNEL CONFIGURED 
NO» MOVE TO NEXT CHANNEL 


IS CONFIGURED 
IOM # 
CHANNEL INDEX 
LOC. OF NEXT STATUS WORD PAIR 


EXMB1-6 BLOCK FOR THIS CHANNEL 


ADD .CR BASE TO BUILD REAL ADDRESS 

ABS ADDR. OF SCW IN STATUS WORD #1 

ABS ADDR. OF STATUS WORDS 

PUT AWAY SCW FOR LATER STORE IN .CRMB 

BUMP STATUS WORD LCCATION 

SET UP EXMB1=-2, PUT ITS OWN ADDRESS I 
EXMB1 FOR ZEROING. 

BUMP STATUS WORD & EXMB1 LOCATION 

SET UP EXMB3~-44 PUT ITS OWN ADDRESS 
IN EXMB3. FOR ZEROING 

BUMP STATUS WORD & EXMB3 LOCATION 

SET UP EXMB5-64 PUT ITS OWN ADDRESS 
IN EXMB5 FOR ZEROING 

BUMP TO NEXT AVAILABLE SPACE 


SURE DEVICE ON THIS CHANNEL IS IN MODULE LOAD LIST 


BEGIN OF CHAN MCDULE TABLE 
MATCH 
UNKNOWN DEVICE 


MODULE NO. 
NO ENTRIES IN LIST 


TALLY + ZERO 


MODULE ALREADY IN LIST 


09.357 H6600J7.002 1/0 S$ UP ERVIS OR 
INITIALIZATION OF .MICS 

6250 01 000 10354 EAXS O- AU 

0251 13 000 10355 ADLXS5S oKLICNs3 sPI.LKL 
10356 * 

016102 10357 IMOD2 NULL 

2351 15 000 10358 LDA »CRIO145 Po CR 

3150 07 O00 10359 CANA =0200CO.s OL 

6010 00 010 10360 TNZ IMOD4 
10361 * 
10362 * THIS CHANNEL 
10363 * INDEX #3 
10364 * INDEX #5 
10365 * INDEX #7 
10366 * 
10367 * SET UP 8 WCRD S.R. & 

6350 15 000 10368 EAA eCRMBZ45 

0350 00 010 10369 ADLA CRBASE 

7551 17 O00 10370 STA O-7eP1.ABS 

6350 17 000 10371 EAA 0.7 

7551 17 000 10372 STA ToT oP I.ABS 

0670 03 000 10373 ADX?7 22DU 

7471 17 000 10374 STX7 O-7ePI.ABS 

4501 17 O00 10375 STZ 1eo7eoPIABS 

0670 03 ONO 10376 ADX?7 2eDU 

7471 17 000 10377 STX7 Or 7oP IZ AES 

4501 17 000 10378 STZ 1e7ePIJABS 

0670 03 000 10379 ADX?7 2eDU 

7471 17 O00 10380 STX?7 Or 7oPI.ABS 

4501 17 O00 10381 §Tz 1eo7ePI. AES 

0670 03 O00 10382 ADX7 2eDU 
10383 * 
10384 x MAKE 

6220 00 010 10385 EAX2 TABLE 

2351 15 000 10386 LDA eCRCT1454P.CR 

2360 00 010 10387 LDQ 207777777777 

5202 01 O00 10388 RPT ETABL~TAELE41,TZE 

2110 12 000 10389 CMK 0,2 

6000 04 000 10390 TZE 2eI1C 

016132 10391 ZCP 100U 

10392 * 

6260 00 0170 10393 EAX6 MODOLS 

7220 12 O00 10394 LXLe2 -122 

2360 00 010 10395 LDG MODCT 

6000 00 010 10396 TZE IMABS 

7360 00 O00 10397 QLSs 10 

6200 06 000 10398 EAXO 64-QL 

5202 01 000 10399 RPTX 0-1 

1020 16 000 10400 CMPX2 0-6 

6000 00 010 10401 TZE IMOD4 

2360 00 010 10402 LDQ MODCT 

7420 06 010 10403 IMABS STX2 MODLS/QL 


STORE MODULE NO. 


~—1245T 02 


12-27-79 
C16146 016574 
016147 000063 
016150 016154 
016151 016574 
C16152 000533 
016153 016576 
C16154 900001 
016155 016160 
016156 000004 
016157 016102 
C16160 001030 
016161 100133 
016162 016425 
016163 000002 
016164 047777 
016165 200001 
016166 200000 
016167 200003 
016170 000001 
016171 200003 
C16172 200003 
016173 000001 
016174 200002 
016175 000000 
C16176 9000012 
016177 200005 
016200 200007 
016201 777777 
016202 200007 
016203 000001 
C16204 200004 
016205 000001 
016206 200006 
016207 000010 
C16210 200000 
016211 200001 
C16212 000002 
C16213 200000 
016214 200001 
016215 000002 


09.357 


0540 00 9010 
1020 03 000 
6010 00 010 
0540 00 010 
6220 00 000 
7420 06 010 


016154 
1240 03 000 
6000 CO 010 
0250 03 000 
7100 00 010 


016160 


6200 00 000 
0201 13 O00 
0200 00 010 
6350 10 000 
2750 07 000 
7551 17 O00 
7401 17 O00 
7471 17 O00 
2350 03 000 
0551 17 O00 
4471 17 000 
6200 10 000 
7401 77 000 
6350 17 000 
2750 O7 O00 
7551 17 000 
7551 17 000 
2350 07 000 
0551 17 9000 


6200 10 9000 
7401 17 OOO 
6200 10 000 
7407 17 000 
6270 17 000 


7471 17 000 
4501 17 000 
6270 17 O00 


7471 17 000 
4501 17 000 
6270 17 000 


10404 
10405 
10406 
10407 
10408 
10409 
10410 
10411 
10412 
10413 
10414 
10415 
10416 
10417 
10418 
10419 
10420 
10421 
10422 
10423 
10424 
10425 
10426 
10427 
10428 
10429 
10430 
10431 
10432 
10433 
10434 
10435 
10436 
10437 
10438 
10439 
10440 
10441 
10442 
10443 
10444 
10445 
10446 
10447 
10448 
10449 
10450 
104571 
10452 
10453 


H6600J7.002 


IMOD4 


PSIQ 


»* 


* % 


+ 


* 


1/0 


ACS 
CMPX2 
TNZ 
AOS 
EAX2 
STX2 


NULL 
SBLX4 
TZE 
ADLXS5 
TRA 


NULL 


EAXO 
ADLXO 
ADLXO 
EAA 
ORA 
STA 
STXO 
STX7 
LDA 
ASA 
SXL? 
EAXO 
STXO 
EAA 
ORA 
STA 
STA 
LDA 
ASA 


EAXO 
STXO 
EAXO 
STXO 
EAX7 


STX7 
$TZ 
EAX?7 


STX7 
STZ 
EAX? 


INITIALIZATION OF .MIOS 


S UP ERV IS OR 7912191080 PAGE 264 
MODCT 

»MONET/ZDLU IS REMOTE 

IMOD4 NO 

MODCT YES» COUNT MODULE # FOR .MROUT 

e«MROUT 


MODLS+4+1,6L STCRE MODULE NUMBER .MROUT 


INCREASE THE CHANNEL NUMBER 


1,D0U ARE THERE MORE CHANS. ON THIS I0M 
PSIQ NOs SET UP SPECIAL INTERRUPT QUEUE 
4/DU YESs MOVE TO THE NEXT CHANNEL 
IMOD2 


FUT IN THE SPECIAL INTERRUPT QUEUE SPACE 
FOR CHANNEL #6 ON THIS I0M 
oCRMB 1424 


eKLICNs 3 ePI.KL ABS. ADDR. OF CHAN.#6 ON THIS IOM 


CRBASE ADD .CR BASE TO BUILD REAL ADDRESS 
2-0 POINTER TO CHAN.#6 REFRESH (.CRMB3) 
=0047777 -DL ADD CONTROL BITS FOR CHAN. 46 LPW 


STORE INTO STATUS WORD QUEUE 
ADDRESS TO STORE LFW INTO 
NEXT SPECIAL INTERRUPT POINTER 


Tel ePIJABS 
Oe 7ePIsAES 
3e7ePI.JABS 
1/DU 

Se7oPIJAES 
3e7ePIJAES 


MOVE NEXT POINTER AHEAD ONE 
LAST SPECIAL INTERRUPT POINTER 


120 POINTERS FOR CHAN. #6 (.CRMB2) 
2e7oPIAES LOCATION WHERE POINTERS ARE TO BE STO 
0-7 BEGINNING OF CHAN. #6 QUEUE 


TALLY GIVING LENGTH OF QUEUE 
CHAN.H#6 REFRESH (.CRMB3) 
CHAN.#6. OCW (.CRMB4) 


=10/0L 

Se7ePI.ABS 
7eoleoPIeABS 
~1,D0L 
To loPIJAES INCREMENT POINTER & DECREMENT TALLY fF 


FIRST PSTA SPECIAL INTERRUPT 


10 POINTER TO .CRMB3 

4r7oPIJAES 

1-0 POINTER TO .CRMB4 

6e7ePI.ABS 

847 FILLING OF CHAN.L#6 MAILBOXES. HAS BEEN 


COMPLETED. MUST NCW LEAVE ENOUGH SPACE IN QUEUE. 


Or7oPI.ABS 
To7eoPIJAES 
2a 


NINTH & TENTH WORDS IN CHAN. #6 QUEUE 


Or 7ePIJABS 
Te foPIJAES 
2a 


FIRST & SECOND QUEUE OVERFLOW WORDS 


& 


1245T C2 


12-27-79 
016216 200000 
016217 200001 
(16220 000002 
016221 200000 
016222 200001 
016223 000002 
016224 000001 
016225 100140 

016226 016072 
C16227 100140 
016230 100132 
016231 000002 
C16232 100132 
016233 000000 
016234 013362 
016235 700521 
016236 000020 
016237 016244 
C16240 000032 
016241 016574 
016242 016575 
016243 016574 
016244 016574 
016245 000006 
016246 016574 
016247 016575 
C16250 016574 
016251 016574 
016252 000000 
016253 016424 
016254 000015 
016255 900002 
016256 016424 
016257 577765 
016260 500000 
016261 100113 


09.357 


74714 
4501 
6270 


7471 
4501 
6270 


0230 
1031 
6020 


2201 
2351 
7350 
0351 
6 200 
7400 


2351 
3150 
6000 
2220 
2360 
7420 
0540 


016244 


2350 
7350 
7550 
6350 
2750 
7550 


6350 
1750 
7710 
2750 
2750 
7231 
7551 


Ver 


00 
00 
00 
00 
00 
00 


000 
000 


10454 
10455 
10456 
10457 


10458 © 


10459 
10460 
10461 
10462 
10463 
10464 
10465 
10466 
10467 
10468 
10469 
10470 
10471 
10472 
10473 
10474 
10475 
10476 
10477 
10478 
10479 


10480. 


10481 
10482 
10483 


10484- 


10485 
10486 
10487 
10488 
10489 
10490 
10491 
10492 
10493 
10494 
10495 
10496 
10497 
10498 
10499 
10500 
10501 
10502 
10503 


H6600J 7.002 


IMOD9 


1/0 


STX7 
STZ 
EAX7 


STX? 
$T2Z 
EAX7 


ADLX3 
CMPX3 
TNC 


LOxO0 
LDA 
ALS 
ADLA 
EAXO 
STXO 
CHECK 
LOA 
CANA 
TZE 
LDX2 
LDQ 
STX2 
AOS 


NULL 


LDA 
ALS 
STA 
EAA 
ORA 
STA 


EAA 
SBA 
ARL 
ORA 
ORA 
LXL3 
STA 


SBLX7 


SUPERVISOR 7912191080 PAGE 


INITIALIZATION OF .MICS 


Or 7ePI.AES 
ToT7oPI ABS 
lal 


THIRD & FOURTH QUEUE OVERFLOW WORDS. 


0» 7ePILZAES 
1e7eoPIeABS 
207 


FIFTH & SIXTH QUEUE OVERFLOW WORDS 


MOVE TO THE NEXT IOM 
1/DU NEXT IOM NUMBER 
oKUNI Coo FILKL IS THERE ANOTHER IOM TO PROCESS 
IMOD1 YES» GO PROCESS THIS IOM 
ALL ICM'S HAVE NOW BEEN SCANNED 
eKLNICso PILKL # OF IOM 
eKLICLo eo FILKL # OF CAHNNEL / IOM 


2 x4 

sKLIChK=1,0-PI.KL 

Os AU 

CKVLS SET MAX CHANNEL INDEX 


IF SECURITY MODULE IS TO BE LOADED 
eCRFI Goo F.CR 


eFBT314DL TEST SHARED MASS STORE 

IMOD9 NO 

a MASO4SDU SHARED ACCESS ALLOCATION MODULE 
MODCT CURRENT MODULE COUNT 

MODLS QL PUT INTO LIST 

MODCT ADD TO COUNT 


CONVERT MODCT WORD FOR MODULE LOADING BY STARTUP 
DU POINTER TO MODULE LOAD TABLE 
CL TABLE ENTRY COUNT 


MODCT 
6 

MODCT 
MOODLS 
MODCT 
MODCT 


BUILD A POINTER AT ~-11461 FOR STARTUP SO 
IT CAN INITIALIZE THE STATUS RETURN TABLE 


0-7 NEXT STATUS WORD LCCATION 

IS VQR SUBT. BEGIN OF STATUS WORDS 

13 SHIFT TO BITS 18-29 AND DIVIDE BY 2 
2eDL INDIRECT BITS 

IS VQR BEGINNING STATUS TABLE ADDRESS 
~11-1-P5 

Or 36P5 STORE POINTER TO STATUS RETURN. TABLE 


FOR STARTUPS* USE IN INITIALIZING THIS TABLE 
eKLIOEss- FIL KL 


265 


IOSO4AAWM 


EL8. 
EL8. 
EL8&. 


GET OFFSET ADDRESS OF IOS LAST ADDRES 


1245T 02 12-27-79 09.357 H6600J7.002 1/0 SUPERVISOR 


INITIALIZATION OF .MICS 


016262 016424 7470 00 010 10504 STX?7 IS VQR 
016263 016424 4470 00 010 10505 SXL? IS VQR 
10506 


7912191080 PAGE 


SET I0S LAST ADDRESS 
SET NEXT MODULE FIRST ADDRESS 


266 


1245T 02 


@® ese e8 6 eoeeeeoe#Heoeoeeoeeonmueoeeoeweuw8w3mkm8wmwmcrvm* #« @ é 


12-27-79 
016264 700363 
016265 700470 
016266 000204 
016267 700470 
016270 002000 
016271. 700465 
016272 900001 
016273 700467 
016274 700361 
016275 040000 
016276 016313 
016277 000010 
C16300 700470 
C16301 700363 
016302 500000 
016303 700376 
016304 500001 
016305 700377 
016306 500002 
616307 700400 
016310 500003 
016311 700401 
016312 016316 
016313 150000 
016314 700472 
C16315 700475 
016316 000000 
016317 700473 
016320 000070 
016321 700500 


09.357 

2201 00 000 
7401 00 000 
2200 03 000 
4401 00 000 
2350 07 9000 
2551 00 000 
2200 03 000 
4401 00 000 
2351 00 000 
3150 03 9000 
6070 00 010 
2350 O07 000 
25571 00 000 
7201 00 000 
2351 10 000 
7551 00 000 
2351 10 9000 
7551 00 000 
2351 10 000 
7551 00 000 
2351 10 0900 
7551 00 000 
7100 00 010 

016313 
2350 03 000 
7551 00 9000 
7551 00 000 
016316 

2200 03 9000 
7401 00 000 
6704 04 16414 
0505 00 000 


H6600J7.002 


10508 
10509 
10510 
10511 
10512 
10513 
10514 
10515 
10516 
10517 
10518 
10519 
10520 
10521 
10522 
10523 
10524 
10525 
10526 
10527 
10528 
10529 
10530 
10531 
10532 
10533 
10534 
10535 
10536 
10537 
10538 
10539 
10540 
10541 
10542 
10543 
10544 
10545 
10546 
10547 
10548 
10549 
10550 
10551 
10552 
10553 
10554 
10555 


1/0 


S UP ERVIS$ OR 7912191080 PAGE 


INITIALIZATION OF .MWICS 


kakkkkkekkk 


+ £ e+ + HF HH H FH 


IDISC 


010556 — 


10557 


ACCOUNTING FILE INITIALIZATION 


kkk kkk kak 


IOS SETS UP A PART OF ,CRACFoeoCRSKTo.CRSCI oo. CRSCH. 


AFTER IO0S/POPM INITIALIZES THEM COMPLETELY. 


INITIALIZE .CRSKT 


LOXO 
STXO 
LOXx0 
SXLO 
LDA 

ORSA 
LDXO 
$XLO 
LDA 

CANA 
TNZ 


LDA 
ORSA 


@CRACFHt2 ooP.CR GET SCT ADDR OF ACCT FILE 
eCRSKT+.WESCToeP.CR SET IT 

oFNABT+. FCCMM,0U SET NOAPT,CC PRESENT FLAG 
eCRSKT+.WESCTseP.CR 

oF FDD14DL SET DATA FLAG 1 
eCRSKT+.WEPRVoeoP.CR SET FIRST DCW PRESENT FLAG 
@PNPOPSDL SET KPX AS A POPM 
oCRSKT+.WEPIDs/P.CR 


oCRAC Fee PCR IS ACCT FILE TAPE OR DISC 


=0400C0O.-CU 
TAPEA TAPE FILE 
eFSEEKsDL DISC -NEED SEEK FLAG 


»aCRSKT#.bESCT s+ eP.CR 


SET FILE NAME OF DISC IN .CRACF 


LXLO 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
TRA 


NULL 
LDA 
STA 
STA 
NULL 
LDXx0 
STXO 


@CRACF+2 e-P.CR GET ADDR OF ACCT INF. 
O0eP5 

oCRACF+1349eP.,CR 

1-0-P5 

aCRAC F+14eeP.CR 

200P5 

aCRACFH1 See P.CR 

320P5 

aCRAC FH 6eeP.CR 

IDISC 


=0150000.,DU 
eCRSKT+.WEI CMe oP. CR 
aWEFCM+. CRSKT oP. CR 


SET WRITE COMMAND 


Ov DU 
eCRSKT+.WEOFFseP.CR SET OCW OFFSET 


CREATE COMMAND BLOCK DESC FOR STATUS RETURN 


LOO 
STD 


POsSTVEC o& 
POs.-CRSKT+.WEICB oe PCR 


267 


1245T C2 


V2=20=79 
C16322 006134 
C16323 000002 
016324 001777 
016325 000007 
016326 016412 
016327 016412 
C16330 700506 
016331 700374 
016332 700373 
016333 006737 
016334 700361 
016335 030000 
016336 016340 
016337 000001 
016340 006731 
016341 000004 
C16342 001776 
016343 000002 
016344 9001775 
C16345 006744 
C16346 9000000 
016347 700363 
016350 700361 
016351 030000 
016352 016356 
016353 000200 
C16354 500003 
016355 700363 
016356 500005 
016357 500004 
016360 500006 
C16361 000044 
C16362 700436 
016363 000021 
016364 016405 
016365 000000 
C16366 000000 
C16367 000001 
C16370 000000 
C16371 900001 
016372 900000 
016373 700437 


09.357 


4704 
2351 
3750 
7350 
2550 
2370 
7571 


7201 
1201 
7400 
2351 
3150 
6010 
0200 
7400 
1200 
1000 
6020 
6 200 
7400 


2360 
7221 
2351 
3150 
6010 
2360 
7201 
4401 
2561 
2361 
2351 
2750 
7551 


2200 
7410 


2210 
2350 
7370 
7350 
7370 
7350 


016373 


2551 


10 


11 


000 
000 
000 
000 
010 
010 
000 


000 
000 
010 
000 
000 
010 
000 
010 
00c 
000 
000 
000 
010 


000 
000 
000 
000 
010 
000 
000 
000 
000 
000 
000 
000 
000 


000 
010 


00Cc 
000 
000 
000 
000 
000 


00C 


10558 
10559 
10560 
10561 
10562 
10563 
10564 
10565 
10566 
1056? 
10568 
10569 
10570 
10571 
10572 
10573 
10574 
10575 
10576 
10577 
10578 
10579 
10580 
10581 
10582 
10583 
10584 
10585 
10586 
10587 
10588 
10589 
10590 
10591 
10592 
10593 
10594 
10595 
10596 
10597 
10598 
10599 
10600 
10601 
10602 
10603 
10604 
10605 
10606 
10607 


H6600457.002 


* 


SCri 


* 
SCFI20 
SCFI30 


SCFI32 


SCFI35 | 


1/0 


S UP ERVIS OR 


INITIALIZATION OF .MIOS 


CREATE ENTRY DESC FOR CC 


LOP 
LDA 
ANA 
ALS. 
ORSA 
LDAQ 
STAQ 


POsSD.MDDZDL 
eMIOSeePC 

=01777/0L 

ri 

ACTCC 

ACTCC 

eCRSKT#,WEIOE soP.CR 


SET BUFFER SIZE IN ACTFL 


LXLO 
SBLXO 


SET UP FOR .CRSCI AND .CRSCH 


LDQ 
LXL2 
LDA 


CANA 


TNZ 
LDQ 
LXLO 
SXLO 
ORSQ 
LDQ 
LDA 
ORA 
STA 


LDXxO 
STX1 


LDX1 
LDA 


eCRAC Ft1 1eeP.CR 
@CRACF4+1CeoeP.CR 
IBUF2 
aCRACFKseoP.CR 
=0030C00.,DuU 

+2 

1/DU 

IBUF1 

44DU 

1022,0U 

2I1C 

1021 

IBUF3 


0-0U 
@CRACFKHt2 veo PCR 
eCRAC Foo P.CR 
=0300C00U 

SC FI 

=0200,DU 
3Se2eP5 
»=CRACF+2seP. CR 
Sa2eP5 

4e2ePS 

b6e20P5 

36 4DL 
eCRSCHse er PCR 


17/DU 
SCFI4C 


0, DU 
Os DU 
1 
0-0 
1 
00 


eCRSCI-1 oP. CR 


7912191080 PAGE 


GET OFFSET FROM SYSTEM LINKAGE 
AJUST ISEGH IN AREG 


SET ENTRY DESC 
LENGTH OF BUFFER 


DETERMINE IF 1WD FOR LOGICAL EOF. 
SHCULD BE RESEREVD=-DISC ACCT 


LIMIT LARGEST L.eR. FOR TAPE 


TO 1021W TO PREVENT LOCK UP FAULT 


GET ADDR OF SCICSACCBUF DATA) 
CANsT CHANGE INFOR MATION 

IS DISC ACCT CONFIGURED 

YES» CAN CHANGE INFORM, 

TAPE W/IDS CANT DISPOSITION 
RESTORE TAPE NAME IN CRACF 


OR IN SACCBUF DISPOSITION DATA 
GET BUFFER OR NCT TO BUFFER DATA 
MAX REGAL TYPE 


1ST TIME THRU THE LOOP 
SAVE RETURN ADDR 


9WD IN .CRSCI 

UPPER HALF OF SACCBUF 

2ND TIME THRU »SET UP 

BITS 1 AND 19 FOR EACH 
ENTRY IN .CRSCI 

LOWER HALF OF IT 


10804360 
10804365 


C16426 000000 0000 00 000 10645 MBXTY TALLY 00,0 
016427 000000 0000 00 C00 10646 MBXTY1 TALLY 00,0 


TALLY WORD FCR MAILBOX 
TALLY WORD FCR MAILBOX (CIOS OFFSET) 


1 @ 
@ 
1245T 02 12-27-79 09.357 H6600J37.002 1/0 SUPERVISOR 79121910S0 PAGE 269 
® INITIALIZATION OF .MIOS 
| r C16374 000001 0210 03 O00 10608 ADLX1 12DU 
| 016375 000022 1070 03 O00 10609 CMPX1 18,DU ARE WE DONE WITH THIS LOOP 
016376 016366 6010 00 010 10610 TNZ SCFI3C 
S C16377 000001 2210 03 O00 10611 LOXx1 1.2DU YESsINCREM 1ST SHIFT OF DATA FOR REC. 
C16400 016370 7410 00 010 10612 $TX1 SCFI32 WHCES DISPOSITION CAN CHANGE 
| 016401 500005 2361 12 000 10613 LDQ Se2eP5 GET DISPOSITION DATA 
r C16402 000001 1200 03 O00 10614 SBLXO 12DU HAVE WE PROCESSED 22ND LOOP 
. C16403 000017 1000 03 O00 10615 CMPXO 15DU 
016404 016365 6C10 00 010 10616 TNZ SCFI2C NO-D0O IT 
: @ 016405 000000-6210 00 O00 10617 SCFI40 EAX1 * 
| 016406 016414 7100 00 010 10618 TRA INIACT 
| 10619 * 
& 10620 * 
| 10621 * VECTOR FOR STATUS RETURN OF ACCT 
: 016407 000000011007 000 
@ 016410 10622 EVEN 
, C16410 000006750640 000 10623 STVEC VEC aDR7o.CRSKT 4+. WEDRF «76 (RoW) 
! C16411 000504001777 00Cc 
s ®@ 10624 * 
! 10625 * ENTRY DESC. FOR ACCT CC 
| 016412 10626 ACTCC E&DSC Ore SLBAS saSLSIZo** AC FCCOS 
1 @ C16412 007160400010 010 VED TESACECC o1/1010/%*43/044/8 
| 016413 167400000000 000 VFD 10/.SLSI2Z/2-1-24/.SLBAS22/0 
016414 10627 INIACT NULL 
1 @ 10628 
| 016414 006134 4704 07 O00 10629 LDP POsSD.MDCD,/DL GET MDD TABLE 
016415 000002 2351 00 000 10630 LDA oMIOS se PC GET .«.MIOS SD 
1@ 016416 007777 3750 07 O00 10631 ANA =O7777eDL 
C16417 100114 7551 00 000 10632 STA eKLIOSs»/ PIL KL SET .MIOS SEGMENT ID 
| 10633 
1 @ 10634 
10635 
| 10636 FREFARE FOR DEPARTURE FROM I0S INITIALIZE 
1 @ C16420 016574 2350 00 010 10637 7 LDA MODCT DEPENDENT MODULE INFO 
C16421 016424 2360 00 010 10638 LDQ ISVQR RETURN ADDRESS 
016422 S00000 7101 11 O00 10639 TRA OrtePS RETURN TO STARTUP 
& 10640 
10641 
016423 ao00000000000 000 10642 ICM1 DEC 0 INTERRUPT VECTOR PTR-DU ~~ #S—-2000'S, 
1@ C16424 900000000000 000 10643 ISV@R OCT 0 NEXT SPACE FOR TABLES = IN UPPER 
| 016425 o00000000000 000 10644 CRBASE OCT 0 «CR SEGMENT BASE 
; 6 
| | 016430 10647 EVEN 
. 016430 000000000000 000 10648 DESCWK OCT 0-0 WORK AREA FOR DESCRIPTOR 
1 @ C16431 oo0000000000 000 
) C16432 377776750640 000 10649 ABVEC2 VEC oDR2604128%10246—-14 (RoW) 
C16433 000000001772 000 
: e 10650 
10651 * 10802995 
S 
1®@ 


1245T C2 


12-27-79 
C16434 900000 
C16435 016437 
016436 016477 
C16437 777777 
C16440 777777 
016441 777777 
016442 777777 
016443 000000 
016444 000001 
C16445 777777 
016446 777777 
C16447 777777 
C16450 777777 
016451 777777 
C16452 777777 
016453 000002 
016454 900003 
016455 777777 
C16456 777777 
C16457 777777 
016460 777777 
C16461 777777 
016462 777777 
C16463 000004 
C16464 900005 
C16465 777777 
C16466 777777 
C16467 777777 
C16470 777777 
C16471 777777 
C16472 777777 
C16473 000006 
C16474 000007 
C16475 777777 
C16476 777777 
016477 777777 
C16500 777777 
016501 777777 
C16502 777777 
(16503 000000 
16504 000001 
C16505 000002 
016506 777777 
C16507 777777 
016510 777777 


09.357 


0000 00 
0000 00 
0000 00 


000004 
000005 
000014 
000015 
000024 
000025 
000034 
000035 


016447 


777777 
777777 
777777 
77777? 
777777 
777777 


016455 


777777 
777777 
777777 
777777 
777777 
77777? 
777777 
77777? 


016465 


ag me a 4 
777777 
777777 
777777 
777777 
a aa eas 
777777 
777777 
777777 
777777 


000004 
000005 
000006 
000014 
000015 
000016 
000024 
000025 
000026 
000034 


H6600J7.002 


000 
0170 
01710 


00c 
000 
000 
000 
0OCc 
000 
000 
000 


00c 
000 
000 
000 
000 
000 


000 
000 
000 
000 
000 
000 
000 
000 


000 
000 
000 
000 
000 
000 
000 
000 
000 
000 


000 
000 
000 
000 
000 
000 
000 
000 
000 
000 


10652 NMAP 


10653 
10654 
10655 
10656 
10657 
10658 
10659 
10660 
10661 
10662 
10663 
10664 
10665 


10666 
10667 
10668 
10669 


10670 
10671 
10672 
10673 


10674 
10675 
10676 
10677 
10678 
10679 
10680 
10681 
10682 
10683 
10 €84 
10685 


10686 


10687 
10688 


2MAP 


3MAP 
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0 
2MAP 
3MAP 


—~104 
-145 
-1,12 
-1,13 
0-2C 
1021 

-1-28 
-1429 
174 

-14,-1 
-~1,~1 
-1,-1 
-1 91 
20-1 

30-1 

176 

~1 9-1 
-1,-1 
~14971 
-1,71 
-~1571 
~1 4-1 
4am) 

Se-1 

176 

~1,-1 
-14-1 
~1,-1 
~1,~-1 
-1 onl 
-1,71 
60-1 

Von 

“14-71 
~1/71 


~144 
-1.45 
-176 
-1-12 
0,13 
114 
2220 
-1721 
-122 
-1,28 


oMIOS- 


7912191080 


1-I0M SYSTEM 
2-I0M SYSTEM 
3-10" SYSTEM 


MAP FOR 2-10 SYSTEM 


3-I0M SYSTEM 


PAGE 
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10803000 
10803005 
10803010 
10S03015 
10802020 
10803025 
10803030 
10$03035 
10803040 
10803045 
10S03050 
10S$03055 
10803060 
108023065 


10803070 
10803075 
10803080 
10802085 


10S02090 
10803095 
10803100 
10803105 


10803110 
10803115 
10803120 
10802125 
10803130 


10803135 


10$03140 
10S$03145 
10803150 
10S$03155 
10S023160 
10$03165 
10803170 
10803175 
10803180 


@ @ 
e e 
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®@ @ 
INITIALIZATION OF .MIOS 
¢ 016511 777777 000035 000 10689 ZERO -1429 10803185 2 
016512 777777 000036 000 10690 ZERO -1 30 10803190 
| 016513 000003 777777 #000 10691 ZERO 3-1 10803195 
@ 016514 000004 777777 #1000 10692 ZERO 4onl 10803200 & 
C16515 000005 777777 000 10693 ZERO Se] 10803205 
, 016516 10694 DUP 125 10803210 
® 016516 777777 777777 #000 10695 ZERO 15-1 10803215 & 
016517 777777 777777 + °&#000 ZERO ~15-1 
C16520 777777 777777 + #000 ZERO -1,-1 
@ 016521 777777 777777 #000 ZERO -1,-1 & 
016522 777777 777777 + #000 ZERO -1,-1 
016523 000006 777777 000 10696 ZERO 60-1 10803220 
@ C16524 000007 777777 #000 10697 ZERO 7o-1 10803225 & 
016525 000010 777777 000 10698 ZERO 8-1 10803230 
016526 10699 DUP 145 10803235 
@ 016526 777777 777777 + #2000 10700 ZERO -1,-1 10803240 r 
C16527 777777 777777 + #000 ZERO -1,-1 
016530 777777 777777 + #000 ZERO -1,-1 
@ 016531 777777 777777 + #000 ZERO -1,-1 @ 
C16532 777777 777777 + #000 ZERO -14-1 
C16533 000011 777777 #2000 10701 ZERO 9-1 10803245 
eS 016534 000012 777777 42,000 10702 ZERO 10,-1 10803250 & 
016535 000013 777777 #000 10703 ZERO 117-1 10803255 
016536 777777 777777 + #000 10704 ZERO -1,-1 10$03260 
& 10705 * 10803265 @ 
10706 7 
016537 10707 TABLE NULL | 
& 10708 * MASS STORAGE DEVICES e 
(16537 610000000064 000 10709 VED 6/.08190,30/.MDSX6 DSS190 DISC PACK 
(16540 620000000064 000 10710 VED 6/.08191e30/.MDSX6 0SS191 DISC PACK 
@ 016541 640000000064 000 10711 VED 6/.0S400430/.MDSX6 ™S0400 DISC PACK a] 
016542. 650000000064 000 10712 VFD 6/.08450430/.MDSX6 ™MSU450 DISC PACK 
C16543 660000000064 00c 10713 VED 6/.08500-30/.MDSX6 MSUSOO DUAL DISK 10803295 
& 10714 x r 
| 10715 * MAGNETIC TAPE DEVICES 
| C16544 100000000376 000 10716 VED 6/.0MTAP+30/.MMTAP MAG TAPE 
e 016545 110000000376 000 10717 VFD 6/.DMTA7e30/.MMTAP MAG TAPE CASA 7 TRACK) @ 
016546 120000000376 000 10718 VFD 6/.DMTA9230/.MMTAP MAG TAPE CASA 9 TRACK) 
016547 130000000376 000 10719 VFD 6/.0M™M7430/.MMTAP MAG TAPE (SOC 7 TRACK) 
@ C16550 140000000376 000 10720 VED 6/.D0MTM9430/.MMTAP MAG TAPE (50C 9 TRACK) @ 
C16551 150000000376 000 10721 VFD 6/.DM1C7430/,.MMTAP MAG TAPE (MTS-600 7 TRACK) 
016552 160000000376 000 10722 VFD 6/.DMTC9430/.MMTAP MAG TAPE (MTS~600 9 TRACK) 
@ 10723 * & 
10724 * UNIT RECORD DEVICES 
016553 340000000301 000 10725 VED 6/.0CR31430/.MGPIO CARD READER .CR2301 
@ 016554 200000000301 000 10726 VFD 6/.0CR20-30/.MGPIO CARD READER & 
(16555 210000000301 000 10727 VED 6/.0CR21430/.MGPIO CARD READER (DUAL) 
016556 230000000055 000 10728 VED 6/.D0CP20-30/.MCPIO CARD PUNCH (V BED BULL) 
& 016557 220000000572 000 10729 VED 6/.0RF24,30/.MRPIO  READ/PUNCH 10$03285 @ 
016560 320000000055 000 10730 VFD 6/.0CF30-30/.MCPIO CARD PUNCH CPZ300 
® @ 
@ @ 


i 


1245T O02. 


H6600J7.002 


000 
000 
000 
000 
000 
000 
000 


000 
000 
000 
000 


016574. 


016575 


12-27-79 09,357 
C16561 330000000055 
016562 250000000512 
016563 260000000512 
C16564 360000000512 
016565 350000000512 
016566 240000000512 
C16567 270000000516 
016570 010000000063 
016571 370000000067 
016572 300000000566 
C16573 310000000566 
C16574 9000000000000 
016575 000000 000000 
C16576 900000 000000 
C16577 000000 000000 
C16600 900000 000000 
016601 O000000 000000 
016602 000000 000000 
016603 0900000 000000 
C16604 000000 o00000 
016605 09000000 000000 
C16606 000000 0Cc0000 
C16607 900000 000000 
016610 000000 000000 
016611 9000000 000000 
C€16612 000000 000000 
016613 000000 000000 
016614 000000 000000 
016615 000000 000000 
C16616 000000 000000 
016617 09000000 000000 
016620 000000 000000 
016621 000000 000000 
C16622 000000 000000 
016623 000000 000000 
016624 9000000 000000 
016625 000000 000000 
016626 777777700000 
016627 007777777777 


016630 


000 


000 
000 
000 
000 
000 
000 
000 
00C 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 


00c 
000 


1/0 


S UP ERV IS OR 


INITIALIZATION OF .MIOCS 


10731 

10732 

10733 

10734 

10735 

10736 

10737 

10738 * 
10739 * 
10740 

10741 

10742 

10743 

10744 ETABL 
10745 * 
10746 MODCT 
10747 MODLS 
10748 


10749 


10750 * 
10751 x 
10752 * 
10753 
10754 


VFD 
VFD 
VFD 
VFD 
VFD 
VFD 
VFD 


VFD 
VFD 
VFD 
VFD 
NULL 


OCT 

DUP 

ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 


ZERO 


ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
LIT 


6/.0CF31,30/.MCPI0 
6/.D0PR30430/.MPRIO 
6/.0PR21 4630/4 MPRIO 
6/.DPR23430/.MPRIO 
6/.0PR33430/.MPRIO 
6/.DPR41 430/.MPRIO 
6/.0P TAP »30/.MPTAP 


SPECIAL CEVICES 

6/.0C0355 430/.MDNET 
6/.0UNCP430/.MDIAC 
6/.D0CCNS 430/.MTYPE 
6/.D0SCC1 »30/.MTYPE 


1425 


79121910S0 PAGE 272 
CARD PUNCH CPZ2301 
PRINTER PRT300 
PRINTER PRT201 
PRINTER PRT203 
PRINTER PRT303 
PRINTER PRT4004401 4402 


PAPER TAPE READER/ PUNCH 


35C ON IOM DIR DATA CHAN 

FRONT END PROCESSOR EL8. 
CONSOLE 

SYSTEM CONTROL CENTER 


DEFENDENT MODULE LIST 


INITIALIZE ROUTINE PATCH AREA 


DUP 


210 


10 WORD PATCH AREA 


/SERH SLOGH [kee RKKKKPATCH RAR KA ARR RHR KA / mm mmm — COMMENTS 


29Fwi1270 


@©®eeeeeeeeeeee?st?eteeseest?ese#se eee ®@ 


H6600J7.002 1/0 
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INITIALIZATION OF .MICS 
10755 / / /XFR.FROM CONTENTS. / 
10756 » ° ° * 
C16630 000000 000000 000 10757 ZERO / / / OCTAL / 
10757 * . ° * 
016631 000000 OCN00QO 000 ZERO / / / OCTAL / 
C16632 000000 000000 000 ZERO / / / OCTAL / 
~~ 10757 ‘ ° ‘ ° 
016633 000000 000000 OOC ZERO / / / OCTAL / 
10757 > * r . ° 
016634 9000000 000000 000 ZERO / / / OCTAL / 
10757 ° ° ° ° 
C16635 000000 000000 000 ZERO / / / OCTAL / 
10757 . ° ° 2 
C16636 Q9Q00000 000000 090 ZERO / / / OCTAL / 
10757 2 > * = 
C16637 900000 000000 000 ZERO / / / OCTAL / 
1 OCSL ° ° * * 
C16640 000000 000000 00Cc ZERO / / / OCTAL / 
10757 ° 2 > ined 
016641 000000 O000000 000 ZERO / / / OCTAL / 
ERROR LINKAGE 
C16642 gooo000000000 000 
016643 333331 466220 000 
10758 END 


GMAP VERSION/ASSEMBLY DATES JMPA 790514/052579 JMPB 791026/102679 
416644 IS: THE NEXT AVAILABLE LOCATION. 


THERE WERE NO WARNING FLAGS IN THE ABOVE ASSEMBLY 


JMPC 790511/05 2579 
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@ ® 
OCTAL SYMBOL REFERENCES BY SEQUENCE NO. 
e 16437 2MAP 10656 10653 10656 & 
16477 3MAP 10679 10654 10679 
4374 ABEXT 3494 3292 3494 
r 5424 ABPGM 4395 4314 4317 4395 ® 
4373 = ABRT 3492 3271 3492 
400000 ABSLB 9809 9809 9839 9853 10019 
) 6773 = ABTC 5462 5432 5462 td] 
17135  ABTPM 7407 7398 7407 
16432 ABVEC2 10649 10233 10649 
e 716C ACFCC 5617 5617 10626 & 
6726 ACFL1 5414 5414 5556 
7015 ACFL3 5483 5483 5585 
®& 6736 ACFLA 5425 5425 5436 ® 
6747 ACFLE 5438 5428 5438 
6763 ACFLE 5451 5384 5386 5389 5400 5402 5413 5451 5474 
r 6777 ACFLE 5466 5397 5440 5466 © 
7113 ACFLG 5558 5477 5558 
7120 ACFLH 5567 5562 5567 
a) 7150 ACFRG 5600 5380 5452 5551 5568 5600 & 
7076  ACNEX 5541 5534 5541 
16412 AcTcc 10626 10563 10564 10626 
Se 6672 ACTFI 5379 2185 5379  ] 
6667 ACTFL 5375 19 2084 5375 5572 
7145  ACTFT 5596 5417 5421 5422 5439 5596 
e 12176 ACTNT 8373 8358 8365 8373 - 
2546 ACTPT 2012 1999 2012 
2 ADEND 7418 7418 7419 7512 7513 7613 7622 7624 7736 
e 13053 ADESC 9181 60C8 6438 6547 6688 9181 ) 
2 A.PSH 2265 2175 2176 2179 2180 2265 2417 2420 2432 
C  ALCGPR 9805 9805 9837 9851 10017 
@ 14010  ALLDUN 10049 10049 10058 10069 r 
3434 ALLREG 2683 2285 2292 2308 2311 2642 2669 2683 3242 8390 8487 
7 ANS 7423 7423 7473 7478 7479 7484 7660 7690 7698 7815 7818 
@ 6555  ASCBLK 5218 5128 5218 | @ 
7340 ASTIO 5773 19 5773 
10125 AUXPR1 6537 6525 6537 
@ 10130 AUXPR2 6542 6535 6542 @ 
5730 8SASER 4681 4674 4681 
6470 8S8CDWRI 5147. 5142 5147 
@ 6472 BCDWR2 5150 5145 5150 @ 
6462 BCDWR 5139 5111 5139 
11413 BDPAT 7708 7641 7708 
@ j|.11130 spdPEM 7400 7370 7377 7388 7400 ) 
7663  BESTX 6188 5966 6104 6124 6126 6130 6143 6188 
1135  86NQ1 954 946 954 
@ 1127 86NQ 948 942 948 @ 
13307  BLDCC 9485 3831 4008 9485 
6556 BMSCD 5220 5049 5061 5193 5220 
®& QO BPL 7416 7416 7417 7469 7793 7811 & 
1 BPR 7417 7417 7418 7471 7503 7731 7737 #7795 7809 
e e 
e od 


ii 


1245T C2 


OCTAL 


12-27-79 


SYMBCL 


BPRP 
BPVEC 
BILLY 
BUFEX 
BUFFLG 
BUFST 
BUF VEC 
BUGOPT 
BUGSR 
BUMP 3 
BUS YF 
BYPAS 
BYPCR 
BYTENO 
CACHE 
CACHCK 
CACHOM 
CACHX 
CACHY 
CALLE 
CALLID 
C8KMON 
CCACK 
CCCNT 
CCDD 
CCSNG 
CCS OK 
CCZOP 
CDISP 
CFG 
CHAN1 
CHAN 
CHANO 
CHBSY 
CHECK 
CHEKIT 
CHK OK 
CHK QU 
CHNO 
CHN1 
CHN2 
CHN3 
CHN4G 
CHNL1 
CHNL2 
CHNL3 
CHNL4 
CHNLH 
CHNLN 
CHNL2Z 


09.391 
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REFERENCES BY SEQUENCE NO. 


7850 


7898 
710 
5592 
2104 
1224 
2043 
2139 
10285 
10295 
6362 
564 
5972 
504 
9856 
2364 
2392 
2373 
2417 
2416 
4291 
9834 
10288 
3807 
2529 
4546 
5635 
5651 
B44 1 
449 
10171 
1365 
715 
815 
6138 
9401 
9443 
9456 
518 
651 
6466 
6965 
6967 
6969 
7001 
7056 
7073 
7074 
7025 
7028 
7039 


1248 
2049 


6365 

638 
5993 

761 
9929 
2410 
2396 
2377 


9850 
3809 
5638 
5668 
8461 
10177 
1685 
1359 
838 


9434 


627 


6963 


7034 


1402 


644 


7037 


1/0 


1258 
2057 


1684 
6189 
1453 


9933 


4093 


8476 


1682 


654 


7043 


S UP ERVIS OR 


1892 
2060 270 
6896 10247 
10016 


2077 


7912791080 


PAGE 


275 


# 


1245T C2 


CCTAL 


2341 
«1623 
13434 

4742 


7374 


2357 
12206 
19125 
1454 
13531 
13362 

4667 

_ 7205 

7220 

7227 
11041 
10370 
10665 
10701 

6252 

11051 
11034 

6741 

5372 
14020 

13671 
11046 
11044 
10650 


10555 
4367 
4234 
3254 
10000 
10404 
10502 
10530 
16425 
11104 
411104 
11121 
4732 
4730 
10362 
13446 
10357 
11117 
13510 
11110 


12-27-79 


SYMBCL 


CHSUB 
CHTR 

CKAGN 
CKCCWM 
CKCHL 
CKCPI 
CKND 

CKPEM 
CKRDY 
CKSCT 
CKVLS 


CLINK 


CLOST 
CLOSTC 
CLOSTT 
CMBSR 
CMD10 
CMDSC 
CMDS3 
CMDSP 
CMDUL 
CMFSR 
CMI 
CMILG 
CMPLTO 
CMPMPC 
CMREQ 
CMREW 
CNECT 


CNL11 
CNSCT 
CNSL 

CNTCC 
CNTON 
CNTUE 


CONACT 


CPCT 
CRBASE 
CRDAS 
CREAD 
CRITE 
CROD 
CRODY 
CSUSP 
CTLMSK 
CTND 
CWDAC 
CWLB 
CWRIT 


09.391 


1776 
1398 
9718 
3896 
5951 
1818 
83 8&3 
7395 
1228 
9842 
9594 
3842 
56 40 
5653 
5662 
7315 
6795 
7159 
7174 
4935 
7330 
7308 
5429 
4354 
10056 
9952 
7323 
7320 
7107 


7021 
34 83 
3336 
2503 
6372 
68 14 
6912 
6961 


10644 


7368 
7366 
7389 
38 86 
3883 
6785 
97 33 
67&0 
7384 
9818 
7376 


1776 
1329 
9718 
3826 
5951 
1808 
8383 
7373 
1221 
93838 
9591 
3791 
5627 
5624 
5643 
7165 
6745 
7159 
7174 
4935 
7161 
7163 
5424 
4354 
10053 
9952 
7169 
7167 
6519 
83C6 
7014 
3285 
3322 
2495 
6372 
6743 
5918 
6626 
10242 
7186 
7176 
73&0 
3868 
3879 
6774 
4637 
6761 
7184 
9818 
7178 


H6600J7.002 1/0 


10313 
1337 
9720 
3896 
5963 
1818 
8429 
7395 
1228 
9840 
9594 
3842 
5640 
5653 
5662 
7315 
6795 
7172 
7188 
4981 
7330 
7308 
5429 
(229 

10056 
9960 
7171 
7320 
6552 
&314 
7021 
3483 
3328 
2503 
6384 
6770 
6912 
6961 

10369 
7368 
7366 
7382 
3886 
3883 
6785 
9733 
6764 
7384 
9903 
7376 


1398 
9723 
4004 


8474 


9842 
9846 
4092 
5660 


7282 


7351 


7242 


7323 


6571 


3336 


6788 


6963 


10421 


7389 
10108 


6780 


S UPERVI$ OR 


REFERENCES BY SEQUENCE NO. 


10472 

4151 4304 

7244 7259 7262 7286 7337 7355 
6625 6669 6827 6840 6845 6854 
6814 

6965 6967 6969 
10644 


7912191080 


6866 


6903 


6905 


6942 


PAGE 


7107 


276 


8268 
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19&2 1987 1992 1995 1996 2017 2C18 2033 2038 2039 2059 2066 2073 2078 2088 
2113 2120 2721 2139 2140 
55 ECNTPP 8961 8961 9052 
5732 EDESCE 4684 4655 4684 
7475 ELGB1 6033 5994 5997 6003 6005 6010 6013 6C17 6021 6027 6033 
7507 ELGB2 6045 6038 6040 6045 


@ @ 
e e 
® ®e 
OCTAL SYMBOL REFERENCES BY SEQUENCE NO. 
@ 11117  CWTVEF 7385 7182 7385 @ 
70 DBUG 201 201 212 515 619 622 625 €28 903 991 5752 7044 8476 9449 9555 
1710 DBUSY 1455 1447 1455 
@ 12775 o0B20P 9090 8990 9090 9093 9099 9366 e 
5724 oCCK1 4676 4672 4676 
12117 DCCON 8289 19 8289 
@ 13155 DCWCK 9309 3778 4155 4164 4231 4814 4828 9209 @ 
6041 DCWEN 4767 4743 4767 
6045 DCWER1 4773 4737 4773 
@ 6047 DCWER 4775 4759 4774 4775 @ 
13171 DCWPT 9322 $312 9322 
5602 0d7 4566 4557 4566 
© 12772 DEBG 9087 9032 9087 & 
973224 DECQCT 9387 9383 9387 
14130 DELTA 10097 10067 10126 10172 10175 
@ 114 DELTE 212 19 212 @ 
5565 DEND 4553 4550 4553 
16430 DESCWK 10648 10235 10236 10239 10240 10245 10648 
@ 13225 DEXMS 9389 9367 9389 9397 @ 
60 DISOPT 28 28 429 1470 
370 =—DISPI 434 434 10104 
) 1754 DISPA 1506 1506 10105 e 
| (1762 = DISPEB 1911 15C8 1511 10106 
11467 DOALL 7791 7519 7570 7692 7791 
@ 1504 DOVER 1256 1232 1238 1256 r 
5614  DPUSH 4575 4561 4575 10110 10112 
74 DQ 210 207 208 #209 210 
@ 12470 DSCONV 8761 8756 8761 ] 
5262 DSDR10 4247 42C8 4216 4247 
§222 DSDR2 4211 4202 4205 4211 
@ 5273 DdSDRS 4262 4197 4262 @ 
5355 DSOR6 4331 4257 4331 
5302 DdSDR? 4271 4271 4334 4337 4340 
@ 5245 DSDRB 4233 4223 4228 4233 e 
5243 DSDRI 4230 4226 4230 
5341 DSDRE 4312 4034 4294 4312 
a 5323 ODSDRN 4295 4295 4344 r 
10660 DSFLG 7109 6431 6436 6684 7109 
12444  DSINTF 8708 8697 8701 8708 
* 71. DSTAT 207 207 383 385 386 465 470 472 473 @ 
14 oSTB2 7172. 7172 7284 
14 dSTB3 7188 7188 7353 
& 13560 DVCNC 9866 9852 9866 , @ 
2712 EBUFF 2140 1090 1135 1905 1907 1909 1910 1513 1928 1929 1936 1938 1942 1960 1961 1966 
@ @ 
® e 
® e 
@ @ 


, @ 
, . 
(i 
@ 
d @ 
i 
| 
{I 
| @ 
{ 
| 
, e 
fh 
I & 
h 
: @ 
} 
| 
} 
] 
ver 
, 
4 & 
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EMSCD 
EMX 


09.391 


5243 
6420 


2653 
2641 
5700 
6597 
5974 
8003 
8020 
8046 
8062 
8053 
8088 
8123 
&1 26 
8145 
8156 
8163 
&168 
8192 
&201 
8205 
8208 
8220 
&233 
7914 
&240 
7921 
7942 
7946 
8040 
7973 
7993 
5575 
2035 
8032 
8100 
5578 
14 38 
3150 
3143 
3156 
3671 
&577 
8597 
&625 


5049 
6420 
6618 
6776 
70C? 
7096 
2653 
2525 
5700 
6591 
5949 
7998 
8020 
8023 
8049 
7999 
8065 
8118 
8120 
8112 
8113 
8133 
8141 
8078 
7929 
8198 
8151 
8212 
8216 
7907 
8121 
7902 
7930 
7874 
7970 
7973 
7980 
54 &0 
7963 
7965 
8053 
5481 

19 

19 

19 

19 
3671 

19 

19 

19 
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5243 
6449 
6644 
6777 
7009 
7098 
10107 
2574 
5741 
6597 
5974 
8003 
8030 
8046 
8062 
8053 
8070 
8123 
8126 
8145 
8156 
8152 
8168 
8130 
8006 
8205 
8159 
8220 
8223 
7914 
8240 
7912 
7942 
7887 
8040 
7989 
7993 
5575 
8035 
8032 
8100 
5576 
1438 
3150 
3143 
3156 
5072 
8577 
8597 
8625 


6550 
6655 
6781 
7010 
7100 


2625 


5987 


8075 


8163 


8192 
8201 


8208 


8233 


7921 
7946 


8011 


5578 
10248 


5014 


8651 


REFERENCES BY SEQUENCE NO. 


6568 
6656 
6800 
7011 
7101 
2641 


6018 


8082 


B244 


8038 


10284 


1/0 


6570 
6694 
6802 
7017 
8265 


8088 


8042 


6576 
6695 
6807 
7019 
8303 


6577 
6696 
6808 
7C22 
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6584 
6703 
6811 
7057 


6585 
6705 
6817 
7058 


7912191080 


6589 
6706 
6819 
7059 


6590 
6735 
6830 
7077 


6594 
6736 
6875 
7084 


6595 
6755 
6907 
7088 


PAGE 


6612 
6757 
6941 
7091 


278 


6613 
6765 
7006 
7095 
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© @ 
eo e 
oe & 
CCTAL SYMBCL REFERENCES BY SEQUENCE NO, 
@ 12431 EP39E 8636 3097 8630 8636 @ 
12425 EP39N 8632 3083 8629 8632 
~4003  €EP3 3157 19 3151 3157 
& 12435 EP40 8648 19 8648 & 
12437 EP41 8696 19 8696 
12441 EP42 8700 19 8700 
@ 12443 EP43 87 04 19 8704 & 
12465 EP44 8754 19 8754 
12457 EP4S 8721 19 8721 
@ 12467 EP46 8758 19 &758 _ 
4406 EPS 35 27 19 3527 
12454 EP4XE 8717 8714 8717 
@ 16574 ETABL 10744 10388 10744 & 
2376 EXIT! 1838 1803 1815 1820 1827 1831 1838 | 
QO EXMB1 6414 6414 6613 6655 6656 6703 6705 6706 6800 6802 6819 6875 6941 7007 7009 7077 
& 7084 7088 7091 7095 @ 
1 EXMB2 6415 6415 6570 6576 6584 6585 6594 6696 6736 6765 6807 6817 7011 7022 7059 
2 EXMB3 6416 6416 6612 6618 6644 6776 6781 7C19 7057 7096 7098 7100 
ge 3 EXMB4 6417 6417 6568 6577 6589 6590 6595 6735 6755 6757 6777 6808 6811 7017 7058 7101 @ 
4 EXMBS 6418 6418 6550 6830 6907 
5S  EXMBE6 6419 6419 6694 6695 7006 7010 
@ 3747 EXT2 3083 3076 3083 | @ 
3752 EXT3 3086 3086 3104 
3772 EXT4 3103 3088 3103 
& 3720 EXTMEM 3059 19 3059 @ 
2424 EXTST 1900 19CO 2110 2131 
14025 FAKEIT 10062 10012 10024 10030 10062 
& 440 FAULT 502. 502 696 ® 
4412  FBUSY 3575 3575 3592 3603 
5416 FCER 4386 4386 4938 
r 6253 FCP 4936 4927 4936 @ 
10267 FDDAT 6691 6685 6691 
7660 FIRE 6183 6156 6159 6171 6179 6183 
@ 5336 FIVEW 4307 4166 4307 @ 
10232 FIX! 6645 6640 6642 6645 
10014 FLMB1 6425 6340 6425 
@ 7751 FLMBX 6311 6202 6237 6311 @ 
13144 FLOOP 9275 9275 9281 
631 FLTEX | 657 514 523 657 
@ 5426 FLTIO 4399 19 3578 4399 4498 4584 @ 
2156 FLTIT 1686 294 659 1686 2717 2718 
$442  FLTXX 4412 4408 4412 
@ 100000 FmMs 9806 9806 9934 @ 
4362 FMSRET 3475 3204 3475 
2417 FMTAR 1894 1435 1894 
e 1310C FNDFC 9237 3587 4937 5071 9237 ] 
11357 FNDSC 7659 7623 7659 
6213 FNDY1 4898 4890 4898 
a 13112  FNORM 9248 9248 9270 9283 | 
6256 FNPAT ~—4940 4930 4940 4945 
® @ 
® @ 
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5524 FNQaOD 4516 4516 4520 & 
5541 FNQ11 4528 4518 4527 4528 
5532 FNQ1 4522 4522 4525 
S635 FNQ21 4601 4593 4601 eS 
5632 FN@2 4597 4590 4597 
4056  FNRML 3209 3205 3209 
11144 FORO 7431 7427 7431 @ 
11154 FOR1 7432 7428 7432 
11164 FOR2 7433 7429 7433 
11174 FOR3 7434 74320 7434 @ 
11374 FORWD 7682 7626 7682 
11403 FORWDE 7696 7541 7684 7686 7696 7724 
11410 FORWDS 7702 7699 7702 @ 
13120 FOUN 9254 9254 9277 
11415 FOUND1 | 7716 7664 7671 7716 
414627 FOUND2 7730 7719 7730 e 
11445 FOUND3 7749 7740 7749 
11453 FOUND4 7760 7760 7774 
7777 FOUND 6370 6364 6370 el 
913134 FPART 9267 9247 9267 
4065 FSBFM 3221 3221 3678 
1170 FSTAT 991 9$1 1018 eS 
47  FSTTHR 8959 8900 8959 
93147 FTIMS 9278 9272 9278 9280 
1145  FXLVL 968 829 968 & 
4 GEINOS 3238 
61C GEPR 637 577 578 583 584 585 586 587 588 602 604 605 606 608 610 615 
| | 621 624 630 637 @ 
12553 GET1 8897 8897 10136 10182 
13573 GETAQ 9884 9884 9890 10061 
471 GETCH 533 529 533 r 
13015 GETCC 9126 9126 9145 
12552 GETENT 8895 8801 8855 8895 
913034 £GETILT 9143 9138 9143 @ 
13027 GETIT 9137 9121 9137 
13007 GETWSN 9119 6512 9119 
2136 GNSPL 1653 1648 1653 e 
3523 GOPQGE 2782 2776 2782 
3624 GPCSI 2883 2871 2873 2883 
4752 GPOPT 3909 3813 3816 3909 4696 4699 ® 
3554 GPRIO 2821 28C1 2807 2814 2821 
3636 GSMOR 2904 2904 2909 
3631 GSPNT 2896 2879 2896 @ 
3617 GSRCH 2876 2876 2881 
6622 GSTRT 5292 19 $292 
656 GTCHN1 693 6S$3 720 & 
671 GTCHN2 706 468 706 
676 GTCHN4 712 712 10275 | 
666 GTCHN 702 660 702 763 765 813 852 859 864 867 900 945 964 974 983 993 ) 
1009 1029 1332 1347 1444 1457 1674 2284 2297 2709 2716 2719 2724 2893 2949 
@ 
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410 
14013 
12252 

12330 
12343 
7532 
5412 
13442 
5060 
13444 
6731 
6737 


12-27-79 


SYMBCL 


GTQUE 
GTSAT 
GTST1 
GTSTAT 
GTSVX 
HERE 
IABSA 
IBCNF 
IBSFS 
IBSTSB 
IBUF1 
IBUF2 
IBUF2 
ICALL 
ICHI 
1cmM1 
IoISc 
Ids 
IDSOR 
IGATE 
IGNOR 
IHLR 
IHWS 
ILINK 
ILPCX 
ILVL2 
ILVL 
ILVPT 
ILwWc 
IMABS 
IMAP 
IMOD1 
IMOD2 
IMOD4 
IMODS 
IMW 
INABGQ 


INABT 
INAI3 
INAL5 
INAK8& 
INCRE 
INDOK 
INDTR 
INIACT 
INIT14 
INIT2 
INIT 
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461 
10051 
&425 
84 85 
&505 
6079 
4379 
9724 
40 23 
97 30 
5419 
5427 
5433 
3875 
10103 
10642 
10552 
5602 
41 88 
325 

2 86 
258 
1451 
10099 
9587 
10 26 
1021 
1076 
2109 
104C3 
200 
10347 
10357 
10411 
104 82 
1714 
4358 


4369 
4389 
4392 
4355 
528 
3970 
3939 
10627 
2364 
1024 
999 


2953 
428 
10048 
8403 
8427 
8486 
6079 
4379 
4638 
3972 
9722 
5419 
5427 
5433 
3861 
8897 
10323 
10546 
5431 
4188 
325 
19 
256 
1429 
10099 
3289 


10347 
FOS or 
10360 
104 76 
285 
3637 
47&0Q 
3107 
3588 
35 81 
3643 
320 
3952 
S025 
10618 
2364 
1013 
999 


3017 
445 
100514 
8422 
8457 
8501 
6085 
7050 
9724 
4023 
9730 
10574 
10569 
10579 
3875 
10103 
10642 
10552 
5602 
7405 
417 


461 
10055 
8425 
8485 
8505 


1468 


1757 


3947 
1026 


10406 


505 
3959 
4896 
3508 
4389 


3730 


7311 


475 


2079 


4275 


10411 
653 
4260 


4972 
4369 


4355 


7313 


1/0 
2832 10169 
4971 5305 

692 713 
4277 4358 
5058 5102 
4390 4393 
7318 7321 


5339 


725 
4 381 
9321 
4410 
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8399 


801 
4384 
9725 
4413 


9587 


8023 
4387 


5464 


79172191080 


9845 


1621 
4396 


1661 
4449 


1714 10252 
4451 4574 
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4683 
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4686 
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15750 
10440 
16036 
4414 
4565 
13643 
16066 
13656 
10306 
714 
706 
225 
14035 
5653 
13431 
$45 
4153 
614 
(4662 
14250 
154 
121 
161 
$065 
5114 
5126 
5073 
4701 
6124 
6067 
6065 
5051 
5042 
5027 
5023 
16424 
1156 
2012 
2017 
2063 
2142 
2125 
2073 
2076 
2074 
2036 
2043 
1717 
2006 
2152 
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INITM 
INI TMB 
INMBG 
INOS 
INRML 
INSBYT 
INSCAN 
INSSCT 
INSTZ 
INTCV 
INTOK 
INTYP 
INVAL 
ITOCALL 
IOCBCK 
IOFLT 
IOLNK 
IOMOFF 
LONTR 
LORG 
IOTA 
IOTRM 
I0U 
IRCNT 
IRES2 
IRES3 
IRESS 
IRETN 
IspCwl 
ISDCW 
ISNG 
1ST11 
I$T12 
IsT1 
ISTAT 
ISVQR 
ITERW 
ITLS2 
ITLS3 
ITLS3A 
ITLS4 
ITLS4A 
ITLSS 
ITLS6 
ITLS?7 
ITLS 
ITLSS 
ITLST1 
ITLST 
ITRTM 
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10231 
68 64 
10298 
3577 
3753 
99 28 
10339 
9940 
6713 
727 
722 
328 


10072 


46 24 
9714 
592 
3274 
642 


38 34° 


101 86 
283 
240 
288 

4030 
4074 
4087 
4053 
3856 
48 31 
4797 
4793 
4010 
4000 
3987 
3980 
10643 


978 


1537 
1544 
15 88 
1664 
1641 
1600 
1606 
1602 
15 62 
1569 
1464 
1531 
1680 


217 
6864 
102&6 
19 
3722 
9922 
10333 
9935 
6710 
506 
694 
320 
98 36 
4559 
4642 


10344 
972 
1537 
1544 
1581 
1574 
1548 
1592 
1586 
1597 
1555 
1561 
1464 
1467 
1559 


10231 
10244 
10298 
3577 
3753 
9928 
10339 
9937 
6713 
727 
722 
328 
9847 
4572 
9714 
592 
3263 
642 
3834 
10342 
414 
240 
288 
4030 
4066 
4083 
4053 
3249 
4770 
4797 
4801 
4002 
4000 
4326 
3967 
10496 
978 
1673 
1668 
1583 
1617 
1550 
1600 
1606 
1602 
1558 
1569 
1720 
1531 
1680 


10310 


9939 
10278 


9862 
4624 


3268 


4074 
4087 
7326 
3838 
4821 


4010 


3969 
10499 


1588 


1627 


1641 


1562 


1734 


9940 


9876 


3274 


3849 
4831 


4377 


3980 
10504 


1639 


1742 


1/0 

9878 10072 
3856 4018 
4028 4032 


10505 10638 


1645 


1744 


1650 


1749 
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5215 


4(€36 
10€43 


1664 
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5484 5485 5488 5489 5545 5546 5547 5549 555C 5569 5580 5582 5583 5620 5625 
5633 5641 5645 5646 5673 5675 5€80 5685 5698 5708 5714 5730 5748 10522 10530 
10537 1€539 10541 10543 10545 10567 10568 10570 10584 10585 10590 
512 » CRASA 5690 5691 5749 
2 2 CRCAL 1759 2833 3203 4372 4986 5208 5648 5663 570C 5712 5724 5758 10103 
72 eCRCCK | 431 1489 
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@ 1440 ITTRC 1212 1016 1036 1111 «1212 
6371 ITYM1 5060 5050 5060 
6504 ITYM2 5164 50$6 5164 
®& 6514 ITYM2B 5174 5168 5174 
6530 ITYM31 5192 5188 5192 
6527 ITYM32 5190 5186 5190 
ee 6517 ITYM3 5180 5137 5160 5180 
6446 ITYM41 5124 5119 5124 
645C ITYM42 $127 5122 5127 
@ 6427 ITYM4 5104 5098 5104 
6356 ITYM 5046 4864 5046 
6425 ITYME1 §100 51CO 5113 5171 
@ 6367 ITYME 5056 5052 5056 5072 
5140 ITYTW 4129 3726 4129 
36 .AC036 4386 4389 
) St . whC0s7 4392 
40 .AC040 4395 
41 ~AC041 4416 4417 4418 4419 44620 4421 
& 42  .AC042 4422 
43 .AC043 4423 4424 4425 9320 
44 .AC044 4426 4427 
@ 45 .AC045 3958 
47 .AC047 3230 4356 
65 .AC065 3106 
& 107 .AC107 4380 
174 .AC114 9558 
115 4 AC115 4447 
& 116 .AC116 4450 
117 .AC117 5463 
121 2 AC121 4412 
& 164 .AC164 3492 
206 .AC2C6 4259 
207 4. AC207 4383 
e 2710 .AC210 4682 
211 2AC211 4685 
212 .AC212 4779 
213 .AC213 4895 
215°  .AC215 9724 
216 .AC216 5057 
2 217 = .AC217 5101 
220 .AC220 4793 
227 .AC227 4573 
e 4000 .AEXTM 3060 
361 e CRACF 1071 2014 2164 5378 $382 5391 5415 5416 5441 5450 5455 5462 5470 5476 5478 
@ 
® 
® 
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10C 
410 
1400 


436 
437 
461 
516 
464 
$13 
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eCRCMHC 
«CRCST 
oCRCT1 


eCRCT2 


o~CRCT3 
~CRCT4S 


» CRDSP 
oe CRE XG 
« CRFIG 
« CRF SX 
o CRGPG 
e~ CRGTO 
oe CRIC1 


~CRIO2 
e CRIO3 
o»CRIO4 


e CRLCK 
~CRLIT 
» CRMB1 
» CRMB2 
~ CRMB3 


« CRME4G 


eo CRMPG 


« CRNPC 
o CROGT 


« CRQGT 


~CRSCH 
@CRSCI 
~CRSCT 
»CRSID 
oCRSKT 
2 CRSRM 
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1513 
6356 
335 
2869 
5899 
68&1 
389 
9444 
390 
9&2 
10314 
19C€8 
433 
1267 
10021 
3186 
2754 
1515 
357 
1122 
3425 
68 33 
1091 
1287 
366 
6620 
1452 
1466 
543 
371 
360 
10368 
510 
10299 
359 
2707 
83C1 
2367 
397 
2823 
88.16 
359 
2755 
8301 
5401 
5412 
4879 
1906 
5628 
1087 


1526 
6357 

882 
29171 
5995 
6887 
2280 


2281 
1303 


443 


10474 
10258 
2823 
$265 
379 
1130 
3429 
8255 
1132 
1948 
871 
6878 


1534 
546 
372 
643 


798 


433 
2720 
8355 
2399 

402 
2836 
9681 

397 
2822 
8355 

10595 
10607 
4894 


5636 


2372 
9950 

883 
2927 
6082 
8259 
2715 


3301 
1412 


1507 


811 
1328 
3434 
8290 
1133 
6876 

876 
8257 


10318 
1002 
764 
939 


961 


854 
2754 
8433 

10137 

409 

2889 
10038 

402 
2867 
8389 


4901 


5656 


2375 


885 
2930 
6084 
8298 
2872 


S39 
1430 


1512 


850 
1331 
3447 

10358 
1136 


881 
8292 


6601 
789 
940 


1089 


875 
2755 
8550 

10331 

419 

3464 


854 
2889 
8550 

10036 


5658 


1/0 


2402 


922 
2936 
6092 
8421 
2901 


3380 
1564 


2366 


862 
1547 
5952 
1549 


920 


6825 
795 
943 

1579 


1455 
2825 
8607 


443 
4894 


857 
2990 
8607 

10038 


10523 
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2405 


929 
3266 
6095 
9588 
3348 


5515 
2030 


2413 


10525 


2407 


$78 
3312 
6099 
10386 
3359 


5533 
3686 


2416 


10527 


1350 
3316 
6102 
3369 
9425 
3714 


2520 


909 
1806 
6106 


1912 


1545 


6904 
954 
1030 


6335 
2277 
3014 
9679 


2296 
5455 


eer? 


3464 
8816 


10529 


+503 
3323 
6119 
5528 
9438 
5902 


2565 


926 
2279 
6110 


630C 


1845 


10415 
1022 
1594 


6336 
2366 
3304 
10036 


24176 
5462 


2296 


5308 
8849 


10535 
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1629 


$338. 


6122 
5530 
9941 
7465 


2585 


927 
2706 
6116 
6926 


1949 


1023 
1616 


6457 
2413 
4879 
2518 
5569 
2445 


S515 
9679 


10550 


1642 
3339 
6140 


5536 


7733 


2668 


$31 
2713 
6150 


3264 


6454 
6448 


6472 
2445 
5308 
2519 
6956 
2519 


5341 
9681 


10551 


1848 
3432 
6155 


5537 


7869 


2825 


1008 
2714 
6234 


5958 


6501 
6 864 


6646 
2482 
5341 
2564 
7C49 


2564 
5501 


10554 


1944 
3440 
6161 


5947 


8148 


2836 


1028 
2886 
6301 


6078 


6505 
6906 


6672 
2520 
5378 
2584 
8389 


2584 


6956. 


10557 
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1983 
3443 
6176 


6050 


8710 


1109 
2919 
6348 


6112 


6574 
8264 


6720 
2565 
5501 
2668 
8472 


2707 
7049 


10565 
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2775 
3711 
6622 


9413 


8763 


1117 
2921 
6786 


6152 


6575 
8302 


6831 
2585 
8263 
2822 
8610 


2720 
8263 


10623 
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@ 463  .CRSSN 9841 9924 9938 & 
736 .CRTCN 6877 
312 .CRTEP 312, 557 835 1400 2327 2626 3684 6937 
& 741 .CRTIR 269 @ 
745  .CRTLS 1576 
336 .CRTLY 407 
@ 42 .CRTRV 311 324 556 562 834 842 1399 1427 2326 2339 2625 2633 3683 3703 6936 ® 
6947 7 
1761 .CTYP 259 339 709 1490 1763 2312 2660 2839 3089 3215 3222 3612 3621 3864 4501 
& 4529 4547 4603 5298 5469 5619 5776 8353 8548 8602 8898 8991 9006 9314 9489 @ 
| 9892 10121 
1 .0C355 979 10740 
& 30 .DCOKS 3325 10742 & 
23 .ocPp20 10728 7 
32 .dCP30 10730 
& 33. DC P31 10731 & 
2C .dCR20 6002 10726 
27 .dCR21 10727 
e (34 .DdCR31 2045 10725 e 
31 «=. DCS 66 7 2052 
11. DMTA7 10717 
@ 12. DMTA9 10718 r 
10 .OMTAP 6004 10716 
15 .DMTC7 10721 
& 16. DMTC9 10722 e 
13° 4 DMTM? 10719 
14° .DMTM9 10720 
e 26 .DPR21 10733 e 
36 .DPR23 10724 | 
25  .DPR30 10732 
e 35. DPR33 10735 @ 
24 .DPR41 10736 
27 .DPTAP 10737 
e 1770 = =.dRO 6439 @ 
1772 =, DR2 10649 
1774 =. DRS 3775 4153 4162 
& 1777 =. DR? 1453 10623 ® 
1770 =. DR (3252 3253 
22 .DRP24 10729 
61 .08190 10709 
° 62 .dS191 10710 . 
64 .08400 10711 
65  .0S450 10712 
° 66 .dS500 10713 ® 
31 = DSCCI 1100 3327 3445 10743 
@ 37 4 DUNCP 10741 @ 
144  .dDWIOS. 4726 4727 4786 4787 
- 167  .dWSYT 4727 4786 
@ 37777 =. FADS 29 29 1079 2005 3068 3196 4951 7880 @ 
100000 .FBSYF 2422 3591 4909 4942 5005 7302 
® @ 
° é 
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400000 
200 

20 

4 

2 

1 
490000C 
20000C 
200000 
100000 
10000 
4000 
2000 
200 
100000 
40 

20 

4 

2 

4 
40000 
20000 
10000 
4000 
1000 

. 600 
770000 
4 

77 
3774 


770000 
700000 
40 
7700 


770000 


10 

20 
10 
4000 
~4000C 
2000 
1000 
400 


400000 


200000 
20000 
10000 

100000 
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SYMBOL 


~FBTO 
eFBT10 
~ FBT13 
~FBT15 
-FBT16 
eFBT17 
- FBT18 
- FBT1 
« FBT20 
e FBT23 
2 FBT 24 
e FBT 25 
~FBT28 
-FBT2 
« FBT 30 
« FBT 31 
«FBT33 
- FBT34 
«FBT35 
.FBT3 
. FBT 
-FBTS 
»FBT4 
FBT 
«FBTS 
~FCCMD 
oFCCMM 
e FCHNO 
e FC HNX 


eFCSUB 
e FONTU 
e FOSSA 
« FDVAO 
a FDOVTP 


«FEXRQ: 


o FEXTC 
oFEXTM 


=» FF AUX 


o FFDCW 
oFFDDI 
o FFDD2 
2 FFOMM 
« FFIOR 
eo FFMOD 
«FFRLC 
eo FFROD 
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26 


32 
3056 


1017 
452 
7042 
1496 
1019 
2048 
1729 
7324 
252 
10164 
2056 
2058 
2031 
3870 
1741 
596 
10158 
4571 
879 
3164 
9063 
7035 
1719 
693 
10176 
1456 
3641 
3902 
1984 
354 
3262 
6361 
. 26 
2539 
6527 
1975 
1099 
1272 
52 
3056 
4712 
2428 
2385 
2391 
4715 
3224 
3625 
3630 


5632 * 


1263 


3586 


4448 


4526 


4960 


7357 


7372 


2765 


6277 
9899 
6623 

872 
s315 
6621 


7985 
9868 
2044 


9002 
5141 
5118 
3755 
4763 


3772 
3900 
3875 
3875 
2799 


4960 


4639 


6157 


9262 


9079 


7033 


6478 
10524 


888 
5512 
6879 


8024 


3324 


5185 
5141 
4130 
5000 


3790 
4204 
4706 
3878 
2805 


1/0 


7765 


10158 


6637 


921 
5682 
7040 


8097 


3444 


6524 
5185 
4190 
6196 


3860 
4225 


3890 
2810 


8941 


6741 


970 
5900 
8258 


7962 
6524 
50Cc0 
6492 


3989 
4333 


4709 
8211 


9257 


7276 


1354 
5557 
8293 


8 C66 
7964 
5199 
6586 


4063 
4502 


8445 
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9968 


1546 
5959 
95953 


8092 
8064 
5590 
8415 


40914 
4646 


8859 


1632 
6077 


9311 
8092 
5654 
9672 


4133 


8996 


7912191080 


1846 
6079 


8406 


6486 


4150 


2029 2704 
6089 6111 
9663 

6581 10526 
4196 4303 


2784 
6113 


PAGE 


3072 
6149 


286 


3074 
6153 


~—4245T 02 


CCT AL 


200C 
3000 
$6000C 
7? 

2 
7700 
510006 
2200 
777777 
11205 
200000 
—. 200 
400000 
2 

2000 
77777 
10000 
40C 


~ 100000 


1000 
200000 
40 
400 
20C 

10 

100 

oa 
40000 
2 
37774 
37777 
4000 
400000 
| 1 
17774 


117 
17777 
10 
100000 
2000 


20000 
400000 


4000C 
20000 
200 
400 
400000 
100 

4 


122237 9 


SYMBCL 


~ FGPOV 
~ FIOCN 
-FIOM 
.FIOST 
oFUSTR 
~FLODA 
~FLOST 
. FMADP 
. FMBLK 
.FMCRB 
.FMEFP 
.FMFDP 
.FMEPP 
2 FMILP 
.FMLDP 
~FMLLD 
~FMLTD 
. FMPME 
2 FMRLS 
« FMRND 
2 FMSPD 
2 EMT OM 
2 FMTYI 
. FNABT 
~ FNAST 
. FNECE 
~FPBEM 


e FPRCH © 


eo FPRSL 
oFPSCT 
e FP TOF 
FRETS 
e FRPRM 
eo FSCMS 
eFSCT1 


~FSCT2 
~FSCT 
- FSEEK 
~FSENV 
-FSGPR 
« FSHRD 
« FSLNK 
-FSNOC 
« FSPEC 
.FSPLK 
~FSPOK 
2 FSPRM 
~FSPRQ 
~FSTCH 
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REFERENCES BY SEQUENCE NO. 


990 
25 
24 


74 38 


215 


1842 
1984 
990 
2447 
25 
6015 
24 
7299 
7735 
7438 
2074 
7508 
7665 
74.08 
7685 
7619 
1284 
2069 
7663 
3950 
7617 
3043 
4860 
2507 
10028 
4968 
3677 
886 
3270 
2158 
3067 
1175 
7372 
2969 
215 
5510 
216 
1266 
4296 
10022 
1146 
2774 
3143 
6081 
2874 
2910 
3439 
2885 
3315 
2779 


4088 
6888 

994 
8364 
4339 


1585 


7493 


7563 


7667 


1945 
7299 


4278 


4364 


13517 
4965 
4900 
3195 
1237 


9404 
1097 
5999 
1932 
1282 
6271 


1269 
3175 


2899 
5557 
8420 
2918 
i 2 4 
2929 


8377 
4918 


1604 


7511 


1973 
7518 


4315 


4851 


1630 
6070 
5086 
3595 
2544 


1954 
6035 
6884 
6464 
2546 
3343 


2902 
3431 


3424 


3402 


8500 


4375 


7535 


3294 
7561 


7296 


8442 


1649 
6177 


4950 
2940 


1971 
6606 
10534 
2940 
9381 


3341 


3442 


5996 


1/0 


8552 


7721 


3399 
7670 


7475 


9906 


5961 


7293 
3394 


2467 
7611 


4846 


3418 


6037 


S UPERVIS OR 


8604 


6039 
7683 


7718 


10524 


9590 


7879 
6132 


2778 
7649 


6042 


8401 


6094 


6 880 


7 886 


6 168 


3189 
8 398 


6 132 


8493 


6098 


3288 
9844 


6168 


6118 


7912191080 


3398 3598 3946 
9943 10027 
6139 6154 


4274 


4343 


PAGE 


4958 


287 


5303 


1245T 02 


CCTAL 


400000 
20 
200000 
so a 
10000 
200000 
10000 
2000 
400 


200000 


40 
200 
100000 
40000 
20000 
40 
20000 


400000 


200000 


700000 


40000 
100C 
100 
20 
4000 
- 100C 
10000 
400 
20 

10 


200 
100 
2000 
10000 
4000 
400000 


1762 


lem272(9 


SYMBCL 


« FSTOP 
»FSYOT 
eo FTAD 

» FTORS 
2 FTRAN 
« FWPRM 
« FXBAR 
e IF ABS 
o TF AUX 
2 TFCNS 
2 TFOCW 
~ITFOD1 
o TF DD2 
« TF OOC 
eo TFDAM 
2 IF GPR 
oe TFICE 
oT FL2T 
o TFLKF 
oe ITFLKS 
o IFNAB 
« IFPAT 
~ TFPCD 
a ITFRLC 
e TFROD 
eo IFRS? 
e IFRS2 
e TFRS3 
2 TFRSS 
eo ITFRSS 
e IFRS6 
2 ITFRS?7 
eo TFRSI 
« IFRSA 
e IFRSB 
oe IFRSC 
eo IFSCT 
» IF SPC 
o IF SRL 
2 I FSYT 
« IF TAD 
eo IFTYP 


2 ISR 

« IWC8T 
« IWCMD 
e IWDAT 
27 IWFCM 
« IWGRR 
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REFERENCES BY SEQUENCE NO. 


4484 
44 84 
44 84 
44 84 
44 84 
4484 
4484 
44 84 
(4484 
44 84 
4484 
44 84 
4484 
4484 
64 84 
4484 
4484 
44 84 
4484 
4484 
4484 
4484 
44 84 
4484 
44 84 
44.84 
44 84 
44 84 
4484 
44.84 
4484 
4484 
4484 
4484 
4484 
4484 


4484 
44 84 
44 84 
44 84 
4484 


2451 
25C7 
1231 
2926 
6047 
4459 
1647 
4201 
4227 
4212 
4484 


4222. 


4484 
4484 
4484 
4336 
4484 
4484 
4484 
3846 
3846 
4484 
4484 
4484 
4484 
4484 
4484 
4484 
4484 
4484 
4484 
4484 
4484 
4484 
4484 
4484 
4484 
4336 
4484 
4484 
4484 
4484 
4484 
9757 

692 
3845 
3699 


2550 


4484 
4484 


5309 
4854 
2923 
3267 
6292 
7391 
5955 
4336 
4484 
4484 
4858 
4484 
4533 
4540 
4549 
4484 
4844 


4514 


9728 
3850 
4484 
4849 
4926 
4935 
4704 
4707 
9727 
9727 
9727 
9727 
9727 
9727 
9727 
4713 
4841 
9728 
9728 
4484 
4935 
9727 
4852 
4855 
9732 
9758 
1452 
4200 
4484 
4484 
4664 
4689 


8493 
7873 
3259 
6091 


6105 


4484 
4710 
5011 
4863 
4716 
4607 
4610 
4613 
4867 
4934 
4589 


4484 
9753 
4934 
4929 
4988 
9739 
9737 


4976 


4926 
4983 


4934 
4934 
9733 
9759 
1560 
4335 
4874 
4668 


7252 


8519 


8442 
4857 
6101 


9741 
9743 
4934 
9760 
4671 
4677 
4644 
4934 
9756 
9766 


9754 


$743 
9743 


5051 
5205 


9755 
9755 
9734 
9760 
1767 
4484 
4925 


7267 


1/0 


6121 


9732 
9765 
4723 
4742 


9743 
9757 


9761 
9766 


9762 
9765 


9757 
9756 
ofS 
9761 
1770 
4513 
4936 


S UP ERV IS OR 


6160 


9762 


4806 
4820 


9761 
9766 


9763 


9763 


9766 
9766 
9737 
9762 
2095 
4531 
5047 


9763 


9762 


9766 


9739 
9763 
2139 
4588 
5053 


9764 


9741 
9764 
2153 
4606 
5093 


9765 


9742 
9765 


4636 
5108 


7912191080 


9743 


5165 


9751 


7227 


9753 


7233 


9754 


7237 


PAGE 


9755 


288 


9756 
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| OCTAL SYMBCL REFERENCES BY SEQUENCE NO. 
im) 7 .IWIcM 4484 4484 4662 
: 6 .IWSEK 4484 4214 4341 4484 
4 ,IWST1 4484 2351 3280 3800 3995 4070 4206 4484 8215 9829 9849 9855 9857 9864 9870 9874 
@ 9898 9920 9932 9947 9974 100C2 10C15 10026 10032 10041 10C42 10052 10059 10060 
5 .Iwst2 4484 2352 4484 4567 
O> gelOS 255 S05 692 713 £725 10180 10249 10251 10253 
e OQ .KLCAC 2374 2404 
147 .KLCAM 424 
| 100 .KLCIC 6909 
e 1320. KLICL 1538 1539 1667 10348 10349 10468 
133° .KLICN 5€8 542 £731 810 1542 6892 10298 10355 10420 10470 
60 .KLIOI 270 272 
] 107 KLINT 283 421 1469 5457 5561 
113° .KLIOB 10228 10343 10503 
114  .KLIOS 1436 10632 
1 @ 16  .KLKPS 457 
115° .KLLBT 9978 9984 Sf 
! 140 .KLNIC 1672 10265 10276 10309 10464 10467 
1 @ 44 .KLPRG 427 449 461 1481 2081 2370 2648 2672 5345 5779 6434 7047 
SC .KLSCC 1494 2482 2491 2498 2504 2518 8433 8472 941& 9430 
| 52. .KLSLV 3859 5459 
1 @e 26 .LIOES 8922 8961 10075 10097 10098 10099 10100 10122 10123 10124 10125 10127 10130 10131 10143 
| 10144 10145 10146 
! 4 4 MACTS 5663 5724 
1 @ 32. 4 MASC4 10477 
36 ..MBRT1 4372 
| 55 .MCPIO 10728 10730 10731 
& 67 .MDIAC 10741 
| 57  .MDISP 2833 3103 3575 3880 3883 4519 4522 4594 4790 4906 4944 5570 5700 10054 
63 .MDNET 104C5 10740 
1@ 64  .MDSX6 10709 10710 10711 10712 10713 
; 65  .MFALT : 1515 
1117 .MFS18 78C2 
1 @ 201 .MFSEX 32C3 
| 301 .MGPIO 10725 10726 10727 
| 320 .MIOS1 498&6 5208 
& 321 .M1LOS2 1768 1771 
322 .MIOS3 1317 
! 2  .MIOS 10560 10630 
& 372 .MMISC 1759 
| 376 .MMTAP 10716 10717 10718 10719 10720 10721 10722 
| 441  ,MPOP6 7&2 
1 @ 467 .MPOPV 5648 5712 5758 
) 512  .MPRIO 10732 10733 10734 10735 10736 
1 516  .MPTAP 10737 
1 @ 533 .MROUT 104C8 
572 .MRPIO 10729 
| 540 .MSCM1 9265 
& 566 .MTYPE 10742 10743 
3 OFFS 30 30 1082 2008 3070 3198 4953 7882 
® 
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OCTAL 


20 
45 


12-27-79 


SYMBOL 


« PGCPA 
ePGCPT 
e PNPAT 
» PNPOP 
2~P0Q 

PSR 

oPTOTY 
oPTPPT 
o»RCC 

»RCCAC 
» RGEPR 


eo RGPRS 


»RIOTM 
eRSYCC 
2 SACHT 
2 SACT 
2 SATTR 
e SCCAL 
eo SECAT 
2 SELVL 
oe SINQR 
2 SJSTR 
2 SLBAS 
2 SLS1Z 
»SLTT 
2 SMODN 
2 SMONT 
e SNIO 


e SPASS” 


eSPRCI 
2 SRQCT 
2 SRQST 
o SSA 


2 SSR 
«SSYIO 
o STATE 


2» STEMP 


oe STIAT 
2 STMPX 
«SUTD 

2 SVFLT 


2 SWIT 


2 TALRM 
e TGEPR 
«TGPRS 
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REFERENCES BY SEQUENCE NO. 


4913 
4907 
9244 
3305 
1758 
4508 
95 34 
9243 
2513 
1520 
2587 
2812 
2575 
2528 
(1105 
1919 
3059 
2516 
3701 
3887 
2472 
49171 
10626 
10626 
11C3 
1759 
324 
8359 
10037 
6009 
2470 
1521 
2655 
7807 
T0135 
258 
8852 
1497 
9386 
112 
3582 
8076 
432 
5570 
1994 
1149 
1143 
2573 
2550 
27S2 


4917 


9245 
3321 


4530 
9538 
9536 
8458 
2414 
2817 


2643 
8458 


2180 
4510 
8439 
&360 
9261 


2833 
562 
8796 


2489 
1523 
3202 
8626 


336 
8861 
2522 


3584 
8077 
1505 
7802 


1204 


2792 
2795 


9282 
3897 


8468 
2767 


2826 
8465 


8456 
8798 


3203 


842 


8806 


2557 
2415 
3207 
8633 


1486 
8999 
2566 


3585 
8295 


3182. 


5211 
&822 


5503 


3307 


8459 
8805 


4372 
1427 
8810 


531) 
2521 
3216 
8637 
3221 
2589 


3593 
8297 


aot? 


8822 


1/0 


6485 


5504 


8462 
9028 


4986 
2339 
9026 


5507 
2576 
3476 
8794 
3620 
2598 


3599 
8300 


4370 


8404 


8466 
9031 


5208 
2633 
9088 


6307 
2586 
3889 
8795 
3863 
26C8 


3614 
8305 


4499 


S UP ERV IS OR 


8947 10528 
8478 8481 
5648 5663 
3703 5700 
9C92 

9390 9392 
2630 2644 
5295 5296 
8814 8815 
4500 

2628 2793 
3617 3626 
8308 8312 
4585 7797 


8482 


5700 
6947 


9394 
2768 
5320 
885C 


2796 


4399 
9544 


7806 


7912191080 


5712 


9451 
2813 
5321 
8851 


2829 


4401 
9551 


5724 


9454 
2818 
7464 
9263 


2831 


4402 
9557 


5758 


9455 
2827 
7764 
9660 


3388 


4403 
9827 


3308 
7796 
9661 


$212 


4880 
9989 


PAGE 


5505 
7798 
9683 


8821 


4889 
9990 
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8469 
7805 
9684 


$384 


5780 
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OCTAL 


, 
200000 
400000 
23 
46 
20 


16 
2 
4 


24 


22. 


13 


© UW A “ET ON 


~ae N 


12-27-79 


SYMBCL 


« TLNKS 
« TRDBK 
e TRELC 
a WEACF 
eWECAV 
» WE DRF 


»WEDRI 
»WEEAD 


eWEECT 
e WEEND 


«WEEP1 


« WEEP2 
eo WEF CM 


» WE FOC 
eWEICS 


oWEICM 


»WEIOQE 
eWETIOS 


eWEMRC 
2 WEMRT 
oe WEOFF 


« WEPAD 
oWEPEP 


«WEPGI 
»WEPID 


o WEPLK 
« WEPRV 
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3387 
2592 
2523 
1010 
8853 
2393 
5106 
2387 
4609 
8993 
1733 
1068 
4220 
4758 
7896 
9196 
374 
82C9 
376 
1233 
3162 
6074 
7254 
37 8&2 
2345 
4554 
1589 
5176 
7281 
10550 
2479 
1222 
4987 
9914 
8903 
8902 
1012 
4811 
9674 
1462 
1069 
2941 
4847 
1724 
1034 
6467 
8368 
1262 
3370 
4149 


2597 
2571 
1035 


4135 
6494 
3647 
4673 


8899 
1903 
4272 
4810 
7943 
9198 
1031 
8221 
1033 
1234 
3261 
6076 
7275 
4078 
2349 
4566 
2065 
5588 
7309 


4552 
3981 
5204 
9927 
8931 
8936 
2434 
4816 
9913 
1728 
1081 
3165 
4948 


1355 
6604 
8808 
2384 
3378 
4191 


2607 
1220 


4144 
6531 
3765 
4734 


8914 
3613 
4305 
4824 
7959 
9316 
1188 


1349 
1235 
3273 
6090 
7280 
4157 
2378 
4605 
2167 
5622 
7316 


4615 
4011 
6772 
9931 
8934 
8938 
2440 
4825 
10554 
1746 
1745 
3192 
4979 


1634 
8925 
8809 
2429 
3634 
4195 


2828 
5497 


4147 
7966 
3768 
4798 


&919 
3618 
4308 
4932 
7997 
9628 
1191 


2274 
1335 
3646 
6148 
T3355 
4768 
2549 
4628 
3640 
5656 
7332 


4652 
4207 
7359 
9969 
9082 
8944 
3781 
4830 


8929 
1159 
3282 
5002 


2089 
10529 
9010 
2437 
3756 
4203 


1/0 


5587 


4240 
10623 
4139 
4808 


9049 
3648 
4322 
4954 
8010 
9632 
1193 


3095 
1556 
3696 
6166 
7342 
4817 
3239 
8214 
3693 
5657 
7922 


9487 
4215 
7871 
9980 


4156 
5107 


8942 
1174 
3395 
5075 


2169 


9016 
2494 
3771 
4224 


5621 
4241 


4142 
4813 


9051 
3672 
4325 
5500 
8047 


1201 


3098 
16C1 
3788 
6174 
7347 
4998 
3276 
9893 
3785 
5694 
7928 


9492 
4235 
7900 
9985 


41765 
5 7&3 


9061 
1236 
3495 
5737 


2314 


9018 
2499 
3789 
4302 


5649 
4244 


4218 
5 182 


958 
3770 
4563 
5 508 
8C54 


1348 


J219 
1635 
4058 
6181 
7348 
6 E92 
3279 
10557 
3787 
6274 
7547 


9496 
4268 
7915 
10€64 


4221 
6583 


9C76 
1270 
3615 
5739 


2334 


9C22 
2511 
3 &37 
4332 


5706 
4245 


4219 
6468 


10148 
3793 
4565 
5628 
8058 


1904 


8243 
1637 
4287 
6275 
7350 
6803 
3799 


4055 
6287 
7967 


9919 
4281 
7934 


4236 
6588 


9081 
1940 
3762 
6041 


3764 


9025 
2798 
3841 
4338 


S UP ERV IS OR 


5718 
4543 


4239 
6488 


3836 
4602 
5636 
806C 


2092 


10067 
1638 
4665 
6288 
7404 
7089 
3802 


4057 
6476 
8034 


10565 
4321 
8107 


4238 
7974 


1998 
3815 
6132 


4061 


9095 
2804 
3899 
~—4631 


7912191 CSO 


5728 
4612 


4242 
6683 


3940 
4604 
6498 
8101 


2273 


1849 
5136 
6337 
7923 
9912 
3803 


4298 
6652 
8069 


4376 
8132 


4266 
8033 


2007 
3941 
6169 


4105 
2809 


3988 
4764 


5760 
4679 


4243 
7971 


3983 
4626 
6510 
8924 


5314 


1852 
5159 
6615 
7925 
9915 
3997 


4663 
7002 
8C89 


4560 
8134 


4669 
8C90 


2161 
4C79 
7032 


4194 
3096 


4013 
4804 


4756 


4246 
7587 


3984 
4627 
6530 
9182 


7892 


1853 
5177 
6636 
7941 
9916 
3998 


4992 
7075 
8111 


4562. 


8136 


4731 
8241 


2410 
4192 
7290 


5299 


S2e5 
4C62 
4835 


4799 
4253 
8026 


4017 
4733 


6533 


9183 
8196 
1964 
5589 
7036 
9911 
4069 
4996 


7236 
8137 


4643 
8138 


4740 
8411 


2418 
4359 
7396 


5990 


3235 


4090 


4919 


PAGE 


4822 


4256 
9897 


4076 
4736 
6539 
9190 


8197 


2933 
5658 
7245 
10551 


4072 


5134 
—6 7264 
8164 


~—64805 
8140 


4753 
8417 


2543 
4443 
7875 


6198 
3360 


4131 
5001 


291 


4827 
4536 


4102 
4755 
6543 
9193 


8203 
2935 
5659 
7250 
4548 
5157 


7269 
9910 


4975 


8193 © 


4762 
9665 


2764 
4697 


6259 


3362 


4132 


5117 
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SYMBOL 


eWERLT 
eWESCT 


eWEST 


KEND 
KILL®@ 
KTABL 
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8893 
10101 


10100 


4907 
4906 
38C6 
3994 
4068 
3583 
4265 
4267 
4269 
3825 
4003 
4428 
10070 
4416 


5140 
8063 
9671 
8928 
1096 
2924 
3616 
4959 
6526 
9403 
393 
3419 
6046 
8603 
276 
314 
322 
1725 
101C1 
3872 
10100 
268 
27 
6938 
3689 
560 
328 
1422 


1417 


1424 

840 
2609 
25599 

331 
2336 

329 
4877 
4906 
3806 
3994 
4068 
3583 
4265 
4267 
4269 
3825 
4003 
446 
9958 
44C6 


5184 
8091 
10130 
9054 
1230 
2970 
3819 
4969 
6603 
9405 
1273 
3430 
6052 
8909 
451 
3233 
3226 
1730 
10159 


10151 
299 
1493 


4907 
4910 
4416 
4418 
4420 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
10070 
4407 


5200 
8178 
10146 
9065 
1265 
2972 
3903 
5054 
6883 
9900 
2287 
5310 
6054 
8923 


3622 
4503 
1743 


10153 
305 


4417 
4419 
4421 


4416 


5214 
8210 
10527 
9068 
1281 
3093 
3945 
5088 
7039 
9907 
2446 
5312 
6295 
$037 


3865 


8893 


10159 
306 


1/0 


$531 
8407 


9072 
IS 15 
3144 
4089 
5300 
7325 
9944 
2484 
5519 
6296 
9048 


3866 


8905 


10163 
307 


S UP ERVI S$ OR 


5538 
8414 


1843 
3176 
4273 
5509 
7358 
10523 
2493 
D065 
7884 
9368 


3869 


9038 


308 


5540 
8446 


1931 
3188 
4297 
5734 
7872 
10525 
2505 
5532 
7936 
9371 


4404 


9040 


310 


5591 
8860 


1953 
3258 
4300 
5736 
7968 
10535 
2750 
5539 
8108 
9379 


9042 


319 


5655 
8995 


1970 
3269 
4301 
5998 
8098 


3042 
5707 
8176 
9380 


9046 


7912191C0S0 


6197 
9041 


2020 
3287 
4342 
6034 
8146 


3342 
5980 


8363 
9894 


10134 


350 


6456 
9045 


2157 
3344 
4363 
6C71 
8170 


3361 


5982. 


8376 
10071 


6523 
9210 


2466 
3285 
4649 
6158 
8171 


3377 
5 986 
8402 
10075 


6580 
9369 


2508 
3397 
4698 
6178 
8397 


3379 
6016 
8423 
10125 


PAGE 


7012 
9376 


2538 
3485 
4700 
6270 
8443 


3389 
6023 
8553 
101731 


292 


7961 
9662 


2777 
3486 
4861 
6463 
9382 


3393 
6025 
8554 
10144 


—1245T 02 


OCTAL 


13555 
10715 
5 
10720 
10722 
2704 
4262 
7514 
7071 
4343 
576 
601 
604 
573 
4024 
5315 
4022 
14002 
4020 
13516 
(11234 
11233 
4257 
3233 
4015 

- 3470 
200000 
4355 
7333 
10307 
7147 
4270 
13552 
13512 
600000 
7465 
6400 
6202 
2673 
4351 
13566 
4243 
200003 


4174 
4160 
7146 
4332 
4344 
4201 


12-27-79 


SYMBOL 


LBBASE 
LCMDT 
LCMDTL 
LCMDTR 
LOCDT 
LENG 
LPLEC 
LFIND 
LFST 
LGIOM 
LIMBO1 
LIMBO2 
LIMBOS 
LIMBO 
LINK 
LINKD 
LINKF 
LINKIT 
LINKS 
LKBYTE 
LKRW1 
LKRW 
LNEW 
LNKCC 
LNKRET 
LOADA 
LOCK 
LOGDYV 
LOGEF 
LOGIC 
LOGNC 
LOK 
LOKMAX 
LOKTBL 
LOKUAL 
LOOKA 
LOOKF 
LOOKN1 
LOOP 
LOPEN 
LOXOK 
LQUEU 
LRBST 


LRQCT1 
LRQCT 
LSTAC 
LSTIO 
LTHRU 
LTYPE 


09.391 
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9863 
7192 
7199 
7196 
7203 
2134 
3579 
6051 
5535 
3449 
622 
625 
6 28 
619 
31 81 
42 86 
3178 
10040 
3175 
9825 
7491 
7489 
3369 
2478 
3168 
2753 
9813 
3468 
5757 
6717 
5598 
3384 
9860 
9821 
9810 
6022 
5070 
4887 
2122 
3464 
9873 
3346 
97 28 


3299 
32 81 
5597 
34 38 
3454 
3304 


9861 
7192 
7199 
7196 
7203 
1897 
3355 
6051 
5529 
3441 
607 
6C3 
594 
566 
31C0 
4280 
3101 
10034 
3175 
19 
7451 
74 &0 
3349 
2459 
214 
2753 
9813 
3309 
5679 
6742 
5518 
3363 
9860 
9821 
9810 
6022 
5064 
4887 
2122 
3426 
9854 
3317 
9728 
9757 
3255 
3277 
5563 
3420 
3437 
3297 


9863 
7199 
7261 
7265 
7215 
2086 
3375 
6055 
5535 
3449 

609 
614 
628 
576 
3163 
4286 
3178 

10040 
3851 
9825 
7543 
7489 
3369 
2468 
3158 
3044 
9975 
3391 
5757 
6717 
5521 
3384 
9872 
9860 
9875 
6026 
5070 
4892 
2128 
3435 
9865 
3326 
9732 
9758 
3299 
3281 
5597 
3438 
3454 
3304 


7263 


7235 
2114 


611 
625 


579 
3166 


3852 


7824 


2478 
3168 


3468 


5598 


10292 


9863 


3464 
9873 
3334 
9733 
9759 


3465 


7265 


7243 
2134 


612 
619 
3179 


5216 


3245 
3876 


3346 
9734 
9760 


1/0 S UPERV IS OR 7912191 C0S0 


613 616 617 622 


3181 3839 1045 


5742 8184 
8560 
3881 3884 


9735 9737 9739 9741 9742 9743 9751 
9761 9762 9763 9764 9766 


9753 


9754 


PAGE 


9755 


293 


9756 


ai 


1245T O02 


OCTAL 


4266 
7606 
777400 
2200 
10664 
2617 
1750 
2474 
2315 
2313 
0 
4100 
16574 
16575 
62 
13704 
4 
3674 
3671 
3645 
10732 
11206 
11525 
2162 
13323 
3703 
634 
644 
640 
7305 
5703 
5707 
5414 
6112 
6054 
6056 
6062 
6240 
10637 
10103 
12661 
12167 
3775 
4132 
12640 
5750 
6375 
16151 
4662 
10770 


12-27-79 


SYMBCL 


LZFP 
MACH1 
MAJ.ST 
MAP 
MASKC 


09.391 


3379 
6129 


1695 
7155 
2062 
1681 
1952 
1757 
1754 

10054 
3233 

10746 

10747 
8892 
9966 
7420 
2944 
2939 
2917 
7221 
7464 
7861 
1691 
9500 
2989 

670 

672 
671 
5726 
4652 
4657 
4383 
4819 
4783 
4785 
4789 
4926 
7094 
6514 
9002 
8362 
3106 
3256 
8952 
4702 
5065 

10120 
3835 
7258 


3371 
6107 
3228 

280 
7155 
2022 
15 33 
19.46 
1750 

7&4 
3103 
3225 

10395 

10353 
8852 
9949 
7420 
2925 
2934 
2907 

19 
19 
19 

7&0 
9490 
1446 

511 

462 

520 
5717 
4647 
6645 
3766 
4807 
4729 
4748 
4783 
4840 
7080 
6487 
8997 
8362 
3061 
3187 
89C8 
4692 
5055 

10120 
3835 
7232 


H660047.002 


3379 
6115 


652 
7283 
2062 
1681 
1952 
1757 
1319 
3238 
3233 

10402 
10403 
10281 


9966. 


7421 
2931 
2939 
2917 
3712 
3079 
7861 
781 
9500 
2989 
519 
672 
671 
5726 
4652 
4650 
4140 
4819 
4783 
4751 
4785 
4868 
7082 
6493 
9002 
8370 
3106 
3191 
8949 
4702 
5065 
10135 
3844 
7258 


6129 


800 
7352 


10317 


1754 
3575 


10404 
10409 


7548 
2937 


3727 
3081 


783 


531 
1479 
10302 


4657 
4145 


4785 
4789 
4924 
7086 
6514 


3193 
8952 


3847 


REFERENCES BY SEQUENCE NO. 


1620 


10338 


3880 


10407 


10479 


7549 
2944 


7221 


3975 


1313 


670 


10307 


4254 


7094 


3200 


1/0 


1660 


3883 
10478 
10488 


7612 


4025 
1316 


10301 


4383 


3217 


1695 


4519 


10480 
10747 


7650 


4293 
1318 


10306. 


3256 


10250 


4522 


10485 


7752 


5687 
1452 


10271 


4594 


10487 


7763 


7464 


1691 


S UP ERVIS OR 


479C 


10489 


7772 


8129 


7912191080 


4906 


4944 


5570 


10490 10637 10746 


8158 


8628 


7802 
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OCTAL SYMBOL REFERENCES BY SEQUENCE NO. 
& 16434 NMAP 10652 10266 10652 @ 
5407 NOABT 4375 4365 4375 
10140 NOAUX 6559 6528 6559 
@ 4515 NOBM 3679 3229 3673 3679 @ 
3306 NOCCA 2534 2480 2534 
3252 Nnocca 2496 2452 2496 
@ 6637 NOCI 5307 53C2 5304 5307 S 
S03  NOCON 550 536 550 
5134 NODAT 4101 3725 4101 
@ 1773 NODSP 1518 1518 1525 & 
34C NOFLT 410 410 415 418 
3033 NOIO 2296 2282 2296 
® 13122 NOMCH 9257 9253 9257 e 
3205 NOPFX 2443 2430 2439 2443 
3171 NOPPT 2427 2419 2427 
@ 11370 NOPRCT 7669 7666 7669 @ 
1137  NOPSIA 960 733 960 
1506 NOREC 1261 1229 1242 1244 1246 1249 1261 
e 332 NORMA 403 347 349 352 356 358 359 403 eS 
335  NORME 406 364 398 406 
242 NORMI 346 311 346 
e 10317 NORML 6739 6721 6739 ® 
330 NORO 402 362 364 402 
324 NORST 397 391 397 
& 4314 NOSCT 3404 3396 3401 3404 e 
6320 NOSP 4980 4977 4980 
3552 NOSYS 2816 2800 2811 2816 
@ 6264 NOTBS1 4947 4920 4943 4947 or) 
1522 NOTEX 1275 1264 1268 1271 1275 
2606 NOTHR 2052 2046 2052 
a 10461 NOTLK 6886 6869 6882 6886 e 
11071 NOTMR 7349 7335 7340 7349 
3071 NOTR1 2344 2320 2326 2344 
e 11463 NoOTS1 7778 7778 7813 @ 
5715 NPCOD 4667 4659 4667 
6352 NPCODR 5010 4982 4989 5010 
@ 5534 NQl 4523 4511 4515 4523 @ 
14. NQPAG 8890 1743 8890 8906 
10154 NREL 6579 6573 6579 
® S271 NSECU 4259 3759 3769 4143 4148 4259 r 
6333 NSPCE 4991 4984 4991 
1602 NSPL1 1350 1342 1350 
* 1211 3 NT355 1015 980 1015 & 
7410 NTBSY 5965 5953 5965 
1561  NTHSH 13246 1216 1225 1290 1296 1309 1324 
e 3544 NTRECR 2808 2794 2808 @ 
6547 NTSPC 5210 5206 5210 
1576 NTSPL 1345 1339 1345 
@ 3540 NTSYS 2803 2797 2803 @ 
5473  NULLF 4455 4446 4455 
® @ 
@ ® 
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OCTAL SYMBOL REFERENCES BY SEQUENCE NO. 

5004 NULLS 3961 3944 3961 

3323 NULNK 2556 2540 2545 2552 2556 

5346 NULRD 4318 4318 4460 

5006 NULS1 3964 3964 4085 

5347 NULWT 4320 4320 4462 

5616 NWCAIO 4580 19 4580 

7564 NXBAR 6109 61€9 67123 6125 6127 6141 6144 
10010 NXCON ' 6381 6374 6376 6378 6381 

12172 NXTNT 8367 8367 &386 

13674 NXTONE 9956 9956 9964 

3105 NXTPR 2368 2368 2371 

12670 NXX 1 9009 9003 9009 

3137 OcPU 2398 2382 2390 2398 2403 2406 2408 
~410170 ONE DCW 6593 6587 6593 

16016 ONE IO 10280 10267 10280 

373 OPENG 443 435 443 

3626 OPQGT 2888 2888 2922 2928 2942 

2516 ORDEV 1981 1976 1981 

2575 OTHER 2042 2027 2042 

1436 OUT 1208 1174 #1115 4141124 41150 41153 1202 1203 1208 

0 PQ 221 224 435 710 713 717 «©1660 «61067 «©1304 1305 1306 714341 1434 1437 1508 


1541 1514 1560 1565 1566 1573 1914 1915 200€ 2001 2173 2174 2317 2319 2348 
2349 2351 2352 2420 2423 2432 2436 2441 2548 2549 2550 2647 2648 2650 2651 
2654 2655 3090 3093 3211 3212 %3221 3222 3226 3233 3237 %3278 %3279 3280 3329 
3330 3456 3578 3579 3620 3621 3622 3674 3675 3713 %3715 3716 3719 3775 3863 
3864 3865 3866 3869 3872 3886 3891 3892 41523 4162 4217 4218 4232 4234 4498 
4499 4500 4501 4503 4535 4536 4542 4543 4551 4552 4553 4564 4565 4568 4570 
4584 4585 4602 4606 4625 4628 4721 4722 4728 4732 4739 4750 4754 4761 4767 
4776 4777 4812 4813 4826 4827 4881 4882 4888 5105 5106 5125 5126 5129 5132 
5148 5149 5152 5155 5181 5182 5191 5196 5198 5344 5345 5456 S457 5459 5502 
5503 5560 5561 5778 5779 5901 55903 5904 5906 6007 6009 6202 6306 6432 6434 
6437 6514 6515 6534 6538 6539 6540 6549 6682 6683 6693 6890 6892 6909 7466 
7468 7470 7750 7753 7876 7877 7960 7971 7987 8026 8C36 8C37 8109 8110 8147 
8149 8150 8213 8214 8215 8409 8410 8413 8418 8601 8602 8603 8709 8711 8713 
8762 8764 8766 8896 8924 8953 8988 8991 8993 8995 9004 9005 9006 9010 9016 
9018 9022 9025 9037 9038 9040 9€41 9042 9045 9046 9C€48 9€49 9051 9054 9058 
9061 9065 9068 9072 9076 9081 9C82 9095 9127 9130 9182 9194 9198 9313 9314 
9315 9317 9318 9322 9327 9328 9417 9418 9429 9430 9488 9489 9491 9493 9539 
9542 G549 9552 9667 9668 9670 9675 10556 10557 10559 10560 10629 10630 


14170 POREG 10095 2684 2685 2686 2687 10095 
1 P 4 229 434 436 1506 1509 1735 1747 1755 2653 2656 2838 2839 4588 5618 5619 
8896 8953 10109 10710 10113 10114 10116 10162 10165 10166 10168 10170 10171 10177 
e) P1.PS 4488 4488 4508 4509 4530 4535 4542 4551 
2 P2 228 1148 1149 11517 1152 1154 +4155 1158 1162 1166 1168 $%44170 1171 #21177 «21179 


1180 «©1183 1184 1187 1189 1195 1200 2082 2096 2184 3058 3062 3137 3236 4609 
4832 4843 4873 4928 5044 5271 5270 5670 7846 7868 7898 7957 8110 9238 9240 
9243 9244 9245 9252 9276 9282 


2 PS 227 3062 3065 3075 3078 3084 3C€85 3092 4612 5043 5381 5443 5445 5448 5449 
5487 5492 5495 5555 5672 5674 S727 5729 S732 6421 6422 7845 


4 P4 222 223 1836 1844 1854 1901 2C€97 2100 2107 #2115 2116 2117 21422 2130 4615 


@®eee?eeeeeeeee#estse#eeeseeeesee #® @ ee 0@ 80 0 @ 
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PH.USL 
PI.ABS 


PI.KL 
PINT 


P.CC 
PCR 
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17 31 
1718 
6423 
1689 
633 
2016 
7609 
226 


7274 
4442 
3247 
3252 
1749 
1741 


10229 
10228 


3 36 
9803 


7844 
225 
9897 
1726 
1463 
6423 
634 
5 80 
2006 
7494 
226 
1002 
7223 
3729 
3258 
3234 
1737 
1718 
2432 
1067 
4568 
2179 
TT52 
10229 
10429 
10228 
10470 
19 
98C3 
260 
$71 
556 
871 
929 
1117 
1353 
1487 
1576 
1933 
2054 
2335 
2518 
2707 
2869 
3190 
3380 
3691 
5.341 
5484 
5549 


10235 
226 
10500 
1731 
1718 
6433 
1689 
581 
2009 
7509 
368 
1022 
7247 
4442 
3247 
3237 
1749 
1741 
4722 
2001 
6540 


9491 
10232 
10431 
10234 
10503 

336 
9919 
263 
372 
557 
875 
931 

1122 

1399 

1489 

1578 

1944 

2159 

2337 

2519 

2713 

2872 

3203 

3400 

3692 

5378 

5485 

5550 


1436 
10501 


6439 


582 
2016 
7514 

504 
1023 
7255 
7410 


3252 


5092. 


2176 


9493 
10233 
10434 
10238 
10632 


267 

379 

561 

876 

954 
1130 
1400 
1492 
1579 
1948 
2164 
2339 
2520 
2714 
2886 
3264 
3403 


3700: 


5382 
5488 
5569 


2095 
10538 


6538 
589 


7609 

510 
1030 
7266 


6538 
2420 


10370 
10435 
10265 


269 

389 

562 

878 

961 
1132 
1401 
1507 
1594 
1949 
2169 
2366 
2564 
2715 
2889 
3266 
3425 
3702 
5391 
5489 
5580 


1/0 


5091 
10540 


6540 


590 


643 


7274 


8037 
3064 


10372 
10437 
10276 


311 

390 

795 

881 

963 
17135 
1404 
1512 
1616 
1955 
2277 
2367 
2565 
2720 
2901 
330% 
3429 
3703 
5401 
5501 
5582 
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5092 
10542 


633 


8410 
3212 


10374 
10440 
10298 


312 

397 

797 

882 

969 
1136 
1405 
1513 
1629 
1956 
2279 
iY 
2584 
2754 
2911 
3304 
34232 
3711 
5412 
5511 
55 &3 


5120 
10544 


92715 
3675 


10275 
10442 
10309 


221 

402 

&11 

883 

978 
1267 
1408 
1515 
1642 
1972 
2280 
2275 
2585 
2755 
2519 
3312 
3434 
3714 
5415 
5515 
5620 


5121 
10589 


789 


9318 
4873 


10377 
10446 
10343 


323 

407 

834 

885 

982 
1285 
1412 
1526 
1646 
1983 
2281 
2399 
2625 
e775 
2921 
3316 
3440 
4372 
5416 
5528 
5625 


5143 
10591 


798 


9668 
4928 


10378 
10447 
10348 


324 

409 

835 

897 
1008 
1289 
1414 
1534 
1759 
2013 
2296 
2402 
2626 
278C 
2927 
3323 
3443 
4879 
5441 
5530 
5628 


7912191080 


5144 
10592 


7877 


10380 
10450 
10349 


340 

419 

841 

909 
1028 
1294 
1419 
1545 
1806 
2024 
2326 
2405 
2627 
2822 
2930 
3338 
3447 
4894 
5450 
$533 
5633 


5187 
10593 


$40 


8110 


10381 
10451 
10355 


355 

431 

842 

920 
1087 
1301 
1426 
1547 
1845 
2028 
2327 
2407 
2629 
2823 
2936 
3339 
3464 
4901 
5455 
5536 
5636 


6423 
10613 


941 


9240 


10424 
10454 
10420 


357 

433 

&50 

922 
1089 
1303 
1427 
1549 
1848 
2C30 
2328 
2413 
2631 
2825 
2990 
3348 
3683 
4986 
5462 
5537 
5641 


8094 
10639 


943 


PAGE 


8242 


953 


297 


9896 


962 


10425 10426 10428 
10455 10458 10459 
10467 10468 


10464 


359 

443 

854 

924 
1091 
1328 
1430 
1553 
1906 
2037 
2329 
2416 
2633 
2833 
3014 
3359 
3684 
5208 
5470 
5545 
5645 


360 
543 
857 
926 
1098 
1331 
1455 
1564 
1908 
2042 
2331 
2445 
2668 
2836 
3073 
3369 
3686 
5308 
$476 
5546 
5646 


366 

546 

862 

927 
1109 
1350 
1466 
1571 
1912 
2047 
2333 
2482 
2706 
2867 
3186 
3375 
3690 
5313 
5478 
5547 
5648 
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5656 5658 5663 5673 5675 5680 5€81 5690 5691 5698 $700 5708 5712 5714 5724 
5730 5748 5749 5758 5899 5902 55947 5952 5954 5958 5960 5995 600C 6036 6050 
6078 6082 6084 6092 6095 6099 6102 6106 6110 6112 6116 6119 6122 6140 6150 
6152 6155 6161 6176 6234 6300 62701 6305 6308 6335 6336 6348 6356 6357 6358 
6372 6448 6454 6457 6472 6501 6505 6574 6575 6601 6607 6620 6622 6646 6672 
6720 6786 6825 6831 6833 6838 6876 6877 6878 6881 6885 6887 6896 6898 6904 
6906 6911 6925 6926 6936 6937 6939 6940 6943 6945 6947 6956 7041 7049 7465 
7733 «©7869 8148 8255 8257 8259 8263 8264 8290 8292 8298 8301 8302 8355 8389 
8421 8433 8472 8550 8607 8610 8710 8763 8793 8816 8849 8935 9067 9071 9265 
9413 9425 9438 9444 9589 9679 9681 9841 9867 9924 9938 9941 9945 9950 9954 
9962 10000 10005 10006 10007 10008 10C€21 10029 10036 10038 10103 10137 10239 10258 10299 
10314 10318 10331 10358 10386 10474 10522 10523 10525 10527 10529 10530 10535 10537 10539 
10541 10543 10545 10550 10551 10554 10557 10565 10567 10568 10570 10584 10585 10590 10595 


106C7 
4 P.DATA 7844 5370 5395 5398 5423 5430 5435 5447 5552 7844 7971 7975 7987 8004 8021 8026 
8037 8041 8056 8076 8079 8094 8C€95 8096 8102 
2 P.DDD 7846 222 707 1304 1413 1431 1563 1565 7846 
3 P.EMB 6422 6422 6442 6550 6568 6570 6576 6577 6584 6585 6589 6590 6594 6595 6612 6613 
6618 6644 6655 6656 6694 6696 6703 6705 6706 6735 6736 6755 6757 6765 6776 
6781 6800 6802 6819 683C 6832 6875 6907 6941 7006 7007 7009 7011 7017 7019 
7057 7059 7077 7084 7088 7091 7C€95 7096 7098 7100 8266 8204 
2 P.IMW 225 225 279 281 413 
S P.I0CB 5043 3699 3708 3845 4200 4206 4214 4335 4341 4489 4509 4513 4531 4548 4628 4633 


4634 4636 4662 4664 4668 4689 4874 4925 4936 5043 5047 5053 5093 5108 5165 
7227 «67233 7237 «67252 «67267 

1 P.10Q 229 229 369 374 376 393 708 709 «©1010 1072 1031 1033 1034 1035 1068 1069 
1081 1096 1145 1159 1174 41188 1191 1193 1199 1201 1220 1222 1230 1233 1234 
1235 1236 1262 1265 1270 1273 #1281 #1315 1335 1348 1349 1355 171462 1556 1589 
16C1 1634 1635 1637 1638 1724 $44725 1728 #+»1730 #1733 «1743 ~«21746«~«1762 #%1763 «1843, 
1849 1852 1853 1903 1904 1931 1940 1953 1964 1970 1998 2007 2020 2065 2089 
20$2 2157 2161 2167 2273 2274 2287 2310 2312 2314 2334 2345 2378 2384 2387 
2393 2410 2418 2429 2434 2437 2440 2446 2466 2479 2484 2493 2494 2499 2505 
2508 2511 2538 2543 2659 2660 2750 2764 2777 2798 2804 2809 2878 2880 2900 
2906 2908 2924 2933 2935 2941 25670 2972 3042 3089 3090 3095 3096 3098 3144 
3162 3165 3176 3188 3192 3214 3215 3223 3235 3239 3258 3261 3269 3273 3276 
3282 «63287 «633420 «633344 3360 3361 3262 %$%$3370 3377 +3378 %3379 %3385 3389 3393 3395 
3397 3419 3430 3485 3486 3495 3612 3613 3615 3616 3618 3634 3640 3646 3647 
3648 3672 3693 3696 3756 3762 3764 3765 3768 3770 3771 #=+%13781 3782 3785 3787 
3788 3789 3793 3799 3802 3803 3815 3819 3836 3837 3841 3899 3903 3940 3941 
3945 3981 3983 3984 3988 3957 3998 4011 4013 4017 4055 4C€57 4058 4061 4Cé62 
4069 4072 4076 4078 4079 4089 4€90 4102 4105 4131 4132 4135 4139 4142 4144 
4147 4149 4756 4157 4165 4191 4192 4194 4195 4203 4207 4215 4219 4220 4221 
4224 4235 4236 4238 4239 4240 4241 4242 4243 4244 4245 4246 4253 4256 4266 
4268 4272 4273 4281 4287 4297 4298 4300 4301 4302 4305 4308 4321 4322 4325 
4332 4338 4342 4359 4363 4376 4443 4529 4536 4543 4547 4548 4552 4554 4560 
4562 4563 4566 4602 4603 4604 4605 4609 4612 4615 4626 4627 4631 4643 4649 
4652 4663 4665 4669 4673 4679 46€97 4698 4700 4731 4733 4734 4736 4740 4753 
4755 4756 4758 4762 4764 4768 4798 4799 4804 4805 4808 4810 4811 4816 4817 
4822 4824 4825 4830 4835 4847 4861 4919 4932 4948 4954 4959 4969 4975 4979 
4987 4992 4996 4998 5007 5002 5€54 5075 5088 5107 5117 %5134 #5136 5140 5157 
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5159 5176 5177 5183 5184 5200 5204 5214 5297 5298 5299 5300 5310 5312 5314 
5315 5468 5469 5497 5500 55C8 5509 5519 5523 5531 5532 5538 5539 5540 5587 
5588 5589 5591 5621 5622 5649 5655 5657 5659 5694 5706 5707 5718 5728 5734 
5736 5737 5739 5760 5775 5776 5980 5982 5986 5990 5998 6016 6023 6025 6034 
6041 6046 6052 6054 6071 6074 6C?76 6090 6133 6148 6158 6166 6169 6174 6178 
6181 6197 6198 6259 6270 6274 6275 6287 6288 6295 6296 6337 6456 6463 6467 
6468 6476 6488 6494 6498 6510 6523 6526 653C 6533 6539 6543 6580 6583 6588 
6603 6604 6615 6636 6652 6692 6772 6803 6883 7002 7012 7032 7036 7039 7075 
7089 7236 7245 7250 7254 7264 7269 7275 728C 7281 7290 7309 7316 7325 7332 
7333 7342 7347 7348 7350 7358 7359 7396 7404 7871 7872 7875 7884 7892 7896 
7900 7915 7922 7923 7925 7928 7534 7936 7941 7943 7947 7959 7961 7967 7968 
7974 7997 8010 &033 8034 8041 8C47 8054 8058 8060 8063 8C69 8089 8090 8091 
8095 8098 8101 8107 8108 8111 8132 8134 8136 8137 8138 8140 8164 8170 8171 
8176 8178 8193 8196 8197 8203 8209 8210 8221 8241 8243 8252 8353 8363 8368 
8376 8397 8402 8407 8411 8414 8417 8423 8443 8446 8547 8548 8553 8554 8808 
8809 8811 8860 &8&98& 8899 89C2 8503 8907 8909 8910 89514 8919 8922 8923 8924 
8925 8928 8929 8931 8934 8936 8938 8942 8944 9182 9183 9190 9193 9196 9310 
9316 9368 9369 9371 9376 9379 9280 9382 9403 9405 9434 9441 9487 9492 9496 
9628 9632 9662 9665 9671 9674 9891 9892 9893 9897 9900 9907 9910 9911 9913 
9915 9916 9919 9927 9931 9944 9969 9980 9985 10064 10067 10C71 10720 107121.10125 
10130 107131 10134 10144 10146 10148 10151 10153 10154 10159 
a P.IOS 3707 3685 3687 3707 3717 »5905 
5 PKL 9804 227 261 270 272 283 S57 421 424 427 444 449 457 461 $08 542 
658 704 731 810 1436 1465 1469 1481 1494 1538 1539 1542 1667 1672 2081 
2370 2658 2672 7046 7047 9804 9977 9978 9984 
2 P.PAT 95 30 224 1067 1072 1077 +1095 1164 e2C0Q1 2003 2013 2035 2068 2C75 2176 2177 2179 
| 3058 3063 3064 3066 3071 3137 %».%3194 3199 3212 3498 3574 3590 3596 3675 3676 
3943 3951 3963 4082 4279 4316 4362 4444 4457 4873 4908 4913 4917 4928 4941 
4955 5006 5044 5083 5085 7292 7295 7303 7378 7389 7393 7397 7409 7474 7492 
7510 7534 7542 7581 7583 7610 7616 7625 7642 7662 7668 7720 7726 7734 7817 
7845 7877 7878 7885 7937 9530 9534 9536 9538 


0 P.PID 221 221 454 455 456 1064 1065 1482 1483 1484 1485 2762 2763 
2 P.RMS 228 228 254 257 262 338 361 370 373 375 377 513 522 525 649 705 
768 777 791 793 794 944 965 985 995 1021 1€24 1032 1205 1570 1577 
1595 1622 1624 1761 | : : 
4 P.SS 223 223 258 259 268 276 299 305 306 307 308 310 314 319 322 336 
339 341 350 422 451 1486 1490 1493 
6 P.SSA 420 432 703 1102 1103 #1105 1143 #1149 1204 #1488 1497 #1505 1521 1523 1919 
1994 2615 2470 2472 2489 2516 2521 2522 2557 2566 2576 2586 2589 2598 2608 
2628 2630 2644 2655 2768 2793 2796 2813 2818 2827 2829 2831 3059 3182 3202 
: 3206 3207 3213 3216 3308 3311 %3288 3475 3476 3579 3582 3584 3585 3593 3599 
3614 3617 3626 3701 3887 3889 4370 4399 4401 4402 4403 4499 4510 4585 4880 
4889 4911 52712 5295 5296 5320 5321 $5505 5507 5570 5780 6307 6957 7464 7764 
7796 7797 7798 7802 7805 7806 7807 8076 8077 8295 8297 8300 8305 8308 8312 
8359 8360 8439 8456 8459 8462 8466 8469 8478 8481 8482 8626 8633 8637 8794 
8795 8796 8798 8805 8806 8810 8814 8815 8821 8850 8851 8852 8861 8999 9026 
9028 9031 9088 9092 9261 9263 9284 9386 9390 9392 9394 9451 9454 9455 9544 
9551 9557 9660 9661 9683 9684 9827 9989 9990 10037 
5 P.SSL 3858 3859 5459 
> P.SSR 4404 


~—1245T C2 


CCTAL 


Vem2f=7 9 


SYMBCL 
PwSTAT 


PUSER 


PMB2 
PMMIOS 
PNZ 
POPVEC 
PPE X 
PPIN 
PPINA 
PPRO 
PPROP 
PREQ 
PRIOR 
PRLCX 
PROG1 
PROG 
PRSEL 
PRSL2 
PRTIM 
PSIA1 
PSICH 
PSIQ 
PSeKL 
PTRVL 
QAVIL 
QBILT 
QCHEK 
QcNT1 
QCNT21 
QCNT22 
QCNT24 
QCNT25 
QCNT2 
QFEW 
QGEPR 
QOVER 
QRET 
QSAVE 
QUEG 
QUEUE 
QUEUS 
RBKMSK 
RBRLT 
RDNSOD 
RDYRDY 
REDSP 
REG2 
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9802 


6653 
4493 
9071 
1452 
9061 
9049 
9055 
9035 
90 28 
9079 
6029 
6012 
50 87 
5090 
6146 
6173 
10 86 
788 
805 
10417 
2266 
9626 
8904 
10014 
9401 
&4 28 
8455 
8448 
8459 
&469 
8471 
8928 
8821 
8824 
8813 
2678 
8801 
8793 
8849 
7437 
2613 
7367 
400 
1517 
3457 


9802 
10015 
3252 
3991 
4265 
6649 
19 
9066 
1452 
9053 
9039 
9055 
9000 
9019 
—69062 
6024 
5946 
(5082 
5077 
6072 
6167 
1073 
769 
799 
10413 
2266 
9319 
8904 
9976 
9401 
8356 
8447 
8444 
8459 
8460 
8435 
8901 
8799 
8824 
88C4 
2678 
8801 
3086 
4516 
7437 
2600 
7180 
363 
15€4 
3457 


9829 
10026 
3253 
3993 
4267 
6653 
4493 
9071 
1755 
9061 
9044 
9064 
9035 
9023 
9079 
6029 
6012 
5087 
5090 
6088 
6173 
1080 
788 
805 
10417 
2313 
9626 
8946 
9979 
10293 
8428 
8455 
8448 
8483 
8463 
8471 
8928 
882 1 
8853 
8813 
6429 
8823 
$5.51 
4591 
7502 
2613 
7367 
400 
1517 
3479 


9849 
10032 
3580 
3994 
4269 


9047 
9069 
9089 
9028 


6049 


6146 


1086 


2374 


8948 
10001 


8467 


8826 
6561 


3600 
8579 
7507 


9855 
10041 
3583 
S997 


9049 
9074 
9098 


6087 


1141 


2404 


10014 


8469 


8858 
6687? 


4523 
8849 


1/0 S UP ERVIS OR 


9857 9864 9870 9874 9893 9898 
10042 10052 10C€59 10060 

3613 3639 3645 3647 3776 3797 
4001 4003 4065 4067 4068 4069 
9077 9080 9083 

10290 

1144 1147 1206 

2504 2518 8432 


2482 2491 2498 


8863 
6690 


4597 8753 9885 


7912191080 


9920 


3799 
4135 


8433 


9932 


3805 
4152 


8472 


9947 


3806 
4161 


8557 


PAGE 300 
9974 10002 
3823 3825 
4263 4264 


1245T 02 


CCTAL 


14130 


4356 
2170 
3363 
1027 
1035 
12075 
3 
4164 
$773 
6021 
7331 
12356 
2340 
1062 
2336 
12374 
11243 
11237 
2332 
2330 
10436 
10427 
6656 
2642 
2641 
11461 
13750 
14230 
5 

6 
3222 
5616 
5621 
11327 
11342 
11344 
11353 
16365 
16366 
16370 
16405 
16356 
40000 
6311 
6274 
6056 
613C 
6131 
6155 


12=27=79 


SYMBCL 


REGS 
REGST 
REGW 
RELCB 
RELIT 
RELS2 
RESET 
RESID 
RETYN 
RGDCW2 
RGDCW3 
RLERR 
RLKCC 
RLPAGE 
RLTCX 
RLVEC 
RLXIT 
RNDOW1 
RNDOW 


RQPAGE 


RQVEC 
RSET2 
RSET 
RSMCH 
RSTXO 
RSTX1 
RTN 
$5304 
SAN 
SAVLC 
SAVRB 
SAVX1 
SCALIO 
SCALL 
SCAN1 
SCAN2 
SCAN23 
SCAN4 
SCFI29 
SCFI30 
SCFI32 
SCFI40 
SCFri 
SCNDRY 
SCTG1 
SCTG 
S$D.ACB 
SD.CR 
SD.DDD 
SD.EME 
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10094 
3470 
1693 
2604 

8 61 

869 
&254 
74.19 
32 86 
4725 
4749 
5752 
&5 43 
1771 
894 
1770 
&5 64 
7506 
7501 
1768 
1767 
6861 
6844 
5338 
2091 
2090 
7772 

10010 

10170 
7421 
7422 
2458 
4577 
45 88 
7615 
7627 
7633 
7647 

10600 

10601 

10603 

10617 

10591 
9816 
4970 
4956 


3470 
3257 
778 
2524 
846 
869 
19 
7419 
3286 
4725 
4749 
5746 
19 
1770 
8&4 
1735 
5323 
7506 
7476 


1767 


1747 
6841 
6835 
19 
1899 
1898 
7525 
100C4 


7636 
10600 


10601 


10603 
10598 
105 87 
9816 
4961 
4903 
5381 

260 

707 
9004 


3471 
3457 
785 
2572 
861 
899 
8254 
7420 
3487 
4784 
4788 
5752 
8543 
1771 
894 
1770 
5347 
7819 
7501 
1768 
1767 
6861 
6844 
5338 
2091 
1911 
7585 
10010 
10170 
7422 
7423 
2458 
4577 
4595 
7629 
7651 
7633 
7647 
10616 
10610 
10612 
10617 
10591 
9948 
4970 
4933 
5555 
1072 
1563 


3472 
3470 
1314 
2604 


7472 


5460 


8322 
8273 


2106 
2090 
7592 


7504 
7477 


7643 


4956 
5672 
5670 
3685 


3473 
3477 
1320 


7523 


5781 


2105 
7676 


7742 
7490 


5727 
6911 
3f13 


1/0 


10094 10096 


3504 
1693 


7555 


8256 


2109 
7701 


7743 
7505 


5901 


7577 


8270 


2129 
7710 


7800 
7539 


7466 


10154 


7590 


8291 


7772 


7 &04 
7569 


7 868 


SUPERVISOR 


7912191080 


10155 10160 10180 10181 


7702 


8319 


7722 


8147 


7732 


8545 


7725 


8709 


7738 


8564 


7792 


8762 


7744 


8605 


7816 


10184 


7761 


8612 


PAGE 


8723 10074 


301 


@ e 
® 3] 
1245T 02 12-27-79 09.391 H660057.002 1/O SUPERVISOR 7912191080 PAGE 302 Zs 
ad OCTAL SYMBCL REFERENCES BY SEQUENCE NOw 
r 6001 SD.IMW 279 2 
6013 S$DdD.10Q 369 708 1762 2310 2348 2548 2659 2838 3214 3278 4217 4564 4625 4812 4826 
5105 5181 5297 5468 5618 5775 6682 7960 8213 8352 8547 8601 8811 8988 90C5 
@ 9194 9891 10075 10120 @ 
6133 SDeKL 261 337 £4444 658 704 1465 2313 2647 2658 3456 3858 5344 5456 5560 5778 
6432 6890 7046 8432 8557 9417 9429 9977 10234 
& 6134 SD.MDD 10559 10629 & 
| 6174 SD.MME 3236 
| 6024 SD.PID 454 1064 1482 2173 2317 2650 2762 5502 6302 9127 10113 10166 
gw) 6204 SD.PSH 1066 1151 2000 2175 2417 3063 3211 3674 4553 4721 4832 5C91 6433 6437 7876 & 
| 7 8036 8109 8409 9238 9313 9317 9488 9667 10109 
6010 S$d.PT1 6534 
5s @ 6002 SD.PTD 6514 10162 @ 
| 6063 SD.RNS 254 262 338 705 1205 1761 2096 6442 8266 8304 10170 10232 
| 6140 SD.SCN 4881 9539 
1 @ 6144 SD.SAB 1914 3329 © 
: 6145 SD.SSA 420 703 1488 3206 3213 3475 6C07 6957 
| 6202 $D.SSH 4843 
5 @ 13700 SECOND 9961 9955 9961 & 
| 7701 SEEK 6240 5914 6240 
11454  SEKRET 7762 7762 7782 
@ 7430 SELC1 5986 5981 5986 @ 
7432 SELC2 5989 5973 5989 
7414 SELC 5971 5971 6043 6053 6134 6151 6162 6170 
e 11031 SETBS 7302 7297 7302 @ 
7740 SETCB 6299 6252 6299 
4471 SETFBT 3633 3628 3629 3631 3633 
le 7730 + SETSO 6287 6276 6287 2 
7732 SETS1 6290 5912 6272 6279 6281 6290 
7734 + SETS2 6294 6285 6294 
ii) 10065 SETSA1 6491 6459 6480 6482 6491 ° 
1007C SETSA3 6496 6469 6489 6496 
10045 SETSA4 6471 6465 6471 
iz 10053 SETSAS 6477 6475 6477 ry 
10243 SETSA 6668 6650 6668 
7711. =SETST 6261 6100 6120 6135 6186 6261 
1 @ 10523 SEXIT 6954 5913 5948 5956 $962 5975 5984 6131 6851 6928 6936 6954 e 
} 7422 SFIND 5979 5979 5983 
7420 SFND1 5976 5969 5976 
1 @ 2515 SGDEV 1978 1974 1978 @ 
; 5734  SGPBT 4688 4678 4680 4688 
3224 SGPceM 2465 2449 2465 . 
& 13771 SHIPIT 10031 10020 10023 10031 @ 
11140 SKCLD 7427 7427 7467 
7323 SKERR 5744 5688 5744 
@ 4666  SLINK 3841 3841 5003 S007 $213 @ 
10272 SLMT4 6695 6671 6677 6681 6695 
10274 SLMTS 6699 6674 6699 
@ 345  SLPRC 417 344 408 £417 @ 
363  SLSUB 4314 431 #450 £453 
& @ 
© @ 


1245T C2 


CCTAL 


5552 
é 
3421 
6251 
3443 
2157 
1100 
1073 
1070 
1013 
1000 
2160 
11260 
~1730C 
11304 
11272 
11306 
11314 
11312 
6620 
11317 
3342 
7764 
3333 
3332 
1361 
1406 
1412 
1430 
1334 
4625 
— 4614 
200000 
3676 
5460 
12350 
12334 
7707 
10654 
7347 
12344 
7370 
2451 
2500 
13621 
1767 
6402 
2705 
2706 
7675 


Lee 2t> 9 


SYMBCL 


SNDDD 
SNDTHR 
SOPDS 
SPANY 
SPCMD 
SPCNT 
SPD1 

SPDPSI 
SPDX 

SPLT1 
SPLTR 
SPOVF 
SPREQ 
SPRQB1 
SPRQE2 
SPRQEB 
SPRQBR 
SPRQF1 
SPRQFR 
SPUNK 
SPXIT 
SRBLK 
SRCH1 

SRLC1 
SRLC2 
SRMFEC 
SRMNC 
SRMOD 
SRMT2 
SRMT 

SRPC2 
SRPCK 
SSCHED 
SSPCM 
SSRXX 
STBLD 
STFRE 
STGPC 
ST1I02 
STIO 

STKEP 
STNML 
$T034 
$TO089 
STOCMD 
STOP 

STOPN 
STP 1 

STP2 

STRCR 


09.391 


H6600J7.002 


REFERENCES BY SEQUENCE NO. 


4539 
89 60 
2667 
49 34 
2705 
1687 
920 

907 

903 

845 

832 
1688 
7533 
7560 
75 68 
7547 
7574 
75 82 
7579 
$267 
75 89 
25 82 
6358 
2570 
2566 
1161 
1182 
1187 
1201 
1140 
3796 
37 84 
9807 
2968 
4429 
8512 
8491 
6257 
7108 
5897 
8507 
5945 
1927 
1958 
9909 
1515 
5074 
2135 
2136 
6233 


4534 
8945 
2577 
4839 
2705 
950 
920 
855 
903 
834 
827 
770 
7482 
7550 
75 68 
7537 
7562 
75 &2 
7556 
19 
7538 
2558 
6358 
2570 
2566 
1161 
1176 
1173 
1148 
1088 
3796 
3773 
98C7 
1445 
44C€0 
8508 
8491 
1456 
5898 
3$5 
8489 
5911 
1921 
1950 
9904 
1515 
5068 
2116 
19C1 
5917 


4539 
8960 
2667 
4934 
2973 

952 

9.33 

907 

912 

845 

832 
1688 
7533 
7560 
76914 
7547 
7564 
7704 
7579 
5267 
7589 
2582 
6367 
25914 
2588 
1165 
1182 
1181 
1157 
1140 
4309 


3784 


9936 
2968 
4429 
8512 
8510 
2945 
6195 

890 
8507 
5916 
1927 
1958 
9909 
1527 
5074 
2130 
2097 
6233 


1687 


6347 


7820 


7574 


7661 


2593 
1167 


1187 


1163 


4106 


8515 
3436 
6232 
2290 


5945 


2135 
2136 


6379 


1172 


8520 
6257 
6258 
2721 


1/0 


1185 


6944 
2992 


S U PERV IS OR 


1201 


6955 
3450 


7 108 
5343 


8271 
5543 


8320 
5777 


7912191080 


5897 


PAGE 


303 
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® ® 
OCTAL SYMBOL REFERENCES BY SEQUENCE NO. 
@ 3036 STRET 2306 476 1357 2293 2306 3250 3478 4C€19 5318 10068 e 
12353 STRMV 8517 8509 8517 
7570 STRT 6114 5967 6114 
@ 7256 STSKA 5693 5693 5750 @ 
7674 STSPC 6207 2708 6207 
16410 STVEC 10623 10556 10623 
@ 2614 STYP 2058 2050 2058 ® 
3303 SYOTCC 2527 2509 2512 2527 
5627 SYSEN2 4594 4594 4599 
@ 3547 SYSERR 2812 2806 2812 @ 
2447 SYSPG 1923 1917 1923 
16537 TABLE 10707 10385 10388 10707 
@ 6604 TABS1 5244 5195 5244 e@ 
6612 TABS2 5251 5197 5251 
16313 TAPEA 10548 10532 10548 
eo 434 TAR 481 289 404 £481 & 
4544 TCOFF 3710 3683 3710 
7771 =X 6363 6351 6363 6377 6389 
@ 20000 ToCcw 7852. 7852 7979 8022 8081 8084 | @ 
3604 TEMP 2845 2758 2773 2783 2791 2841 2842 2845 
650 TEMST 673 571 597 645 673 
@ 3715 TERRT 3041 1449 3041 @ 
2361 TEST3 1822 1810 1812 1816 1822 
515 TESTCH 5 63 556 563 : 
& 427 TGATE 479 381 387 463 467 474 479 r 
3465 TGEPR 2749 1442 2749 
| 3605 TGSPC 2865 1443 2865 
@ 7552 THERE 6097 6075 6093 6097 ~@ 
12 THRCNT 8927 8927 8932 
12626 THROVR 8941 8933 8941 
& 1547 THRSD 1308 1307 1308 ® 
12643 THRTIM 8962 8939 8962 
1321 TIME 1126 1119 1123 1126 
’ 652 TIMEX 691 423 691 960 1491 & 
1774 TMOR1 1520 1471 1495 1498 1520 
2001 TMOR2 1925 1480 1522 1525 
@ 1715  TMOR 1461 714 1461 & 
12631 TNOT 8944 8937 8944 
12632 TNOVER 8945 8930 8940 8943 8945 
e 10405 TOEX2 6816 6724 6737 6783 6791 6805 6812 6816 @ 
~10410 TOEX41 6823 6778 6823 7023 7060 7102 
10402 TOEX4 6810 6723 6796 6810 
@ 10400 TOEXS 6807 6751 6807 @ 
7302 TPCFG 5722 5710 5722 
7257 TPSKA 5695 5677 5695 5761 
@ 744  TRAGN 791 791 955 & 
1661 TRCOFF 1428 988 1399 1428 
3710 TREAD 3008 1448 3008 
®@ 3451 TRLC1 2712 2703 2712 2971 & 
3440 TRLCH 2700 1356 2700 2843 
® ® 
® ® 


1245T 02 


OCTAL 


1656 
1117 
13736 
3012 
13764 
430 
637001 
13324 
13350 
7665 
1302 
12706 
12705 
12246 
12702 
12644 
13201 
12256 
12217 
13210 
13213 
400000 
13244 
13250 
13253 
13257 
12155 
13616 
13420 
13400 
12211 
12437 


14040 
100000 
7777 
13511 
342 

6 
1502 
7703 
4 
2414 
13011 
13037 
13047 
13074 
2750 
2754 
2746 


Ve=2r-79 


SYMBCL 


TRSET 
TSOVR 
TSTBYT 
TSTRT 
TSTSHR 
TX5 
TY 
TYNAP 
TYNOT 
TYPER 
TYPEW 
UTE 
UFE 
ULDCW 
ULE 
ULINK 
ULNK 
ULNKC 
ULNKI 
UNLK1 
UNLK2 
UNLK 
UNLKF 
UNL KFC 
UNLKL 
UNLKLC 
UNLNK 
UNLOCK 
UNW 1 
UNWIRE 
UNX IT 
URBST 


VEC DAT 
WATE 
WOCT 
WLB 
WOOPS 
WPBP 
WREC 
WRRODM 
WRTG 
WSAV 
WSNO 
WSNSFT 
WSNW 
WSNXC 
XBUF 
XTST 
XVEC 


09.391 


H6600J 7.002 


REFERENCES BY SEQUENCE NO. 


1425 
9 38 
9999 
2272 
10025 
480 
95 60 
9533 
9555 
6194 
1106 
9026 
$025 
8419 
9021 
8988 
$364 
8431 
8395 
9573 
9377 
9814 
9410 
9416 
9422 
9428 
8350 
9905 
9677 
9659 
8388 
9727 


10075 
9815 


1418 
790 
9996 
1441 
10018 
288 
9540 
3284 
9550 
3016 
10¢2 
9011 
9013 
8405 
9015 
2554 
2455 
8381 
8379 
9373 
9377 
9814 


1423 
792 
9999 
2160 
10025 
403 
9560 
5080 
9555 
6194 
1101 
9026 
9025 
8408 
9021 
5269 
2770 
8431 
8395 
9414 
9426 
9901 
9410 
9416 
9422 
9428 
8350 
9905 
9666 
4366 
8388 
9732 
9758 
9896 
9917 
7994 
9908 
413 
7957 
1253 
6244 
7392 
1107 
9187 
9147 
9133 
9055 
2154 
10283 
2184 


1425 
938 
10009 
2162 


480 


9533 
1106 


8416 


8503 
8496 


9419 
9431 
9921 


9673 
9659 


9733 
9759 
10075 
10003 


6246 
1889 
9156 


9124 
2165 


2272 


8419 


8608 
9364 


10033 


9677 


9734 
9760 


10047 


$132 
2166 


1/0 


8988 


9735 
9761 


9143 
2168 


S UPERVIS OR 


9680 


9737 
9762 


9186 
2170 


9739 
9763 


9197 
2178 


9741 
9764 


9204 
2182 


9742 
9765 


7912191080 


9743 


9751 


9753 


9754 


PAGE 


9755 


305 


9756 


1245T 02 
CCTAL 


2745 
113 
3322 
13277 
13276 
4256 


12-27-79 
SYMBCL 


XWSR 
X XX 
YUL NK 
ZOP17 
ZOP7?7 
ZOPX4 


09,391 H6600J7.002 
REFERENCES BY SEQUENCE NO, 


2152 2152 2171 2183 
107181 10180 10181 

2553 2547 2553 

9449 9391 9395 9449 

9446 9436 9446 

3365 3160 3365 3376 


ee S2K LIMITS NEEDED FOR THIS ASSEMBLY. 


**GFRC READ 


2438 AND PUNCHED NONE COMDK CARDS 


SUPERVISOR 7912191080 


SNUMB 


1245T. 


ACTIVITY # 


O2+ » 


REPORT CODE 


4 


LeL 


73, RECORD COUNT = 000001 


I10S0/H66CO0J7.002 


10800025 


@®eeeeeeeeseeee?*e?208s?808 @808 @e0 6 @ 


TTTTTTTTTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT TTT TTT TTT TTTT TTT TTT ITTTTT TTT TT TTT TTTITTTTITMIT 
STTTTTITTTTT TTT TTT TTT TTT TTT TTT TTT TTT TT TTT TT TTT TTT TTT TTT TTT TTT ttt rT TTT tT rTrTrTrtTrTtTrtTrTrTrtyqTrty 


T TTTT TT TTTTT TTTTT 
TT T T T T T T 
TTTT ELT T T T T TTTTT T TTTT TTTT 
T TTT TTTTTT T T 
T T T T T T 
TTT TTTTIT T TTTT T 


STTTTTTTTT TTT TIT TT TTT TTT TT TT TTT TTT TT TT TTT TTT TTT TTT TTT tTTT TT TT rT trTtTtTtTrTrTrrTrtrTrtrTtrrrry 
OTTTTTTTTT ITT TTT TT TTT TT TTT TTT TT TT TTT TTT TTT TTT TTT TTT TTT TT TT TTT TTT TTT TT TTT rTrTtytrrtqtryTyt 


a 5) = DPS DATE 12-27-79 TIME 10.377 PR 0 26 4,0*1X 


